AW: Variable einfügen
17.11.2005 15:02:47
IngGi
Hallo André,
so vielleicht (Nr ist der Name deiner Variablen?
With ActiveSheet.QueryTables.Add(Connection:= _
Array(Array("ODBC;DSN=as_pzw;Description=Alter;UID=fladung;APP=Microsoft Office XP;" & _
"WSID=BLXP-DV-FLADUNG;DATABASE=dbaspzw;Network=DBMSSOCN;Trusted" _
), Array("_Connection=Yes")), Destination:=Range("A1"))
.CommandText = Array( _
"SELECT KSH.ksh_mdtnr, KSH.ksh_prsnr, KSH.ksh_datum, KSH.ksh_kstnr, KSH.ksh_zeit" & Chr(13) _
& "" & Chr(10) & "FROM dbaspzw.dbo.KSH KSH" & Chr(13) & "" & Chr(10) _
& "WHERE (KSH.ksh_mdtnr=" & Nr & "1) AND (KSH.ksh_datum>{ts '2005-08-31 00:00:00'}" _
& " And KSH.ksh_datum<{ts '", "2005-10-01 00:00:00'})" & Chr(13) & "" & Chr(10) _
& "ORDER BY KSH.ksh_prsnr, KSH.ksh_datum")
.Name = "anwesenheit"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = True
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.PreserveColumnInfo = True
.Refresh BackgroundQuery:=False
End With
Gruß Ingolf