Access VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
1476 / 2272 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【6979】エクスポートしたデータに．．． フク 05/12/15(木) 11:55 質問[未読]
【6981】Re:エクスポートしたデータに．．． 小僧 05/12/15(木) 15:10 回答[未読]
【6992】Re:エクスポートしたデータに．．． フク 05/12/17(土) 14:49 お礼[未読]
【6982】Re:エクスポートしたデータに．．． クロ 05/12/15(木) 15:45 発言[未読]
【6979】エクスポートしたデータに．．．
質問  フク  - 05/12/15(木) 11:55 -
引用なし
パスワード
   VBA初心者です。

意味のわからない質問かもしれませんが、
レコードをcsvファイルでエクスポートする際に、
マクロとフォームを活用して、特定の日付の
レコードだけを抽出、反映させたいと思います。
ここまでは簡単にできたのですが、その日付を
csvファイルの中に記述することはできますで
しょうか？例えば、下記のような感じです。

--------------------------------------------
2005/12/14
001,ボール,10
004,ラケット,5
006,シューズ,6
--------------------------------------------

1行目がその反映させたい箇所で、2行目以降は
レコードの抽出結果です。

わかりにくい表現で申し訳ございませんが、
宜しくお願いいたします。
【6981】Re:エクスポートしたデータに．．．
回答  小僧  - 05/12/15(木) 15:10 -
引用なし
パスワード
   ▼フク さん：
こんにちは。

>ここまでは簡単にできたのですが

という事で、エクスポートした CSVファイル に日付を書き込むサンプルコードです。

Sub CSVファイルに追加()
Dim csvPath As String　 'CSVファイルへのフルパス
Dim csvName As String　 'CSVファイル名
Dim FSO As Object
Dim F As Object

　　csvPath = "C:\"
　　csvName = "Test.csv"

　　Set FSO = CreateObject("Scripting.FileSystemObject")
　　
　　Set F = FSO.CreateTextFile(csvPath & "Temp.csv")
　　　　F.WriteLine Date
　　　　F.Write FSO.OpenTextFile(csvPath & csvName).ReadAll
　　　　F.Close: Set F = Nothing
　　　　
　　FSO.DeleteFile csvPath & csvName
　　FSO.MoveFile csvPath & "Temp.csv", csvPath & csvName
　　Set FSO = Nothing
End Sub


CSVファイル ---- IT用語辞典より

フルスペル ：　Comma Separated Values
別名 ：　コンマ区切り

データをカンマ(",")で区切って並べたファイル形式。


日付を1行目に入れてしまう時点でCSVファイルと呼べるものではなくなってしまうのですが…。
【6982】Re:エクスポートしたデータに．．．
発言  クロ  - 05/12/15(木) 15:45 -
引用なし
パスワード
   ワタシも小僧さんと同じように思います。
後でCSVファイルを利用するのであれば、使いづらくなりませんか？
※仕様なら仕方ないけど…

案
CSVファイル名に日付を入れたものにしてみるとか？
例)　20051214.csv
【6992】Re:エクスポートしたデータに．．．
お礼  フク  - 05/12/17(土) 14:49 -
引用なし
パスワード
   ＞小僧 さん、クロさん

ありがとうございます！早速やってみます。

1行目の日付ですが、相手先の仕様ということなので
省略できないのです．．．

このファイルを相手側ではどのようなシステムで処理
されるのかは聞けませんでした。

ありがとうございました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
1476 / 2272 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
1080768
(SS)C-BOARD v3.8 is Free