将Excel工作表复制到目录中的所有工作簿

我不太熟悉VBA，所以希望有人能帮助我。 我search了一个VBAmacros，我可以编辑我的需求，但没有一个工作。

我试图将我的工作表复制到目录中的所有工作簿中。 例如，我想从工作簿“模板”的工作表与“每日”的工作表/当前工作表放入该文件夹中的所有工作簿或我在代码中select哪个文件夹。 这样，我可以轻松地将工作表复制到工作簿中，而无需手动执行数百次。

不过，我不知道从哪里开始，我所看到的似乎并不适合我。

Answer 1

打开您的模板工作簿，将正确的文件夹位置分配给loopFolder，然后试试这个：

 Sub copyWorksheet() 'this sets your template workbook/worksheet Dim copyWB As Workbook Dim copyWS As Worksheet Set copyWB = Workbooks("Template") Set copyWS = copyWB.Sheets("Daily") 'this creates a collection of all filenames to be processed Dim loopFolder As String Dim fileNm As Variant Dim myFiles As New Collection '''don't forget the backslash before the final double-quote below loopFolder = "C:\Documents\desiredFolder\" fileNm = Dir(loopFolder & "*.xlsx") Do While fileNm <> "" myFiles.Add fileNm fileNm = Dir Loop 'this loops through all filenames and copies your copyWS to the beginning Dim wb As Workbook For Each fileNm In myFiles Set wb = Workbooks.Open(fileName:=(loopFolder & fileNm)) copyWS.Copy after:=wb.Sheets(1) wb.Save wb.Close Next End Sub