|
お世話になります。
外部データベースからのとりこみを自動化したいと思い
マクロの記録から組み立てました。
以下のソースが出来たのですが、絞込みの日付部分の「'2007-11-01 00:00:00'」
を変数で指定したいと思っています。
しかし''で囲まれているせいか「' & 変数1 & 00:00:00'」のようにすると
下から二番目の行「.Refresh BackgroundQuery:=False」の部分で一般ODBCエラーが出てしまいます。
日付に変数を組み込むにはどのように記述したらいいでしょうか。
よろしくお願いします。
-------------------------------------------------------------------
With ActiveSheet.QueryTables.Add(Connection:= _
"ODBC;DSN=TECHS32;UID=ユーザー名;APP=Microsoft Office 2003;WSID=OGIWARA;DATABASE=TECHS32;Trusted_Connection=Yes" _
, Destination:=Range("A1"))
.CommandText = Array( _
"SELECT DB1.製番, DB1.納入日" & Chr(13) & "" & Chr(10) & "FROM TECHS32.dbo.DB1 DB1" & Chr(13) & "" & Chr(10) & "WHERE (DB1.納入日<={ts '2007-11-01 00:00:00'})" & Chr(13) & "" & Chr(10) & "ORDER BY DB1.製番")
.Name = "DB0 からのクエリ"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.PreserveColumnInfo = True
.Refresh BackgroundQuery:=False
End With
|
|