none
多個Datagridview匯出到Excel不同的sheet該如何修改以下程式碼? 謝謝各位大大 RRS feed

  • 一般討論

  • 程式碼如下:

    請各位大大教導一下 謝謝

      '--------------以下是直接輸出到EXCEL檔案--
            Dim MyExcel As New Microsoft.Office.Interop.Excel.Application()
            Dim xlWorkBook = MyExcel.Application.Workbooks.Add()
            MyExcel.DisplayAlerts = False
            MyExcel.Visible = False
    
            '獲取標題
            Dim Cols As Integer
            For Cols = 1 To DataGridView1.Columns.Count
                MyExcel.Cells(1, Cols) = DataGridView1.Columns(Cols - 1).HeaderText
            Next
            '往excel表裡添加資料()
    
            Dim i As Integer
            For i = 0 To DataGridView1.RowCount - 1
                Dim j As Integer
                For j = 0 To DataGridView1.ColumnCount - 1
                    If Me.DataGridView1(j, i).Value Is System.DBNull.Value Or DataGridView1(j, i).Value Is Nothing Then
                        MyExcel.Cells(i + 2, j + 1) = ""
                    Else
                        MyExcel.Cells(i + 2, j + 1) = DataGridView1(j, i).Value.ToString
                    End If
                Next j
            Next i
            xlWorkSheet = xlWorkBook.Sheets.Add("測試")<----指定特定的sheet但錯誤 若沒有這行則在工作表一
            xlWorkBook.SaveAs("D:\審核_" & Format(Now, "yyyy-MM-dd") & "_TO_" & Format(DateAdd(DateInterval.Day, 14, Now), "yyyy-MM-dd") & ".xls")
            xlWorkBook.Close()


    2018年10月29日 上午 03:31

所有回覆

  • 現在有很多好工具可以用,何苦一定要用 ComInterop 的方式輸出到 excel 呢?  Comnterop 的方式沒寫好,很容易導致 memory leak。

    改用 LinqToExcel 吧,簡單方便, 參考 https://demo.tc/post/639

    LinqToExcel Source 有使用說明 (GitHub): https://github.com/paulyoder/LinqToExcel


    在現實生活中,你和誰在一起的確很重要,甚至能改變你的成長軌跡,決定你的人生成敗。 和什麼樣的人在一起,就會有什麼樣的人生。 和勤奮的人在一起,你不會懶惰; 和積極的人在一起,你不會消沈; 與智者同行,你會不同凡響; 與高人為伍,你能登上巔峰。 https://skilltree.my/


    2018年10月29日 上午 03:43
    版主
  • 謝謝大大的告知  我共有15個Dategridview

    因為這個程式是要給特定使用者使用

    所以希望按一下按鍵就可以得到它所要的答案

    2018年10月29日 上午 03:58
  • 謝謝大大的告知  我共有15個Dategridview

    因為這個程式是要給特定使用者使用

    所以希望按一下按鍵就可以得到它所要的答案


    這和 Cominterop 的關係是啥?

    在現實生活中,你和誰在一起的確很重要,甚至能改變你的成長軌跡,決定你的人生成敗。 和什麼樣的人在一起,就會有什麼樣的人生。 和勤奮的人在一起,你不會懶惰; 和積極的人在一起,你不會消沈; 與智者同行,你會不同凡響; 與高人為伍,你能登上巔峰。 https://skilltree.my/

    2018年10月29日 上午 10:21
    版主