excel vba：将单元格值从一个工作簿复制到另一个工作簿？答案

【问题标题】：excel vba: copy cell value from one workbook to another?excel vba：将单元格值从一个工作簿复制到另一个工作簿？
【发布时间】：2014-12-08 12:02:59
【问题描述】：

当在BA 列中单击文本“发送调查”时，我试图从工作表“SupplierTracking”的活动行中复制单元格 b 中的值并将其粘贴到我的其他工作簿上的单元格 A2 'Data' 表上的'Supplier Survey'。

由于某种原因，我没有收到任何错误，但是没有任何内容被粘贴到我其他工作簿上的单元格 A2 中。

谁能告诉我哪里出错了。在此先感谢

If Target.Column = Range("BA1").Column And Range("BA" & ActiveCell.Row).Value = "Send Survey" Then
Application.ScreenUpdating = False
Dim wb As Workbook
Dim ws1112 As Worksheet
Dim ws2221 As Worksheet
Set ws1112 = Sheets("SupplierTracking")
Set wb = Workbooks.Open("\\{server address}\assets\Supplier Survey.xls")
Set ws2221 = wb.Sheets("Data")
ws2221.Range("A2").Value = ws1112.Range("B" & ActiveCell.Row).Value
'Optional if you want to close the workbook afterwards
wb.Close SaveChanges:=True
Application.ScreenUpdating = True
End If

【问题讨论】：

当“文本被点击”时，将要发送到Supplier Survey工作簿的单元格的值传递到variable，然后打开工作簿并将变量值放入所需的单元格.

标签： vba excel copy

【解决方案1】：

我设法解决了我的问题的答案，我需要像这样将 activeCell.Row 保存为字符串变量

If Target.Column = Range("BA1").Column And Range("BA" & ActiveCell.Row).Value = "Send Survey" Then

Dim wb As Workbook
Dim ws1112 As Worksheet
Dim ws2221 As Worksheet
Dim s As String
Dim r As String
Set ws1112 = Sheets("SupplierTracking")
s = ws1112.Range("B" & ActiveCell.Row).Value
r = ws1112.Range("C" & ActiveCell.Row).Value
Set wb = Workbooks.Open("\\UKSH000-File06\Purchasing\New_Supplier_Set_Ups_&_Audits\assets\Supplier Survey.xls")
Set ws2221 = wb.Sheets("Data")

ws2221.Range("A2").Value = s
ws2221.Range("B2").Value = r
'Optional if you want to close the workbook afterwards
wb.Close SaveChanges:=True

End If

【讨论】：