從VB中的Datagride中向excel匯入資料

來源:互聯網
上載者:User
datagrid|excel|匯入資料   
程式需要,我在網上找了很久才找到,剛剛把程式寫好,並加寫了注釋,希望能協助大家
再寫程式前先引用
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否則會報錯
儲存時系統會自動提示是否更換檔案,根據自己用發來用

相關文章

E-Commerce Solutions

Leverage the same tools powering the Alibaba Ecosystem

Learn more >

Apsara Conference 2019

The Rise of Data Intelligence, September 25th - 27th, Hangzhou, China

Learn more >

Alibaba Cloud Free Trial

Learn and experience the power of Alibaba Cloud with a free trial worth $300-1200 USD

Learn more >

聯繫我們

該頁面正文內容均來源於網絡整理,並不代表阿里雲官方的觀點,該頁面所提到的產品和服務也與阿里云無關,如果該頁面內容對您造成了困擾,歡迎寫郵件給我們,收到郵件我們將在5個工作日內處理。

如果您發現本社區中有涉嫌抄襲的內容,歡迎發送郵件至: info-contact@alibabacloud.com 進行舉報並提供相關證據,工作人員會在 5 個工作天內聯絡您,一經查實,本站將立刻刪除涉嫌侵權內容。