<pre id="i9ncp"></pre>

從VB中的Datagride中向excel導入數(shù)據(jù)

2019-11-18 17:51:54

字體：大中小

來源：轉載

供稿：網(wǎng)友

程序需要，我在網(wǎng)上找了很久才找到，剛剛把程序寫好，并加寫了注釋，希望能幫助大家
再寫程序前先引用
microsoftExcel11.0objectLibrary
我看到的文章是10.0的，我這是office2003是11.0，只要安了excel就有這個引用~
application")
Setexwbook=Nothing
Setexsheet=Nothing
Setexwbook=ex.Workbooks().Add
Setexsheet=exwbook.Worksheets("sheet1")

'在excel里表格的表頭，這是根據(jù)我的需要添加的標頭
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為記錄個數(shù)使用循環(huán)將數(shù)據(jù)全部添加
Fori=1ToAdodc1.Recordset.RecordCount
j=3 i
'k為數(shù)據(jù)列數(shù)
Fork=0To11
'通過使用變量k和j變換單元格位置
q=Chr(99 k)&j
'將datagrid1的數(shù)據(jù)放到單元格內
ex.Range(q).Value=DataGrid1.Columns(k)
Nextk
'指針下移
IfAdodc1.Recordset.EOF=FalseThen
Adodc1.Recordset.MoveNext
EndIf
Nexti

'保存輸入到事故信息查詢結果.xls
exwbook.SaveAs"D:/電網(wǎng)配電線路管理信息系統(tǒng)/信息查詢結果/事故信息查詢結果.xls"
'退出excel
ex.Quit
EndSub
我覺得這段程序很簡單而且很使用，使用時不要打開事故信息查詢結果.xls否則會報錯
存儲時系統(tǒng)會自動提示是否更換文件，根據(jù)自己用發(fā)來用->

上一篇：怎樣在VB中控制WORD

下一篇：用VB函數(shù)Dir實現(xiàn)遞歸搜索目錄