Question

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

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

有人可以告诉我我哪里出错了。提前谢谢

A2

Answer 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

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

1 个答案: