使用VBA將單元格值複製到Excel中的模板表中

Question

當前我正在使用主Excel工作簿，其中會員資格信息輸入到集合範圍中。 「成員」是指添加成員編號的單元。然後

輸入的信息需要通過

"folderPath & "\Templates\invoice.xlsx"", 

當代碼到達故障發生轉移/複製到發票模板，表示

"Cells.Range("B11").Value = Range("Member").Value" 

注：「會員」是主工作表和「B11」在模板上。

以前用戶窗體用於輸入數據並從那裏傳輸到模板。下面的代碼在這種情況下工作。 但是，由於將其稍微調整/調整爲適用於Excel工作表，因此它失敗了。

大約有10多個單元需要複製，因此一個有效的方法是首選。 我已經研究過這一點，至今尚未找到「完美」的答案。

Dim wb As Workbook 
Set wb = Workbooks.Open(folderPath & "\Templates\invoice.xlsx") 
'copy data to the template 
Cells.Range("B11").Value = Range("Member").Value 

Answer 1

您需要提及從哪個工作簿時需要複製並在您粘貼像

Dim wb As Workbook, wbk As Workbook, wbk1 As Workbook 
 
Set wb = Workbooks.Open(folderPath & "\Templates\invoice.xlsx") 
 

 
Set wbk = Workbooks("invoice.xlsx") 
 
'repalce your soruce workbook name with correct extension xlsm 
 
Set wbk1 = Workbooks("sorce.xlsx") 
 
'please change the sheet index with name as you wish 
 
wbk.Sheets(1).Cells.Range("B11").Value = wbk1.Sheets(1).Cells.Range("Member").Value

希望這是你想要的:)

Answer 2

使用下面的代碼進行復制細胞

Dim xlwb As Workbook  
Set xlws = xlwb.Worksheets("Sheet1") 
xlws.Cells(1, 3) = (xlws.Cells(1, 1))