將數據導出到多個Excel表格

Question

我使用下面的代碼將我的列表視圖導出到Excelsheet，但問題是我有多個列表視圖，我必須在同一個Excel文件的不同工作表中導出。 。 。 。 。

Dim flnameSaveAs As String = System.IO.Path.GetFileName(Main.spath1) 
'Save Files name 
Dim extension As String 
    extension = Path.GetExtension(Main.spath1) 

Dim file As String = System.IO.Path.GetFileName(Main.spath1) 
Dim FinenameA As String = System.IO.Path.GetDirectoryName(Main.spath1) 

Dim savnames As String 
savnames = file.Substring(0, Len(file) - Len(extension)) 

Dim ExportSheet As String 
    ExportSheet = deskPath + "\Cel_ID_TimeLine.txt" 

    Dim lvi As ListViewItem 
    Dim sb As New System.Text.StringBuilder 

    Dim sbhd As New System.Text.StringBuilder 
    Dim columns As Integer = lvCidTimeLine.Columns.Count 

    For ixhd As Integer = 0 To lvCidTimeLine.Columns.Count - 1 
     sbhd.Append(lvCidTimeLine.Columns(ixhd).Text) 
     sbhd.Append(vbTab) 
    Next 

    sb.Append(vbCrLf) 

    For Each lvi In lvCidTimeLine.Items 
     For ix As Integer = 0 To lvi.SubItems.Count - 1 
      sb.Append(lvi.SubItems(ix).Text) 
      If ix < lvi.SubItems.Count - 1 Then 
       sb.Append(vbTab) 
      Else 
       sb.Append(vbCrLf) 
      End If 
     Next 
    Next 

    Dim sw As New StreamWriter(ExportSheet) 
    sw.Write(sbhd.ToString) 
    sw.Write(sb.ToString) 
    sw.Close() 


    Dim oExcel As Excel.Application 

    ' Create the spreadsheet 

    oExcel = CreateObject("Excel.Application") 

    oExcel.Workbooks.OpenText(ExportSheet, , , , -4142, , True) 
    oExcel.Cells.EntireColumn.AutoFit() 

    oExcel.ActiveWorkbook.SaveAs(savpath + "\" + savnames + ".xls", -4143) 
    oExcel.Quit() 
    oExcel = Nothing 

那麼你有什麼想法如何添加另一個工作表並導出另一個列表視圖？

Answer 1

嘗試這個代碼，而不是

Try 
     Dim objExcel As New Excel.Application 
     Dim bkWorkBook As Excel.Workbook 
     Dim shWorkSheet As Excel.Worksheet 
     Dim shWorkSheet1 As Excel.Worksheet 

     Dim i As Integer 
     Dim j As Integer 

     objExcel = New Excel.Application 
     bkWorkBook = objExcel.Workbooks.Add 
     shWorkSheet = CType(bkWorkBook.ActiveSheet, Excel.Worksheet) 

     For i = 0 To lv1.Columns.Count - 1 
      shWorkSheet.Cells(1, i + 1) = lv1.Columns(i).Text 
     Next 
     For i = 0 To lv1.Items.Count - 1 
      For j = 0 To lv1.Items(i).SubItems.Count - 1 
       shWorkSheet.Cells(i + 2, j + 1) = lv1.Items(i).SubItems(j).Text 
      Next 
     Next 

     shWorkSheet1 = bkWorkBook.Worksheets.Add(, shWorkSheet, ,) 

     For i = 0 To lv2.Columns.Count - 1 
      shWorkSheet1.Cells(1, i + 1) = lv2.Columns(i).Text 
     Next 
     For i = 0 To lv2.Items.Count - 1 
      For j = 0 To lv2.Items(i).SubItems.Count - 1 
       shWorkSheet1.Cells(i + 2, j + 1) = lv2.Items(i).SubItems(j).Text 
      Next 
     Next 


     objExcel.Visible = False 
     objExcel.Application.DisplayAlerts = False 

     objExcel.ActiveWorkbook.SaveAs(savpath + "\" + savnames + "_1" + ".xls", -4143) 
     objExcel.Quit() 

     objExcel = Nothing 

    Catch ex As Exception 
     MsgBox(ex.ToString) 
    End Try 

    Dim proc As System.Diagnostics.Process 
    For Each proc In System.Diagnostics.Process.GetProcessesByName("EXCEL") 
     proc.Kill() 
    Next 

Answer 2

你需要添加到Sheets集合。 Interop Excel Sheets