從VB中的Datagride中向excel導入數據

2019-11-18 17:51:54

字體：大中小

來源：轉載

供稿：網友

程序需要，我在網上找了很久才找到，剛剛把程序寫好，并加寫了注釋，希望能幫助大家
再寫程序前先引用
microsoftExcel11.0objectLibrary
我看到的文章是10.0的，我這是office2003是11.0，只要安了excel就有這個引用~
application")
Setexwbook=Nothing
Setexsheet=Nothing
Setexwbook=ex.Workbooks().Add
Setexsheet=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為記錄個數使用循環將數據全部添加
Fori=1ToAdodc1.Recordset.RecordCount
j=3 i
'k為數據列數
Fork=0To11
'通過使用變量k和j變換單元格位置
q=Chr(99 k)&j
'將datagrid1的數據放到單元格內
ex.Range(q).Value=DataGrid1.Columns(k)
Nextk
'指針下移
IfAdodc1.Recordset.EOF=FalseThen
Adodc1.Recordset.MoveNext
EndIf
Nexti

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

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