Question

目前我正在使用主要的Excel工作簿，其中会员资格信息输入到设置范围，例如“会员”是指添加会员编号的单元格。

然后需要将输入的信息传输/复制到发票模板，由

表示

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

代码到达时会出现问题

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

注意：“会员”在主工作表上，“B11”在模板表上。

以前，Userform用于输入数据并从那里传输到模板。以下代码适用于该场景。但是，由于稍微调整/调整它以在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 xlwb As Workbook    
Set xlws = xlwb.Worksheets("Sheet1")
xlws.Cells(1, 3) = (xlws.Cells(1, 1))

Answer 2

您需要提及需要复制的工作簿以及要粘贴的位置

＆＃13;

test2= re.split(r" (?:\|.*?\| ?;?)+", item[0])

＆＃13;

希望这是你想要的：）

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

2 个答案: