7,785
社区成员




Dim i As Integer
Dim ex As Object
Dim ExWbook As Object
Dim ExSheet As Object
Set ex = CreateObject("Excel.Application")
Set ExWbook = Nothing
Set ExSheet = Nothing
Set ExWbook = ex.Workbooks().Add
Set ExSheet = ExWbook.Worksheets("Sheet1")
ex.Range("A" & 1).Value = ListView1.ColumnHeaders(1).Text
ex.Range("B" & 1).Value = ListView1.ColumnHeaders(2).Text
ex.Range("C" & 1).Value = ListView1.ColumnHeaders(3).Text
ex.Range("D" & 1).Value = ListView1.ColumnHeaders(4).Text
ex.Range("E" & 1).Value = ListView1.ColumnHeaders(5).Text
ex.Range("F" & 1).Value = ListView1.ColumnHeaders(6).Text
ex.Range("G" & 1).Value = ListView1.ColumnHeaders(7).Text
ex.Range("H" & 1).Value = ListView1.ColumnHeaders(8).Text
For i = 2 To ListView1.ListItems.Count + 1
ex.Range("A" & i).Value = ListView1.ListItems(i - 1).Text
ex.Range("B" & i).Value = ListView1.ListItems.Item(i - 1).SubItems(1)
ex.Range("C" & i).Value = ListView1.ListItems.Item(i - 1).SubItems(2)
ex.Range("D" & i).Value = ListView1.ListItems.Item(i - 1).SubItems(3)
ex.Range("E" & i).Value = ListView1.ListItems.Item(i - 1).SubItems(4)
ex.Range("F" & i).Value = ListView1.ListItems.Item(i - 1).SubItems(5)
ex.Range("G" & i).Value = ListView1.ListItems.Item(i - 1).SubItems(6)
ex.Range("H" & i).Value = ListView1.ListItems.Item(i - 1).SubItems(7)
Next i
ExSheet.Columns("A:H").AutoFit
On Error Resume Next
ExWbook.SaveAs App.Path & "\Excel\" & Format(Now, "yyyy-mm-dd") & ".xls"
On Error GoTo 0
ex.Quit
Set ex = Nothing