0

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

2 回答 2

0

使用以下代码复制单元格

Dim xlwb As Workbook    
Set xlws = xlwb.Worksheets("Sheet1")
xlws.Cells(1, 3) = (xlws.Cells(1, 1))
于 2016-01-12T04:48:12.560 回答
0

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

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

希望这是你想要的:)

于 2016-01-12T05:52:28.550 回答