0
我已經知道如何使用openfiledialog保存在excel中。但我想要發生的是,當我保存另一個文件時,我希望它保存在我現有的文件中,但在另一張表中。你們能幫我嗎?保存listview數據到相同的excel文件,但不同的表格
這是我救了
Public Sub saveExcelFile(ByVal FileName As String)
Dim xls As New Excel.Application
Dim sheet As Excel.Worksheet
Dim i As Integer
xls.Workbooks.Add()
sheet = xls.ActiveWorkbook.ActiveSheet
Dim row As Integer = 1
Dim col As Integer = 1
For Each item As ListViewItem In ListView1.Items
For i = 0 To item.SubItems.Count - 1
sheet.Cells(row, col) = item.SubItems(i).Text
col = col + 1
Next
row += 1
col = 1
Next
xls.ActiveWorkbook.SaveAs(FileName)
xls.Workbooks.Close()
xls.Quit()
End Sub
Private Sub btnsave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsave.Click
Dim saveFileDialog1 As New SaveFileDialog
saveFileDialog1.Filter = "Excel File|*.xlsx"
saveFileDialog1.Title = "Save an Excel File"
saveFileDialog1.ShowDialog()
If saveFileDialog1.FileName <> "" Then
saveExcelFile(saveFileDialog1.FileName)
End If
MessageBox.Show("Record Saved!")
End Sub
喜prasanth!你可以給我的代碼? –
你能不能給我一些代碼? :) –
@SigridAnnOmila請參閱示例代碼以創建excel。如果要使用現有文件並向其中添加一張表,請參閱最後一個鏈接 – Prasanth