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

[ljk2510]

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

[tianhuo_soft]

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

[meiZiNick]

以后需再关注，现在先帮你顶一下