VBA中，我想拖动listView里的某条数据到新的excel里面，怎样实现呢？

Question

VBA中，我想拖动listView里的某条数据到新的excel里面，怎样实现呢？

Answer 1

Dim   oExcel   As   Object   
          Dim   oBook   As   Object   
          Dim   oSheet   As   Object   
          Set   oExcel   =   CreateObject("Excel.Application")   
          Set   oBook   =   oExcel.Workbooks.Add   
          Set   oSheet   =   oBook.Worksheets(1)   
        
          'Create   the   QueryTable   
            
          Dim   oQryTable   As   Object   
          Dim   sQryTable   As   String   
            
  sQryTable   =   "....."   
                    
          Set   oQryTable   =   oSheet.QueryTables.Add("OLEDB;"   &   strConnectString   &   ";",   oSheet.Range("A1"),   sQryTable)   
          oQryTable.RefreshStyle   =   xlInsertEntireRows   
          oQryTable.Refresh   False   
            
          'Save   the   Workbook   and   Quit   Excel   
            
          oBook.SaveAs   cdlSaveAs.FileName   
    
          oExcel.Quit   
          Set   oSheet   =   Nothing   
          Set   oBook   =   Nothing   
          Set   oExcel   =   Nothing