Sub T()FILE = Application.GetOpenFilename("Exce文件(*.xlsx),", , "请选择要合并的EXcel表"),我来为大家讲解一下关于vba通过对话框打开文件?跟着小编一起来看一看吧!

vba通过对话框打开文件(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

,