我正在尝试一个按钮,当按下该按钮时,会提示用户打开csv文件,然后在csv文件上自动执行其他一些操作。下面是我目前正在使用的代码:
Sub MainMacro()
Dim fNameAndPath As Variant
fNameAndPath = Application.GetOpenFilename(FileFilter:="Excel Files (*.csv), *.csv", Title:="Select File To Be Opened")
If fNameAndPath = False Then Exit Sub
Workbooks.Open Filename:=fNameAndPath
'Sheets.Add After:=Sheets(Sheets.Count)
'ActiveSheet.name = fNameAndPath
Call Macro1
Call Macro2
Call Macro3
Call Macro4
End Sub
把它打开,打开csv文件,我希望它在选项卡中打开,这样Marco1 Marco2...
就可以执行各自的任务。因此,该按钮将在用户随后加载的新活动工作表上执行所有MainMacro()操作。
发布于 2016-06-09 09:31:46
此代码将打开csv,然后按照您的意愿将工作表复制到原始工作簿中。在将工作表复制到目标工作簿时,复制的工作表也将激活。
Sub MainMacro()
Dim csvWB As Workbook
Dim fNameAndPath As Variant
fNameAndPath = Application.GetOpenFilename(FileFilter:="Excel Files (*.csv), *.csv", Title:="Select File To Be Opened")
If fNameAndPath = False Then Exit Sub
Set csvWB = Workbooks.Open(Filename:=fNameAndPath)
csvWB.Worksheets(1).Copy Before:=ThisWorkbook.Worksheets(1)
csvWB.Close
Call Macro1
Call Macro2
Call Macro3
Call Macro4
End Sub
当然,根据宏1-4的实际操作,在不同的工作簿中打开它并对其执行宏可能更容易吗?
https://stackoverflow.com/questions/37731385
复制相似问题