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

Question

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

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

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

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") 

我附上下面作为源文件和目标文件我希望他们看起来像是成功运行的结尾。

Source File

Target File

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