Makro ausführen bei Dateistart
13.08.2003 11:09:35
sandro
ich habe ein Makro erstellt, das einen Befehl beim öffnen einer Datei ausführen soll. Als ersten Schritt sollte er ein bestimmtes Tabellenblatt öffnen. Als Deklaration ist auch Workbook und open angegeben. Dies funktioniert allerdings nicht. WARUM?
Danke schon mal für die Antwort.
Sandro
Sub workbook_open()
Sheets("Devisen").Select
Range("E1").Select
'With Selection.QueryTable
' .Connection = "ODBC;DSN=UILP1;UID=;PWD=;SERVER=;"
' .Sql = Array( _
' "SELECT HMON_GRP.DCREATE, HMON_GRP.CMONREF, HMON_GRP.GROUPE, HMON_GRP.CODMON, HMON_GRP.TCOURS, HMON_GRP.DCTA, HMON_GRP.DCTA_TCHG" & Chr(13) & "" & Chr(10) & "FROM AMS.HMON_GRP HMON_GRP" & Chr(13) & "" & Chr(10) & "WHERE (HMON_GRP.GROUPE='001') AND (HMON_GRP" _
' , _
' ".DCTA>{ts '2003-08-01 00:00:00'})" & Chr(13) & "" & Chr(10) & "ORDER BY HMON_GRP.DCREATE DESC, HMON_GRP.CODMON" _
' )
' .Refresh False
' End With
End Sub
Anzeige