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

谢谢 问题点数：100、回复次数：7Top

1 楼syqbc（syqbc）回复于 2002-06-13 08:39:39 得分 0

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

2 楼netty（程序员的眼睛。魔术师的手。）回复于 2002-06-13 08:44:38 得分 0

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

3 楼Zhang_1978（小卿）回复于 2002-06-13 09:21:09 得分 0

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

4 楼footballboy（郑创斌）回复于 2002-06-13 09:27:43 得分 0

你可以录制一段区域选择、复制、粘贴的宏，看看代码就明白了Top

5 楼daehappy（追求120%结贴）回复于 2002-06-13 22:24:35 得分 0

up!关注！Top

6 楼robin_xin_xin（鳄鱼宝宝）回复于 2002-06-16 08:11:06 得分 100

试试！  
  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  
  Top

7 楼icy_csdn（）回复于 2002-06-16 08:24:10 得分 0

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

相关问题

• 文件
• filetemp
• temprange
• strapppath
• 复制
• xlsheet
• app
• sheet
• range
• set

• 帖主：yezimianqing
• robin_xin_xin

• Visual Basic类图书
• Visual Basic类源码下载