在VBA编程中我们,常常需要手动打开文件选择框、取得文件全路径与文件名,下载这个例子可以实现这些功能,代码如下:
'VBA打开文件选择框、取得文件全路径与文件名
Sub selectExcelfile()
Dim fileNameObj As Variant
Dim aFile As Variant '数组,提取文件名fileName时使用
'打开文件对话框返回的文件名,是一个全路径文件名,其值也可能是False,因此类型为Variant
Dim fullName As String
Dim fileName As String '从FileName中提取的路径名
Dim i As Integer
fileNameObj = Application.GetOpenFilename("Excel 文件 (*.xls),*.xls")
'调用Windows打开文件对话框
If fileNameObj <> False Then '如果未按“取消”键
aFile = Split(fileNameObj, "\")
fileName = aFile(UBound(aFile)) '数组的最后一个元素为文件名
fullName = aFile(0)
For i = 1 To UBound(aFile) '循环合成全路径
fullName = fullName & "\" & aFile(i)
Next
Else
MsgBox "请选择文件"
End
End If
'得到Excel全路径
allExcelFullPath = fullName
'得到Excel文件名
workbookName = fileName
End Sub
分享到:
相关推荐
制作路径选择对话框_Excel VBA应用.rar,Excel VBA中的GetOpenFilename和GetSaveAsFilename方法能够显示标准的文件打开和文件保存对话框,以获取用户选定文件的完整路径与文件名,但是不能用于文件路径的选� H绻...
技巧168 取得应用程序的安装路径 12 技巧169 数组的使用 12 169-1 代码运行时创建数组 12 169-2 文本转换为数组 12 169-3 使用动态数组去除重复值 12 第10章 文件操作 12 技巧170 导入文本文件 12 170-1 使用查询表...
技巧168 取得应用程序的安装路径 404 技巧169 数组的使用 406 169-1 代码运行时创建数组 406 169-2 文本转换为数组 407 169-3 使用动态数组去除重复值 409 第10章 文件操作 412 技巧170 导入文本文件 412 170-1 使用...
01007获取打开Excel文件时的默认路径 01008获取模板保存的默认路径 01009获取库文件夹的路径 01010获取路径分隔符 01011获取Excel主窗口标题栏的名称 01012获取Excel窗口的状态(大小) 01013获取Excel主窗口的高度...
20 ADCNAVIGATE ADC 启动设计中心并访问用户设置的文件名、路径或网上目录 21 ALIGN AL 图形对齐 22 AMECONVERT 将AME实体转换成AutoCAD实体 23 APERTURE 控制目标捕捉框的大小 24 APPLOAD AP 装载AutoLISP、...
【创建多版本打开方式】:如果安装了多个版本的Office,本工具可助您任意选择Excel文件的打开方式。通过文件右键的“发送到”菜单执行 【生成2003样式菜单】:Excel 2007或者Excel 2010专用,可以产生2003样式的菜单来...
【创建多版本打开方式】:如果安装了多个版本的Office,本工具可助您任意选择Excel文件的打开方式。通过文件右键的“发送到”菜单执行 【生成2003样式菜单】:Excel 2007或者Excel 2010专用,可以产生2003样式的菜单...
函数功能与参数:用于创建带链接的文件目录,有三个参数,包括路径、文件名、索引号 ╭══════════════════╮ ║ ║ ╭═══════┤ 本工具安装方法 ├════════╮ ║ ║ ║ ║ ...
只需将要加密/解密的文件从资源管理器拖到大列表中,然后将要用作密钥的文件拖到顶部的小框中,选择路径即可。 为了便于阅读,列表中还会显示您正在使用的所有文件的小图标。 用作密钥的文件可以是任何类型的文件...
【创建多版本打开方式】:如果安装了多个版本的Office,本工具可助您任意选择Excel文件的打开方式。通过文件右键的“发送到”菜单执行 【生成2003样式菜单】:Excel 2007或者Excel 2010专用,可以产生2003样式的菜单来...
菜单功能一览表 【公农双历查询】【高级定位】【选区背景着色】... 函数功能与参数:用于创建带链接的文件目录,有三个参数,包括路径、文件名、索引号 ╭═════┤ 安装不成功原因分析 ├═══════╮ ...
File用于创建带链接的文件目录,有三个参数,第一参数指定路径,第二参数定指文件类型。第三参数指定编号(数量) 大写将阿拉伯数字转为人民币金额大写。仅需要一个参数,即单元格引用 批注提取批注中的文字。只有一...