Asp讀寫操作Excel文件

ASP讀取Excel文件的數據，按ASP網頁的格式顯示和傳回更新。這種方法我在CSDN上已有帖子歡迎瀏覽：）  
  下麵是第2種方法的要點供您參考  
  dim   xlApp,myWorkbook,strFileName,strAppPath,strFilePath,strFullPath  
  dim   myWorksheet1,myWorksheet2,myWorksheet3,myWorksheet4,myWorksheet5,myWorksheet6  
  set   xlApp   =   Server.CreateObject("Excel.Application")  
  xlApp.Visible   =   false  
  set   myWorkbook   =   xlApp.Workbooks.Add  
  '創建多個工作表在一個Excel文件裏  
  set   myWorksheet1   =   myWorkbook.Worksheets(1)  
  set   myWorksheet2=myWorkbook.Worksheets(2)  
  set   myWorksheet3=myWorkbook.Worksheets(3)    
  set   myWorksheet4=myWorkbook.Worksheets.Add'(4)'extension  
  set   myWorksheet5=myWorkbook.Worksheets.Add'(5)  
  set   myWorksheet6=myWorkbook.Worksheets.Add'(6)  
  ...  
  '更新/賦值  
  myWorksheet1.Cells(1,1).Value="表1第1行第1列的值"，也可以寫成  
  myWorksheet1.Range("A1").Value="表1第1行第1列的值"  
   
  myWorksheet1.Cells(1,2).Value="表1第1行第2列的值"  
  myWorksheet1.Range("B1").Value="表1第1行第2列的值"  
   
  myWorksheet1.Cells(2,1).Value="表1第2行第1列的值"  
  ...  
  myWorksheet3.Cells(3,2).Value="表3第3行第2列的值"  
  ...  
  '保存文件  
  strFileName   =   Session.SessionID   &   ".xls"  
  strAppPath   =   Request.ServerVariables("PATH_TRANSLATED")  
  strAppPath   =   Left(strAppPath,   InstrRev(strAppPath,   "\"))  
  strFullPath   =   strAppPath   &   strFileName  
   
  myWorkbook.SaveAs(strFullPath)  
  '關閉  
  myWorkbook.Close  
  xlApp.Quit  
  set   myWorksheet   =   Nothing  
  set   myWorkbook   =   Nothing  
  set   myxlApp   =   Nothing   
   
本文版权：http://www.ndfweb.cn/news-445.html