VB中操作Excel的一般做法(讀取)

2021-04-02 11:38:01 字數 1224 閱讀 6811

1、定義excel操作變數

dim objworkbook as excel.workbook

dim objimportsheet as excel.worksheet

2、開啟excel程序,並開啟目標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 定義excel 操作變數 dim objexcelfile as excel dim objworkbook as excel workbook dim objimportsheet as excel worksheet 2 開啟excel 程序,並開啟目標excel 檔案set objexce...

c 中的報表簡單操作(Excel)

開啟 工具 nuget程式包管理器 程式包管理器控制檯 我用的vs2015 在控制檯輸入 install package npoi 稍等片刻即可 excelhelper.cs class excelhelper datatable轉換為excel檔案 public void datatabletoe...

python操作excel中遇到的錯誤

一 permissionerror errno 13 permission denied f lp test besttest auto test homework syz automatic code day7 writing d product.xls 原因 檔案被開啟所以不能操作 解決方法 關...

C 操作Excel中的資料進行計算

本人在編寫html檔案批改程式的時候由於要用到excel進行計分,所以不可避免的要使用c 來操作excel檔案 本人想在程式中實現一份html檔案每小題批改完成之後進行總分計算,再在程式介面中突出顯示不及格的html檔案,如下 計算總成績 先確定計算總分後資料存放的位置,microsoft.offi...

delphi對於excel的一般操作

單元格設定 1.設定單元格線框 excel.activesheet.range b10 c13 borders n linestyle xlnone excel.activesheet.range b10 c13 borders n weight xlthin 邊框的型別 borders n xle...