1、定義excel
操作變數
dim objexcelfile as excel
dim objworkbook as excel
.workbook
dim objimportsheet as excel
.worksheet
2、開啟excel
程序，並開啟目標excel
檔案set objexcelfile = new excel
objexcelfile.displayalerts = false
set objworkbook = objexcelfile.workbooks.open(strfilename)
set objimportsheet = objworkbook.sheets(1)
3、獲取excel
有效區域的行和列數
intlastcolnum = objimportsheet.usedrange.columns.count
intlastrownum = objimportsheet.usedrange.rows.count
4、逐行讀取excel
中資料由於前兩行為header部分，所以需要從第三行讀取
如果第1到第10個單元格的值均為空或空格，則視為空行
for intcounti = 3 to intlastrownum
''check if empty data row
blnnullrow = true
for inti = 1 to 10
if trim$(objimportsheet.cells(intcounti, inti).value) <> "" then
blnnullrow = false
end if
next inti
若不是空行，則進行讀取動作，否則繼續向後遍歷excel
中的行if blnnullrow = false then
獲取單元格中的資料，做有效性check，並將合法資料建立為實體存入物件陣列中
objimportsheet.cells(intcounti, 1).value
……end if
next intcounti
5、退出excel
程序，並關閉excel
相關操作物件
objexcelfile.quit
set objworkbook = nothing
set objimportsheet = nothing
set objexcelfile = nothing
VB操作excel檔案
1 資料夾建立 set fso createobject scripting.filesystemobject if fso.folderexists 資料夾全路徑名 then 存在else 不存在,則建立資料夾 set f fso.createfolder 資料夾全路徑名 endif 2 判斷檔案...
VB操作excel檔案
1 資料夾建立 set fso createobject scripting.filesystemobject if fso.folderexists 資料夾全路徑名 then 存在else 不存在,則建立資料夾 set f fso.createfolder 資料夾全路徑名 endif 2 判斷檔案...
vb匯出到excel的方法
匯出 private sub command5 click if adodc2.recordset.recordcount 0 then msgbox 沒有資料可匯出！vbexclamation,匯出 else msgbox 將把資料匯出到excle裡，請稍等.vbexclamation,匯出 sc...