引用时要怎么写
1.插入一个模块或在已有的模块最上面一行定义一个全局变量
比如: Public iFileName As String
2.在这个工作薄的其他模块中都可以引用这个变量
比如:(先执行一次test1,再执行test2)
Sub test1()
'打开一个选择文件的对话框
iFileName = Application.GetOpenFilename
End Sub
Sub test2()
If iFileName = "False" Then
MsgBox "没有选择文件!"
Else
wz = InStrRev(iFileName, "\")
Path = Left(iFileName, wz)
fname = Right(iFileName, Len(iFileName) - wz)
MsgBox "选择的文件名为:" & fname & vbCrLf & "路径为:" & Path
End If
End Sub
比如: Public iFileName As String
2.在这个工作薄的其他模块中都可以引用这个变量
比如:(先执行一次test1,再执行test2)
Sub test1()
'打开一个选择文件的对话框
iFileName = Application.GetOpenFilename
End Sub
Sub test2()
If iFileName = "False" Then
MsgBox "没有选择文件!"
Else
wz = InStrRev(iFileName, "\")
Path = Left(iFileName, wz)
fname = Right(iFileName, Len(iFileName) - wz)
MsgBox "选择的文件名为:" & fname & vbCrLf & "路径为:" & Path
End If
End Sub
温馨提示:答案为网友推荐,仅供参考
第1个回答 2020-12-11
'在文件对话框对中返回选择一个文件夹的路径. Public Function ChooseFolder() As String Dim dlgOpen As FileDialog Set dlgOpen = Application.FileDialog(msoFileDialogFolderPicker) With dlgOpen If .Show = -1 Then ChooseFolder = .SelectedItems(1)End IfEnd With Set dlgOpen = Nothing End Function '-------------------------------------------------------- '在文件对话框对中,选择一个文件。
搜索
如何生成文件路径
vba编程课程免费全套
打开文档用什么软件
文档的目录如何生成
python和vba区别
怎么让目录自动生成
搜索
如何生成文件路径
vba编程课程免费全套
打开文档用什么软件
文档的目录如何生成
python和vba区别
怎么让目录自动生成
第2个回答 2012-06-19
fname = Application.GetOpenFilename("Microsoft Excel(*.xls;*.xlsx;*.xlsm),*.xls;*.xlsx;*.xlsm")
If fname = "False" Then
Exit Sub
Else
msgbox fname
End If
If fname = "False" Then
Exit Sub
Else
msgbox fname
End If
第3个回答 2012-06-19
不是很清楚你想问什么,下面这段代码或许可以帮到你。
Sub getroot()
yourFile = Application.GetOpenFilename
MsgBox yourFile
Workbooks.Open Filename:=yourFile
End Sub
Sub getroot()
yourFile = Application.GetOpenFilename
MsgBox yourFile
Workbooks.Open Filename:=yourFile
End Sub
第4个回答 2012-06-19
定义全局变量
public *** as ***
public *** as ***