怎么样用在一个已有的xls文件中新建一个表单，并将另一个表单的内容完全copy过去！

Question

我在做EXCEL宏过程中遇到一个问题
不知道如何在当前的EXCEL中去操作另外一个EXCEL文件（有一个表单），在该EXCEL文件中另外创建一个表单，并将已有的表单的内容完全copy至新建的表单中！谢谢！

Answer 1

priate sub test1()
dim xlapp as new excel.application
dim xlsheet as excel.worksheet
xlapp.workbooks.open "excel文件路径"
set xlsheet=xlapp.workbooks(1).Sheets.Add
xlapp.workbooks(1).Sheets("Sheet1").Select
xlapp.workbooks(1).Cells.Select
xlapp.Selection.Copy
xlsheet.Select
xlapp.ActiveSheet.Paste
xlapp.close
set xlapp=nothing
end sub