|
▼ichinose さん:
有り難うございます。おかげで何とか呼出と保存が出来ました。
以下の3カ所を変更しました。
>Sub DAO_read()
> 'Microsoft DAO 3.6 Object Library 参照設定
> Dim myDb As DAO.Database
> Dim myRst As DAO.Recordset
> Dim myFileName As String
> Dim myTblsql As String
Dim idx As Long'---------------------←追加
>Sub DAO_write()
> myTblsql = "insert INTO 運送DATA select * FROM [Excel 8.0;Database=" & ThisWorkbook.Path & "\sqltest.xls]" & _
> ".[" & ActiveSheet.Name & "$" & Range("a1", Cells(Rows.Count, 1).End(xlUp)).Resize(, 3).Address(False, flase) & "];"
sqltest.xlsを運送test.xls
Address(False, flase)をAddress(False, False)にしました。
そこで質問ですが、一度書込をしたあとに再度呼び出すとデータの並びがおかしくなってしまいます。
このような状態です。
#2004/10/1#の時 #2004/12/1#の時
101 2004/10/1 101 2004/10/1
102 2004/10/1 102 2004/10/1
118 2004/10/7 103 2004/10/1
119 2004/10/8 104 2004/10/2
120 2004/10/9 120 2004/10/9
121 2004/10/9 121 2004/10/9
. .
. .
. .
. .
150 2004/11/30 240 2005/2/25
103 2004/10/1 105 2004/10/2
104 2004/10/2 106 2004/10/3
105 2004/10/3 107 2004/10/3
. .
115 2004/10/6 .
. .
151 2004/11/30 119 2004/10/8
. .
240 2005/2/25
Accessでデータを見ると順番に並んでいます。
上記以外に変更した箇所はないのですが、
面倒かと思いますが、宜しくお願い致します。
目下、日付の変数の代入に苦しんでおります。
|
|