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

【问题标题】：Copying data from one workbook into a userform on another将数据从一个工作簿复制到另一个工作簿的用户窗体中
【发布时间】：2018-03-26 19:17:46
【问题描述】：

我试图通过将数据从一个工作簿转移到另一个工作簿来节省输入数据的时间（最好直接转移到我已从中启动复制的用户窗体上）。

所以我有一个按钮，我的表单可以启动以下内容；

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

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

【问题讨论】：

标签： excel vba copy userform

【解决方案1】：

试试这个方法。

将复制的值存储在变量中

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

【讨论】：