VBA打開任何工作簿

Question

我有一個宏從特定文件夾打開電子表格，並將輸出保存到另一個工作簿中名爲Sheet1的工作表中。如果文件名被稱爲「MyFile.xls」，該宏可以工作，但我希望它能夠在任何文件名上運行，但它必須具有「Book2」工作表。

這裏是我的代碼：

Dim source As Workbook 
Dim output As Workbook 
Dim sourceSheet as WorkSheet 
Dim outputSheet as WorkSheet 
Dim file As String 
file = "C:\Spreadsheets\MyFile.xls" 'I would like it to handle any files from any location' 

Set output = ThisWorkBook 
output.Activate 

If Len(Dir$(file)) > 0 Then 
    Set source = workbooks.Open(file) 

Set sourceSheet = source.Worksheets("Book2") 'Must only run if the sheet is called Book2' 
Set outputSheet = output.Worksheets("Sheet1") 'Saves sheets into a new sheet called Sheet1' 

End Sub 

Answer 1

這是你想什麼呢？ （TRIED AND TESTED）

Sub Sample() 
    Dim source As Workbook, output As Workbook 
    Dim sourceSheet As Worksheet, outputSheet As Worksheet 

    Dim File 

    '~~> Show a dialog to open any excel file 
    File = Application.GetOpenFilename("Excel Files (*.xls*), *.xls*") 

    If File = False Then Exit Sub 

    Set output = ThisWorkbook 

    If Len(Dir$(File)) > 0 Then 
     Set source = Workbooks.Open(File) 

     '~~> Error check to see if the workbook has that sheet 
     On Error Resume Next 
     Set sourceSheet = source.Worksheets("Book2") 

     If Err.Number = 0 Then 

      Set outputSheet = output.Worksheets("Sheet1") 
      ' 
      '~~> Rest of your code 
      ' 
     Else 
      MsgBox "Not found" 
      source.Close SaveChanges:=False 
     End If 
     On Error GoTo 0 
    End If 
End Sub