用户使用VBA打开CSV到选项卡

我正在尝试一个button，当按下时提示用户打开一个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...可以执行各自的任务。 所以这个button会执行所有的MainMacro（）在用户然后加载新的活动表。

Answer 1

此代码将打开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 

当然，根据Macro1-4实际做了什么，在不同的工作簿中打开它可能会更容易一些，只需执行一下macros就可以了？