用VBA将单元格值复制到Excel中的模板工作表

目前，我正在使用一个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

---

使用以下代码复制单元格

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

---

您需要提到需要从哪个工作簿复制，以及要粘贴到哪里

Dim wb As工作簿、wbk As工作簿、wbk1 As工作簿
设置wb=Workbooks.Open（folderPath&“\Templates\invoice.xlsx”）
设置wbk=工作簿（“invoice.xlsx”）
'使用正确的扩展名xlsm重新拼贴您的soruce工作簿名称
设置wbk1=工作簿（“sorce.xlsx”）
'请根据需要更改名称为的工作表索引
wbk.Sheets（1）.Cells.Range（“B11”）.Value=wbk1.Sheets（1）.Cells.Range（“Member”）.Value

您介意提供一个给定原始代码的示例吗？