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