A new Worksheet should be created, that contains the result of an SQL Query (ADODB) generic (in the way, that no column names have to be adressed in the recordset.<\/p>\n
\r\nSub CreateExcelSheetWithQueryResult(ws As Worksheet, sql As String)\r\n Dim Cn As New ADODB.Connection\r\n Dim Rs As New ADODB.Recordset\r\n Dim vaTmp() As String\r\n \r\n Cn.Provider = "SQLOLEDB.1"\r\n \r\n Cn.ConnectionString = "Password=pass;" & _\r\n "Persist Security Info=True;" & _\r\n "User ID=user;" & _\r\n "Initial Catalog=databaseName;" & _\r\n "Data Source=ServernameOrIP"\r\n \r\n Cn.Open\r\n \r\n Rs.CursorType = adOpenKeyset\r\n Rs.LockType = adLockPessimistic\r\n Rs.Open sql, Cn, adOpenStatic\r\n \r\n ws.Cells.Clear\r\n \r\n ' This section fills in the field names from the Orders table.\r\n ReDim vaTmp(Rs.Fields.Count)\r\n For x = 0 To Rs.Fields.Count - 1\r\n vaTmp(x) = Rs.Fields(x).Name\r\n Next\r\n ws.Cells(1, 1).Resize(1, Rs.Fields.Count) = vaTmp\r\n \r\n ws.Range("A2").CopyFromRecordset Rs\r\n \r\n Rs.Close\r\n Cn.Close\r\nEnd Sub\r\n<\/pre>\nAnd if you want to create a new Excel sheet you can do this with a button that assigned macro contains the following source:<\/p>\n
\r\nSub DetailQuery1_KlickenSieAuf()\r\n Dim ws As Worksheet\r\n Sheets.Add After:=Sheets(Sheets.Count)\r\n ' Referenz darauf\r\n Set ws = Sheets(Sheets.Count)\r\n CreateExcelSheetWithQueryResult ws, "SELECT TOP 10 * FROM irrsinn"\r\n \r\nEnd Sub\r\n<\/pre>\n