如何在VB中调用Excel，打开Excel表？？？在线等待

我在模块内声明如下：  
  Public   DatafileName   As   String  
  Public   VBExcel   As   New   Excel.Application  
  Public   xlbook   As   New   Excel.Workbook  
  Public   xlsheet   As   New   Excel.Worksheet  
   
  调用excel表如下：  
  Private   Sub   common1_Click()  
   
          With   dlgCommonDialog  
                  .DialogTitle   =   "打开"  
                  .CancelError   =   False  
                  'ToDo:   设置   common   dialog   控件的标志和属性  
                  .Filter   =   "Excel文件   (*.xls)|*.xls"  
                  .ShowOpen  
                  If   Len(.FileName)   =   0   Then  
                          Exit   Sub  
                  End   If  
                  sFile   =   .FileName  
          End   With  
          DatafileName   =   sFile  
  Set   xlBook   =   VBExcel.Workbooks.Open(DatafileName)  
  Set   xlSheet   =   xlBook.Worksheets("Sheet1")  
  xlSheet.Activate  
  xlBook.SaveAs   (App.Path   &   "\temp.xls")  
  xlSheet.PrintOut  
  Set   VBExcel   =   Nothing  
  VBExcel.Quit  
  End   Sub  
  运行却报错说无法打开该excel文件 问题点数：100、回复次数：2Top

1 楼online（龙卷风V4.0--决战江湖(MS MVP-VB)）回复于 2002-11-05 15:54:52 得分 50

你可以用vb调用spreadsheet控件  
  可以交流www.ourfly.com  
   
  Top

2 楼of123（）回复于 2002-11-05 16:10:01 得分 50

Public   VBExcel   As   Excel.Application  
  Public   xlbook   As   Excel.Workbook  
   
  Set   xlApp   =   New   Excel.Application  
  Set   xlBook   =   xlApp.Workbooks.Open("D:\Book1.xls")Top

相关问题

• excel
• 调用
• xlbook
• vbexcel
• datafilename
• xlsheet
• 打开
• xls
• sub

• 帖主：sula_azoth
• online
• of123

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