VB引入EXCEL功能

mhfo

VB本身提自動化功能可以讀寫EXCEL表，其方法如下：
   
從 "專案" 功能表中選擇 "設定引用項目" 欄；選擇Microsoft Excel 9.0 Object Library（EXCEL2000），然後選擇"確定"。表示在程式中要引用EXCEL類型庫。


Microsoft Excel 9.0 Object Library（EXCEL2000)視已裝於電腦上的Office excel的版本不同而不同

Excel 每個工作表，欄位(column) 最多就 256 個，列(row) 最多就 65536 個
所以所有欄位為 65536 * 256
如果想要知道，正使用的工作表目前有使用範圍，做法如下：
Dim myRange as Excel.Range
Dim rowFrist as integer, colFirst as integer
Dim rowLast as integer, colLast as integer
Set myRange = MyXlsApp.ActiveWorkBook.ActiveSheet.UsedRange
rowFirst = myRange.Cells(1).Row
colFrist = myRange.Cells(1).Column
rowLast = myRange.Cells(myRange.Cells.Count).Row
colLast = myRange.Cells(myRange.Cells.Count).Column


  不存檔做法：
Dim myWorkBook as Excel.WorkBook
For Each myWorkBook In MyXlsApp.Workbooks
myWorkbook.Close SaveChanges:=False
'^^^^^^^^^^^^^
Next



再請教一個問題，當我用vb開excel檔，
在結束vb程式後，按下Ctrl + Alt + Del後，
會存在一個名為excel的程序，每執行一次程式就
會增一個，不知要如何消除??

釋放excel:
MyXlsApp.quit
Set MyXlsApp = Nothing