從VB中的Datagride中向excel導入數據
2024-07-21 02:25:21
供稿：網友
本文來源于網頁設計愛好者web開發社區http://www.html.org.cn收集整理，歡迎訪問。
程序需要，我在網上找了很久才找到，剛剛把程序寫好，并加寫了注釋，希望能幫助大家
再寫程序前先引用
microsoft excel 11.0 object library
我看到的文章是10.0的，我這是office2003是11.0，只要安了excel就有這個引用~
private sub cmdsave_click()
msgbox "文件保存為: d:/電網配電線路管理信息系統/信息查詢結果/事故信息查詢結果.xls"
dim i as integer
dim j as integer
dim ex as object
dim exwbook as object
dim exsheet as object
set ex = createobject("excel.application")
set exwbook = nothing
set exsheet = nothing
set exwbook = ex.workbooks().add
set exsheet = exwbook.worksheets("sheet1")
’在excel里表格的表頭，這是根據我的需要添加的標頭
ex.range("c3").value = "日期"
ex.range("d3").value = "時間"
ex.range("e3").value = "站點"
ex.range("f3").value = "匯報人"
ex.range("g3").value = "線路雙編號"
ex.range("h3").value = "保護動作類型"
ex.range("i3").value = "事故原因"
ex.range("j3").value = "處理負責人"
ex.range("k3").value = "處理方法"
ex.range("l3").value = "處理結果"
ex.range("m3").value = "結束時間"
ex.range("n3").value = "備注"
’i為記錄個數使用循環將數據全部添加
for i = 1 to adodc1.recordset.recordcount
j = 3 + i
’k為數據列數
for k = 0 to 11
’通過使用變量k和j變換單元格位置
q = chr(99 + k) & j
’將datagrid1的數據放到單元格內
ex.range(q).value = datagrid1.columns(k)
next k
’指針下移
if adodc1.recordset.eof = false then
adodc1.recordset.movenext
end if
next i
’保存輸入到事故信息查詢結果.xls
exwbook.saveas "d:/電網配電線路管理信息系統/信息查詢結果/事故信息查詢結果.xls"
’退出excel
ex.quit
end sub
我覺得這段程序很簡單而且很使用，使用時不要打開 事故信息查詢結果.xls否則會報錯
存儲時系統會自動提示是否更換文件，根據自己用發來用
