wincc数据导出mysql_WIncc使用QueryTables方法将SQL数据导出EXCEL-工业支持中心-西门子中国...

亲测可行！

Dim Conn,sql,connstring,record,objExcel,objBook,objSheet,objExcelQuery

Set conn = Createobject("ADODB.connection")

conn.connectionstring = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\X\Desktop\LS\111\FGWL.accdb;Persist Security Info=False"

conn.CursorLocation = 3

conn.open

Set record = Createobject("ADODB.recordset")

record.open "select * from m_tb" , conn

Set objExcel = CreateObject("Excel.Application")

objExcel.Visible = FalSE

Set objBook = objExcel.Workbooks.Add

Set objSheet = objBook.Worksheets.Add

Set objExcelQuery = objSheet.QueryTables.Add (record, objsheet.range("H13"))

With objExcelQuery

.FieldNames = True

.RowNumbers = False

.FillAdjacentFormulas = False

.PreserveFormatting = True

.RefreshOnFileOpen = False

.BackgroundQuery = True

.SavePassword = False

.SaveData = True

.AdjustColumnWidth = True

.RefreshPeriod = 0

.PreserveColumnInfo = True

.Refresh

End With

objBook.SaveAs "C:\Users\X\Desktop\1.xlsx"

objExcel.Visible = TrUE