複製工作表的每從一個excel文件到另一個

Question

到這一點，可能容易解決的問題，但沒有任何編程技能，其對我來說很難破解......

我做一個excel一個按鈕文件，宏分配給它。

它應該做的：

1. 再打開一個XLS文件，用戶可以對硬盤
2. 副本每片從打開的文件搜索
3. 將其粘貼到原來的文件，並關閉一個是從中複製而來的。

到目前爲止，我得到這個：

Sub Importfile() 

Dim sFile As String 
Dim wb As Workbook 

sFile = Application.GetOpenFilename("*.xls,*.xls") 

If sFile <> "False" Then 
    Set wb = Workbooks.Open(sFile) 


    'Copy and paste code , where I dont know what to do 




    wb.Close 
End If 

End Sub 

Answer 1

你的示例代碼是正確的，看着錄製的宏代碼應該向您展示瞭如何使用worksheet.copy方法。使用它你只需要遍歷新打開的工作簿中的所有工作表並將它們複製到原始工作簿。

我已經使用了一個For Each，你也可以只是一個普通的For或任何其他你喜歡的循環。

Sub Importfile() 

Dim sFile As String 
Dim wb As Workbook 
Dim ws As Worksheet 

sFile = Application.GetOpenFilename("*.xls,*.xls") 

If sFile <> "False" Then 
    Set wb = Workbooks.Open(sFile) 

    For Each ws In wb.Worksheets 
     ws.Copy before:=ThisWorkbook.Worksheets(1) 
    Next ws 

    wb.Close 
End If 

End Sub 

該宏對我來說工作正常！請確保您已將代碼放置在正確的位置。

在下面的「第一冊」的圖像是原來的片的宏代碼應被插入到「模塊」（要複製片到所述一個）（紅色正方形）和不任何的那些的在橙色的廣場。如果您沒有「模塊1」（或任何其他），則需要通過查看vba編輯器頂部的「插入」菜單來插入新的模塊。