從Macro工作簿復制和粘貼到多個Excel工作簿

Question

我正在創建一個宏，該宏將處理和格式化另存為.xlm文件的掃描（SCANfile＃.xlm），最終結果應該是經過處理的格式化工作簿，該工作簿將另存為Excel文件。 我正在工作簿中創建宏，出於討論的目的，我將其稱為SCANMacro，目的是與我當時打開的任何SCANfile＃工作簿同時打開。

Sub Copy and Paste Data ()
'select cell on target workbook/worksheet
Range("X1").Select
'  
'select the data from the saved  workbook that the macro runs from
'
Columns("SCAMNmacro.xlsm C:G").Select
Selection.Copy
'
'Paste into SCANfile#.xlm.xml
'
Windows("SCANFILE01.xml").Activate
Range("X1").Select
ActiveSheet.Paste

End Sub

只要我從創建它時打開的SCANfile01.xml中運行它，就可以很好地工作。 一旦我使用其他掃描文件打開啟用了宏的工作簿，它就會出錯。

我該如何設置以便宏可在任何ScanSheet上使用？ 我嘗試使用Thisworkbook和Activeworkbook均無濟於事。 我不是程序員，因此大部分記錄都是通過在VBA編輯器中進行調整來記錄的。

Answer 1

使用工作簿變量來引用適當的工作簿：

Dim MacroSheet as Workbook
Set MacroSheet = ThisWorkbook

Dim ScanFile as Workbook
Set ScanFile = Workbooks.Open("PATH TO YOUR FILE")

然后，您可以像這樣使用它：

MacroSheet.Columns("G").Copy