我需要从一个工作簿中获取(复制)工作表并将其附加到现有的Excel文档的末尾。我写了这段代码,但它不起作用,并给出了一个错误。请帮助=)将工作表从一个工作簿复制到另一个工作簿
Public wb As Workbook 'workbook with the source sheet
Sub test()
dim wbNew as workbook 'destination workbook
Set wbNew = Workbooks.Open(Me.fileDestPathTextBox.Value)
wbNew.Sheets.Add After:=wbNew.Sheets(wbNew.Sheets.Count).Name = Me.sheetNameTextBox.Value
wb.Sheets("Souce Sheet").Copy wbNew.Sheets(Me.sheetNameTextBox.Value)
End Sub
“,并给出了一个错误“ - 什么错误? – pnuts 2015-02-10 14:24:19
我得到了运行时间1004 – 2015-02-10 14:53:41