將數據從一個工作簿復制到另一個工作簿

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