加入最愛 | 會員中心 | 目前分類RSS
軟體中文網首頁
您當前的位置:首頁 > 軟體問與答 > excel

如何將VB匯出檔案至EXCEL?

文章均由熱心網友提供,若有不適請聯絡刪除
.

請問我希望在VB書料資料,儲存後會傳至EXCEL
但是執行的時候就是有問題
煩請高手幫幫忙,幫我看一下是哪裡錯了~~>"<感激不盡


Imports Microsoft.Office.InteropPublic Class Form2



    ProcessExcel() '存取Excel

    End Sub

    Sub ProcessExcel()

        Dim oExcel As Excel.ApplicationClass
        Dim oBook As Excel.WorkbookClass
        Dim oBooks As Excel.Workbooks
        Dim osheet1 As Excel.Worksheets


        Try

        '建立Excel物件並開啟C:\DATA.xls中的Sheet1
        oExcel = CreateObject("Excel.Application")
        oExcel.Visible = False
        oBooks = oExcel.Workbooks
        oBook = oBooks.Open(Application.StartupPath & "\DATA")  
        osheet1 = oBook.Worksheets("案例")

        '禁止顯示對話框和警告消息
        oExcel.DisplayAlerts = False
        '取消任務欄中的窗口選項
        oExcel.ShowWindowsInTaskbar = False

        
        osheet1.Cells(2, 2).value = sub_name
        osheet1.Cells(2, 3).value = department
        osheet1.Cells(2, 4).value = phone
        osheet1.Cells(2, 5).value = mail
        osheet1.Cells(2, 6).value = situation
        osheet1.Cells(2, 7).value = way
        osheet1.Cells(2, 8).value = remark


          oExcel.SaveWorkspace() 
     


      
      oBook.Close(False)
      oBook = Nothing 
      oBooks = Nothing 
      oExcel.Quit()
        System.Runtime.InteropServices.Marshal.ReleaseComObject(oExcel)
       oExcel = Nothing 

        Catch ex As Exception

           End Try


    End Sub
End Class


請在資料寫入前先取得目前已經使用的列數加一,定義如下iSo軟體中文網
Dim now_row As IntegeriSo軟體中文網
 now_row  = osheet1.UsedRange.Rows.Count + 1iSo軟體中文網
iSo軟體中文網
再修改輸出的程式碼如下:iSo軟體中文網
osheet1.Cells(now_row , 2).value = sub_nameiSo軟體中文網
osheet1.Cells(now_row , 3).value = departmentiSo軟體中文網
osheet1.Cells(now_row , 4).value = phoneiSo軟體中文網
osheet1.Cells(now_row , 5).value = mailiSo軟體中文網
osheet1.Cells(now_row , 6).value = situationiSo軟體中文網
osheet1.Cells(now_row , 7).value = wayiSo軟體中文網
osheet1.Cells(now_row , 8).value = remarkiSo軟體中文網


comments powered by Disqus
一定要學
廣告贊助
最後更新
最多人看