一个好好玩的问题，大家来回答呀，分很高的

Question

用excel怎么updata?说说看，好吗？

Answer 1

以前写的，你看看，对你可能有用Public Sub ToExcel(title As String, LstView As ListView)
    Dim i As Integer, j As Integer
    Dim MSExcel As Variant, MSXlsWB As Variant
       
    Set MSExcel = CreateObject("Excel.Application")
    Set MSXlsWB = MSExcel.Workbooks.Add
    MSXlsWB.Worksheets(1).Name = "Sheet1"
    
    MSXlsWB.Worksheets(1).Cells(1, 1) = title         
    
    For i = 0 To LstView.ListItems.Count - 1           
    
        For j = 0 To LstView.ColumnHeaders.Count - 1   
            If (j + 1) Mod LstView.ColumnHeaders.Count <> 0 Then
               MSXlsWB.Worksheets(1).Cells(i + 2, j + 1) = LstView.ListItems(i + 1).SubItems(j + 1)
            End If
        Next
    Next
    
    MSXlsWB.Application.Visible = True
    MSXlsWB.Windows(1).Activate
    Set MSExcel = Nothing
    Set MSXlsWB = Nothing
End Sub

Answer 2

好的谢谢，cmsoft我知道问题所在了，给你加分！