投稿日	： 2006/03/01(Wed) 23:42
投稿者	： やまめ
Ｅメール	：
ＵＲＬ	：
タイトル	： 日付/時刻型データのCSV書き出し

ありがとうございます。色々試行錯誤してみました。

結果、データはmdbで持ち、必要になったタイミングで、
CSVにセーブしようと思いましたが、date型の情報が、
数値になって書き出されてしまいます。

何か方法はあるのでしょうか？
やはり、１レコードずつ、テキストとして書き出すしかないのでしょうか。

＜試したコード＞

Set cn = New ADODB.Connection
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\test\db1.mdb;Persist
Security Info=False"
cn.Open

Set rs = New ADODB.Recordset
rs.CursorLocation = adUseClient
sql = "SELECT * FROM TextTable WHERE myNOW BETWEEN #2006/03/01 21:48:31# AND #2006/03/01
21:48:36#"
rs.Open sql, cn, adOpenStatic
Set DataGrid1.DataSource = rs
Debug.Print rs!no, rs!mydate, rs!mytime
    
'変数にオブジェクトを割り付ける
Set xlApp = New Excel.Application
    
'Excel表示
xlApp.Visible = False
'確認メッセージ非表示
xlApp.DisplayAlerts = False

Set xlBook = xlApp.Workbooks.Add
xlBook.worksheets(1).cells(1, 1).copyfromrecordset rs
    
'Bookを閉じる
xlBook.SaveAs App.Path & "\testxls.csv", xlCSV　←時刻が数値としてセーブされてしまう。

よろしくお願いします。

★ - CSVファイル内のデータ検索 - やまめ 02/28-18:11No.5950
• Re: CSVファイル内のデータ検索 - neptune 02/28-21:03 No.5953
  • Re^2: CSVファイル内のデータ検索 - やまめ 02/28-22:41 No.5954
    • Re^3: CSVファイル内のデータ検索 - neptune 03/01-10:17 No.5960
      • Re^4: CSVファイル内のデータ検索 - やまめ 03/01-12:11 No.5964
        • Re^5: CSVファイル内のデータ検索 - neptune 03/01-13:26 No.5965
          • 日付/時刻型データのCSV書き出し - やまめ 03/01-23:42 No.5970
            • Re: 日付/時刻型データのCSV書き出し - YK 03/02-08:27 No.5971
            • Re: 日付/時刻型データのCSV書き出し - neptune 03/02-08:43 No.5972
              • Re^2: 日付/時刻型データのCSV... - やまめ 03/02-22:36 No.5974