如何在vb中将一个已经存在的excel文件中的内容复制到一个新建的excel文件中去？

Question

可以复制整个的Sheet或者所有的单元格

Answer 1

可以参考excel中的帮助文件中的编程信息一节。很详细的。

Answer 2

FileCopy App.Path + “表1", App.Path + "表2"

Answer 3

试试！
dim App,filetemp,sheet,sourcefile
Set App = CreateObject("Excel.Application")
App.Visible = False
sourcefile = server.Mappath("template.xls")     
Set filetemp = xlApp.Workbooks.Open(strsource)
Set sheet = filetemp.Worksheets(1)xlsheet.Range ( "B10" ).Value = "Name"        dim filepathname,strAppPath
filepathname = session.sessionID+cstr(Timer)+".xls"
strAppPath = server.Mappath("..\")+"\Temp\"      
strAppPath=strAppPath+filepathname
filetemp.Saveas strAppPath
filetemp.close()
set sheet = nothing
set filetemp = nothing
App.quit

Answer 4

复制tempXlSheet中A1:E100范围的数据
tempRange="A1:E100"
tempxlSheet.Range(tempRange).Copy粘贴到xlSheet另一个工作表中
tempRange="A1"
xlSheet.Range(tempRange).PasteSpecial xlPasteValues其他请参考帮助文件！
祝你好运！