將Excel工作表導入到活動表

Question

我有大量數據的發票。 我要導出和導入數據。 我創建了導出VBA，用於導出特定的工作表（“發票數據”）。 我已將其保存在某處。 現在，我需要將同一文件導入活動工作表。

我有這個代碼

Dim WB As Workbook
Dim SourceWB As Workbook
Dim WS As Worksheet
Dim ASheet As Worksheet

'Turns off screenupdating and events:
Application.ScreenUpdating = False
Application.EnableEvents = False

'Sets the variables:
Set WB = ActiveWorkbook
Set ASheet = ActiveSheet
Set SourceWB = Workbooks.Open(WB.Path & "\1.xlsx")  'Modify to match

'Copies each sheet of the SourceWB to the end of original wb:
For Each WS In SourceWB.Worksheets
    WS.Copy after:=WB.Sheets(WB.Sheets.Count)
Next WS

    SourceWB.Close savechanges:=False
    Set WS = Nothing
    Set SourceWB = Nothing

WB.Activate
ASheet.Select
    Set ASheet = Nothing
    Set WB = Nothing

Application.EnableEvents = True

此代碼效果很好。 但是我想選擇帶有文件打開對話框的文件

有人幫我嗎

Answer 1

終於找到了代碼。

Dim wbk1 As Workbook, wbk2 As Workbook

fileStr = Application.GetOpenFilename()

Set wbk1 = ActiveWorkbook
Set wbk2 = Workbooks.Add(fileStr)

wbk2.Sheets("invoice data").Copy After:=wbk1.Sheets(1)

感謝大伙們

Answer 2

如果您的問題是關於..如何使用文件打開對話框..您可以使用此代碼

    NewWorkbook = Application.GetOpenFilename( _  
            FileFilter:="Excel 2003 (*.xls),*.xls,Excel 2007 (*.xlsx),*.xlsx,Excel 2007 (*.xlsm),*.xlsm", _  
            Title:="Select an Excel File", _  
            MultiSelect:=File)  
    If NewWorkbook = False Then  
        Exit Sub  
    Else  
        Workbooks.Open Filename:=NewWorkbook  
    End If  

如果要選擇任何類型的文件，則可以刪除過濾器