在VB中要想呼叫Excel,需要開啟VB程式設計環境“工程”選單中的“引用”專案,並選取專案中的“MicrosoftExcel 11.0 object library”項。由於你的Excel版本不同,所以這個選項的版本號也是不同的。因為EXCEL是以層次結構組織物件的,其物件模型中含有許多不同的物件元素。第一層:Application物件,即Excel本身;第二層:workbooks物件集,指Excel的工作簿檔案第三層:worksheets物件集,表示的是Excel的一個工作表;第四層:Cells和Range物件,指向Excel工作表中的單元格。Dim xlapp As Excel.Application "Excel物件Dim xlbook As Excel.Workbook "工作簿Dim xlsheet As Excel.Worksheet "工作表Set xlapp = CreateObject("Excel.Application") "建立EXCEL物件Set xlbook = xlapp.Workbooks.Open("D:\data.xls") "開啟已經存在的data.xls工件簿檔案xlapp.Visible = True "設定EXCEL物件可見(或不可見)Set xlsheet = xlbook.Worksheets(1) "設定活動工作表""""~~~當前工作簿的第一個表,這裡也可以換成“表名”比如“Sheet1”【陣列部分自行定義】將表中某個單元格中的值賦值給一個變數,比如陣列中的一個元素arr(1,1)=xlsheet.Range("B2").Value……最後關閉:xlbook.Closexlapp.quit然後把三個物件 Set成 nothing
在VB中要想呼叫Excel,需要開啟VB程式設計環境“工程”選單中的“引用”專案,並選取專案中的“MicrosoftExcel 11.0 object library”項。由於你的Excel版本不同,所以這個選項的版本號也是不同的。因為EXCEL是以層次結構組織物件的,其物件模型中含有許多不同的物件元素。第一層:Application物件,即Excel本身;第二層:workbooks物件集,指Excel的工作簿檔案第三層:worksheets物件集,表示的是Excel的一個工作表;第四層:Cells和Range物件,指向Excel工作表中的單元格。Dim xlapp As Excel.Application "Excel物件Dim xlbook As Excel.Workbook "工作簿Dim xlsheet As Excel.Worksheet "工作表Set xlapp = CreateObject("Excel.Application") "建立EXCEL物件Set xlbook = xlapp.Workbooks.Open("D:\data.xls") "開啟已經存在的data.xls工件簿檔案xlapp.Visible = True "設定EXCEL物件可見(或不可見)Set xlsheet = xlbook.Worksheets(1) "設定活動工作表""""~~~當前工作簿的第一個表,這裡也可以換成“表名”比如“Sheet1”【陣列部分自行定義】將表中某個單元格中的值賦值給一個變數,比如陣列中的一個元素arr(1,1)=xlsheet.Range("B2").Value……最後關閉:xlbook.Closexlapp.quit然後把三個物件 Set成 nothing