VBA Excel-2010如何向外部工作簿添加数据

在VBA Excel-2010中，可以通过以下步骤向外部工作簿添加数据：

打开VBA编辑器：按下Alt + F11打开VBA编辑器。
引用外部工作簿：在VBA编辑器中，点击“工具”菜单，选择“引用”，勾选“Microsoft Excel XX.X Object Library”，其中XX.X表示Excel的版本号，然后点击“确定”。
编写VBA代码：在VBA编辑器中，选择要添加数据的工作簿，然后在代码窗口中编写以下代码：

Sub AddDataToExternalWorkbook()
    Dim wb As Workbook
    Dim ws As Worksheet
    Dim externalWB As Workbook
    Dim externalWS As Worksheet
    Dim lastRow As Long
    
    ' 设置外部工作簿路径和文件名
    Set externalWB = Workbooks.Open("C:\Path\To\ExternalWorkbook.xlsx")
    
    ' 设置外部工作簿中的工作表
    Set externalWS = externalWB.Worksheets("Sheet1")
    
    ' 设置当前工作簿和工作表
    Set wb = ThisWorkbook
    Set ws = wb.Worksheets("Sheet1")
    
    ' 获取当前工作簿中最后一行的行号
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    
    ' 将数据复制到外部工作簿中的下一行
    ws.Range("A1:B" & lastRow).Copy externalWS.Range("A" & externalWS.Cells(externalWS.Rows.Count, "A").End(xlUp).Row + 1)
    
    ' 关闭并保存外部工作簿
    externalWB.Close SaveChanges:=True
    
    ' 清空对象引用
    Set externalWS = Nothing
    Set externalWB = Nothing
    Set ws = Nothing
    Set wb = Nothing
End Sub

运行VBA代码：按下F5运行VBA代码，数据将被添加到外部工作簿的下一行。

上述代码中，首先通过Workbooks.Open方法打开外部工作簿，然后使用Worksheets属性获取外部工作簿中的工作表。接下来，通过ThisWorkbook获取当前工作簿，再使用Worksheets属性获取当前工作簿中的工作表。然后，通过Range和Copy方法将当前工作簿中的数据复制到外部工作簿中的下一行。最后，使用Close方法关闭并保存外部工作簿，并清空对象引用。

推荐的腾讯云相关产品：腾讯云对象存储（COS），它是一种安全、低成本、高可靠的云存储服务，适用于存储和处理大规模非结构化数据。您可以通过以下链接了解更多信息：腾讯云对象存储（COS）

请注意，以上答案仅供参考，具体实现方式可能因个人需求和环境而异。