Sub TestGetFiles()

下面的语句显示“设置单元格格式”对话框中的“字体”选项卡：

在工作表单元格中输入“=WorksheetName()”
，将显示该工作表的名称。Application.Caller作为一个Range对象返回对调用该函数的单元格的引用
，然后使用Range对象的Parent属性产生对包含该Range对象的Worksheet对象的引用，最后将Worksheet对象的Name属性赋给该函数的返回值。当每次重新计算工作表时
，Appliaction对象的Volatile方法强制Excel重新计算该函数。因此
，如果改变了工作表的名称，那么该函数将显示新的工作表名称。

End Sub

strFileName = strFileName & vbCrLf & vFiles(nIndex)

需要强调的是
，在被购买方个别报表层面
，维持被收购前的处理方式进行会计处理
，也无需对原授予日权益工具的公允价值进行重新计量。

Dim bSuccess As Boolean

第一个示例用法的好处是能够非常灵活地使用代码产生字符串值。第二个示例用法更简短
，但仅通过编辑代码来修改表达式。下面的过程显示True或者False表明活动单元格是否为空，同时演示了第一个示例用法的灵活性。

参数FileFilter是一个字符串，规定筛选条件（例如，*.txt
，*.xla）
，在“打开”文件对话框中只显示与筛选条件相匹配的文件，默认为“所有文件(*.*),*.*”。参数FilterIndex指定缺省的文件筛选条件的索引值，从1到参数FileFilter中指定的筛选数
，默认使用索引值为1的文件筛选条件。参数Title指定对话框的标题，默认显示“打开”。参数ButtonText仅用于Macintosh计算机。参数MultiSelect是一个Boolean值，指定能否选择多个文件，默认仅能够选择单个文件。

InputBox方法提供了一种程序与用户之间进行简单的交互的方式，允许我们从用户处获得信息。该方法将显示一个对话框
，提示用户输入某值。通过指定希望用户输入的数据类型
，InputBox方法能够进行数据验证。InputBox方法的语法如下：

如果有腹泻的症状要及时去治疗
，腹泻对肠胃的伤害是很大的。

按键

If sUserInput = [PassWord] Then

sFileName = Application.GetSaveAsFilename

GetShortName = sShortName

第二步
，将购买日认定为合并报表层面的新授予日
，重新计量被购买方相关股权激励计划在购买日（新授予日）的公允价值。

{BREAK}