复制工作表的每从一个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编辑器顶部的“插入”菜单来插入新的模块。