Sub T()FILE = Application.GetOpenFilename("Exce文件(*.xlsx),", , "请选择要合并的EXcel表")，我来为大家讲解一下关于vba通过对话框打开文件?跟着小编一起来看一看吧!
vba通过对话框打开文件
Sub T()
FILE = Application.GetOpenFilename("Exce文件(*.xlsx),", , "请选择要合并的EXcel表")
FILE_SAVE = Application.GetSaveAsFilename(, "CSV文件(*.csv),", , "输入要保存的CSV文件")
If Not FILE Then
MsgBox ("请重新选择EXCEL文件")
Else
FILE = FILE
End If
End Sub
,
