打开和复制/粘贴variables命名文件

我有下面的VBA代码，它打开一个文件夹，在那里我保存具有特定名称（“11.xlsm和”2.xlsm“）的Excel文件，然后自动打开这些文件，复制他们的表格称为”数据“，并将其粘贴我的杰作“makrotochange”。

ChDir _ "Z:\1000_Entwicklung\05_PROJECT\0558000_CFT\055800L_CFT_Projektleitung\99_Arbeitsordner PL\Tanverdi, Yigit\SAA" Workbooks.Open Filename:= _ "Z:\1000_Entwicklung\05_PROJECT\0558000_CFT\055800L_CFT_Projektleitung\99_Arbeitsordner PL\Tanverdi, Yigit\SAA\11.xlsm" Workbooks.Open Filename:= _ "Z:\1000_Entwicklung\05_PROJECT\0558000_CFT\055800L_CFT_Projektleitung\99_Arbeitsordner PL\Tanverdi, Yigit\SAA\2.xlsm" Windows("makrotochange.xlsm").Activate Windows("11.xlsm").Activate sheets("data").Select sheets("data").Move After:=Workbooks("makrotochange.xlsm").sheets(23) Windows("2.xlsm").Activate sheets("data").Select sheets("data").Move After:=Workbooks("makrotochange.xlsm").sheets(24) 

我希望能够打开任何数量的variables命名文件是在

 "Z:\1000_Entwicklung\05_PROJECT\0558000_CFT\055800L_CFT_Projektleitung\99_Arbeitsordner PL\Tanverdi, Yigit\SAA" 

并复制/粘贴到我的“makrotochange.xlsm”masterworkbook。

我怎样才能做到这一点 ？

Answer 1

未经testing，因为我目前无法使用Excel。 但是，使用您提供的信息以及@Mrig提供的链接，我相信这可能是您寻找的基础。

  Sub LoopThroughFiles() Dim StrFile As String Dim WB As Workbook Dim InputFilePath As String InputFilePath = "Z:\1000_Entwicklung\05_PROJECT\0558000_CFT\055800L_CFT_Projektleitung\99_Arbeitsordner PL\Tanverdi, Yigit\SAA\" StrFile = Dir(InputFilePath & "*") Do While Len(StrFile) > 0 Set WB = Workbooks.Open(InputFilePath & StrFile) WB.Activate Sheets("data").Select Sheets("data").Move After:=Workbooks("makrotochange.xlsm").Sheets(23) StrFile = Dir() Loop End Sub 

EDITED

现在编辑代码，我可以使用Excel。

这将获取文件夹中的所有文件，打开它们，复制“数据”表，并将其移动到makrotochange.xlsm文件中的表23之后。

几点兴趣虽然。 你需要确保你的makrotochange.xlsm文件是开放的。 您需要确保所有文件都有一个名为“数据”的表。 它们将被粘贴在第23页之后。因此最后一个要粘贴的文件将是第23页旁边的文件。

玩的开心