从一个打开的variables名工作簿复制到我从中运行macros的工作簿

我想制作一个macros，通过电子邮件从我打开的工作簿复制数据。 工作簿名称始终以“打开订单监控”开头，并以variables结尾。 我想让macros识别前三个单词，然后select正确的打开工作簿进行复制。 我想从工作簿中粘贴数据来运行macros：

Sub CopyData() Dim Wb1 As Workbook, wb2 As Workbook 'Copy from open workbook that always start with the name 'Open Order Monitoring[...]'. I need a variable Set Wb1 = XXXXXXXX 'needs a variable here I think 'Paste into the Workbook I run the macro from (aka ThisWorkbook??) Set Wb2 = ThisWorkbook 'Copy Data from Wb1.Sheet1 to Wb2.sheet2 Wb1.Sheets(1).Range("A2").Range(.Cells(1, 1), .End(xlDown).Cells(1, 39)).Copy wb2.Sheets(2).Range("B5") End Sub 

我不太了解VBA

tl; dr – 从一个打开的工作簿（带有variables名称）复制到另一个打开的工作簿（我运行macros）

Answer 1

查看打开的工作簿并select符合您的要求的工作簿：

 For Each wB in Application.Workbooks If Left(wB.Name, 21) = "Open Order Monitoring" Then Set Wb1 = wB Exit For End If Next 

这将为您提供第一个以该名称开始的开放工作簿，并将其设置为Wb1。