怎样把ListView(lvwReport)中的每一单元格的值取出来？

Question

为什么没人理？CSDN现在到底怎么了？

Answer 1

Public Sub OutPutExcel(sTitle As String, lvwList As ListView, Optional sAddCond As String = "", Optional XtChart As MSChart20Lib.MSChart)
'------------------------$$$$$$$ In Proc
   If lvwList.ListItems.Count = 0 Then GoTo ExitProc
   
   Screen.MousePointer = vbHourglass
   
'   On Error GoTo eerer
    
    Dim vbExcel As Object
    Dim vbWorkSheet As Object
    Dim RG As Object
   
    
     
    Set vbExcel = CreateObject("Excel.application")
     
    vbExcel.Workbooks.Add
    vbExcel.Sheets.Add
    Set vbWorkSheet = vbExcel.ActiveSheet
    vbWorkSheet.Name = "." & App.Title
    vbWorkSheet.Cells(1, 3).NumberFormatLocal = "@"
    vbWorkSheet.Cells(1, 3).Value = Trim(sTitle$)
    vbWorkSheet.Cells(1, 3).Font.Size = 15
    vbWorkSheet.Cells(1, 3).Font.Bold = True
    
    Dim rr%, kk%
    rr = 3
    If sAddCond <> "" Then
        vbWorkSheet.Cells(3, 2).NumberFormatLocal = "@"
        vbWorkSheet.Cells(3, 2).Value = Trim(sAddCond)
        rr = 4
    End If
    
   
   Dim LC&
   Dim LC1&
   Dim tlngAlign As Long
   
   For LC = 1 To lvwList.ColumnHeaders.Count
        With vbWorkSheet.Cells(rr, LC + 1)
            .NumberFormatLocal = "@"
            .Value = lvwList.ColumnHeaders(LC).Text
            .Font.Bold = True
            tlngAlign = lvwList.ColumnHeaders(LC).Alignment
            .HorizontalAlignment = Switch(tlngAlign = 0, &HFFFFEFDD, tlngAlign = 2, &HFFFFEFF4, tlngAlign = 1, &HFFFFEFC8)
            .VerticalAlignment = &HFFFFEFF4
        End With
   Next LC
   
   kk = 2
    For LC& = 1 To lvwList.ListItems.Count
        With vbWorkSheet.Cells(rr + LC, kk)
          .NumberFormatLocal = "@"
          tlngAlign = lvwList.ColumnHeaders(1).Alignment
          .HorizontalAlignment = Switch(tlngAlign = 0, &HFFFFEFDD, tlngAlign = 2, &HFFFFEFF4, tlngAlign = 1, &HFFFFEFC8)
          .VerticalAlignment = &HFFFFEFF4
          .Value = lvwList.ListItems(LC)
        End With
        For LC1 = 1 To lvwList.ColumnHeaders.Count - 1
              With vbWorkSheet.Cells(rr + LC, kk + LC1)
                .NumberFormatLocal = "@"
                tlngAlign = lvwList.ColumnHeaders(LC1 + 1).Alignment
                .HorizontalAlignment = Switch(tlngAlign = 0, &HFFFFEFDD, tlngAlign = 2, &HFFFFEFF4, tlngAlign = 1, &HFFFFEFC8)
                .VerticalAlignment = &HFFFFEFF4
                .Value = lvwList.ListItems(LC).SubItems(LC1)
              End With
        Next LC1
  Next LC&
    '-------------***********wang
    If Not (XtChart Is Nothing) Then
        vbWorkSheet.Cells(rr + LC + 1, kk).Activate
        XtChart.EditCopy
        vbWorkSheet.PasteSpecial "位图"
        
        vbWorkSheet.Shapes(vbWorkSheet.Shapes.Count).Width = XtChart.Parent.ScaleX(XtChart.Width, vbTwips, vbPoints)
        Clipboard.Clear
    End If
    '-------------***********wang
    
    vbExcel.Visible = True
    vbWorkSheet.Activate    Set RG = Nothing
    Set vbExcel = Nothing
    Set vbWorkSheet = Nothing
    
    Screen.MousePointer = vbDefault
sTitle 是标题, lvwList 是ListView

Answer 2

现在相反，我怎样把Excel中的东东添加到我的表中?