moinmoin
Ich habe da mal wieder eine Frage.
Ich will Daten die ich in einem Recordset gespeichert habe in ein Excel Template einfügen und dieses dann unter anderem Namen speichern oder ohne zu speichern nur ausdrucken.
Nun hab ich volgendes Problem. Ich kan sehr wohl die Daten an Excel übergeben und das file speicher, aber wenn ich es dann öffne ist darin noch nicht mal ein leeres Sheet enthalten.
Was mach ich falsch
Hier noch mein Code und danke im Voraus.
Sub ExcelGo()
Dim MYSQL As New ADODB.Connection, MYSQLrs As New ADODB.Recordset
Dim Excel As Object, EXrs As Recordset
Dim MYSQLstr As String, MYSQLDBstr As String, EXstr As String
MYSQLstr = "SELECT back.* FROM back;"
MYSQLDBstr = "Provider=MSDASQL.1;Password=***;Persist Security Info=True;User ID=***;Extended Properties=DSN=MySQLVisualVolumen;DESC=MySQL ODBC 3.51 Driver DSN;DATABASE=visualvolumen;SERVER=localhost;UID=***;PASSWORD=***;PORT=3306;OPTION=3;STMT=;;Initial Catalog=visualvolumen"
MYSQL.Open MYSQLDBstr
MYSQLrs.CursorLocation = adUseClient
If MYSQLrs.State = adStateClosed Then
MYSQLrs.Open MYSQLstr, MYSQL, adOpenKeyset, adLockOptimistic
MYSQLrs.MoveLast
MYSQLrs.MoveFirst
End If
Set Excel = GetObject("H:\DATA\projekt\yoyo\VisualTest.xlt", "Excel.Template")
Excel.Application.Visible = True
Excel.Worksheets("Sheet1").[A1] = MYSQLrs!AB
'Save
Excel.SaveAs "H:\Data\Test.xls"
Set Excel = Nothing
End Sub
Ich habe da mal wieder eine Frage.
Ich will Daten die ich in einem Recordset gespeichert habe in ein Excel Template einfügen und dieses dann unter anderem Namen speichern oder ohne zu speichern nur ausdrucken.
Nun hab ich volgendes Problem. Ich kan sehr wohl die Daten an Excel übergeben und das file speicher, aber wenn ich es dann öffne ist darin noch nicht mal ein leeres Sheet enthalten.
Was mach ich falsch
Hier noch mein Code und danke im Voraus.
Sub ExcelGo()
Dim MYSQL As New ADODB.Connection, MYSQLrs As New ADODB.Recordset
Dim Excel As Object, EXrs As Recordset
Dim MYSQLstr As String, MYSQLDBstr As String, EXstr As String
MYSQLstr = "SELECT back.* FROM back;"
MYSQLDBstr = "Provider=MSDASQL.1;Password=***;Persist Security Info=True;User ID=***;Extended Properties=DSN=MySQLVisualVolumen;DESC=MySQL ODBC 3.51 Driver DSN;DATABASE=visualvolumen;SERVER=localhost;UID=***;PASSWORD=***;PORT=3306;OPTION=3;STMT=;;Initial Catalog=visualvolumen"
MYSQL.Open MYSQLDBstr
MYSQLrs.CursorLocation = adUseClient
If MYSQLrs.State = adStateClosed Then
MYSQLrs.Open MYSQLstr, MYSQL, adOpenKeyset, adLockOptimistic
MYSQLrs.MoveLast
MYSQLrs.MoveFirst
End If
Set Excel = GetObject("H:\DATA\projekt\yoyo\VisualTest.xlt", "Excel.Template")
Excel.Application.Visible = True
Excel.Worksheets("Sheet1").[A1] = MYSQLrs!AB
'Save
Excel.SaveAs "H:\Data\Test.xls"
Set Excel = Nothing
End Sub
