Excelmacros将某个列从一个工作簿复制到另一个工作簿

这是我第一次尝试编写VBA代码。 我正在模仿在stackoverflow上find的东西。

我想从一个工作簿中将某些列（A，B和E）复制到另一个工作簿中，还要更改某些行的字体和颜色，并编辑某些单元格中的文本（用“Group”一词replace一个长的短语）。

这是我没有改变而复制的代码：

Sub CopyColumnToWorkbook() Dim sourceColumn As Range, targetColumn As Range Set sourceColumn = Workbooks("Source").Worksheets("Sheet1").Columns("A") Set targetColumn = Workbooks("Target").Worksheets("Sheet1").Columns("A") sourceColumn.Copy Destination:=targetColumn End Sub 

我得到一个运行时错误9，并突出显示下面的行：

 Set sourceColumn = Workbooks("Source").Worksheets("Sheet1").Columns("A") 

我在下面附上源文件和目标文件，因为我希望它们看起来像是在成功运行结束时。

源文件

目标文件

Answer 1

你引用了一个不在那里的表单。 将其更改为使用其索引引用工作簿中的第一个工作表。 您也没有在文件中包含扩展名，所以在工作簿对象上也会失败。

 Sub CopyColumnToWorkbook() Dim sourceColumn As Range, targetColumn As Range Set sourceColumn = Workbooks("Source.xlsm").Worksheets(1).Columns("A") Set targetColumn = Workbooks("Target.xlsm").Worksheets(1).Columns("A") sourceColumn.Copy Destination:=targetColumn End Sub