VBA 从一个Excel文件复制一行数据到另一个Excel文件
时间: 2023-09-10 21:06:39 浏览: 326
以下是使用 VBA 从一个 Excel 文件复制一行数据到另一个 Excel 文件的示例代码:
```
Sub CopyRowToAnotherWorkbook()
Dim sourceWB As Workbook
Dim destWB As Workbook
Dim sourceWS As Worksheet
Dim destWS As Worksheet
Dim sourceRow As Range
Dim destRow As Range
'打开源Excel文件
Set sourceWB = Workbooks.Open("C:\source.xlsx")
Set sourceWS = sourceWB.Worksheets("Sheet1")
'打开目标Excel文件
Set destWB = Workbooks.Open("C:\destination.xlsx")
Set destWS = destWB.Worksheets("Sheet1")
'选择要复制的行
Set sourceRow = sourceWS.Range("A2:C2") '例如,复制第2行的A列到C列
'将行复制到目标Excel文件的下一行
Set destRow = destWS.Range("A" & destWS.Cells(Rows.Count, "A").End(xlUp).Row + 1)
sourceRow.Copy destRow
'关闭文件
sourceWB.Close SaveChanges:=False
destWB.Close SaveChanges:=True
'释放对象
Set sourceRow = Nothing
Set destRow = Nothing
Set sourceWS = Nothing
Set destWS = Nothing
Set sourceWB = Nothing
Set destWB = Nothing
End Sub
```
在上面的代码中,我们首先打开源 Excel 文件和目标 Excel 文件,并选择要复制的行(在这个例子中是第二行的 A 列到 C 列)。然后将行复制到目标 Excel 文件的下一行,最后关闭文件并释放对象。请注意,如果您要复制多行,则需要在目标 Excel 文件中选择要复制的下一行。
相关推荐
![xlsm](https://img-home.csdnimg.cn/images/20210720083646.png)
![](https://img-home.csdnimg.cn/images/20210720083646.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)