Question

我正在尝试通过将数据从一个工作簿传输到另一个工作簿来节省输入数据的时间（最好是直接传输到我从中发起复制的用户表单）。

所以我有一个按钮，我的表格启动了下面的内容;

Sub CopyRangeToAnotherSheet()

Dim wbThis As Workbook
Dim wbTarget As Workbook

With Application
    .ScreenUpdating = True
    .EnableEvents = False
End With

Set wbThis = Workbooks.Open("SOURCEWORKBOOKPATH")
wbThis.Sheets("Sheet1").Range("CELLNAME").Copy

Set wbTarget = ThisWorkbook
UserForm_Initialize
wbTarget.Forms("UserForm1").Range("DESTFORMFIELD").PasteSpecial 
Paste:=xlPasteValues

wbThis.Close
UserForm_Initialize

End Sub

我设法从一个工作簿复制到另一个工作簿，但我希望将数据复制到表单文本框中。

错误

wbTarget.Forms("UserForm1").Range("DESTFORMFIELD").PasteSpecial

但我似乎无法弄清楚语法。

Answer 1

以这种方式试试。

将复制的值存储在变量

中

cell_content = wbThis.Sheets("Sheet1").Range("CELLNAME").Value
UserForm1.DESTFORMFIELD.Value = cell_content
UserForm1.Show

将数据从一个工作簿复制到另一个工作簿上的用户窗体

1 个答案: