Microsoft Access Club Access超初心者対象Forum Access初級者対象Forum Access初・中級者対象Forum Access VBA Tips Forum DAO、ADO、SQL Forum

     

リストへもどる

投稿記事の一括表示

タイトルVBAを使ってCSV出力時に連番を付けて保存したい。
記事No171718
投稿日: 2017/01/17(Tue) 13:25
投稿者こうじ
OS:Windous7
Access Version:Access2013
AccessのVBAについて質問があります。
抽出したクエリのデータをCSVでエクスポートするコードをサイトで見つけ、そのコードをコピペしてなんとか出力が成功したのですが、
抽出条件を変えてまた出力するとフォルダーにあったCSVファイルに上書きされてしまいます。
そこでご相談なのですが、出力されたファイルが上書きされず、且つ、ファイル名に連番(例:001_ファイル名)のような形にしたのですが、ご教示頂けますでしょうか。
恐縮ですがVBAに関しては初心者なので、できればコードを全部書いて頂けると非常に助かります。
ちなみにサイトで見つけ、出力が成功したコードは以下になります。

Private Sub コマンド4_Click()
On Error GoTo ErrorTrap

Dim varAccess As Variant
Dim varCPass As Variant
Dim strmsg As String

varAccess = "ASN抽出"
varTextPass = "C:\Users\エクスポート\_STORE_ASN_TRN.csv"
strmsg = "csvファイルへ出力します。" & Chr(13) & _
"出力先は" & varTextPass & "です。" & _
"よろしければ、OKをクリックして下さい。"

If MsgBox(strmsg, vbOKCancel) = vbOK Then
DoCmd.TransferText acExportDelim, , varAccess, varTextPass, False
MsgBox "データ出力は、正常に完了しました。"

End If
Exit Sub

ErrorTrap:
If Err.Number = 3044 Then '
MsgBox "パス指定が誤っています。", vbCritical
Else
MsgBox "予期せぬエラーが発生しました。", vbCritical
End If

End Sub

宜しくお願い致します。

タイトルRe: VBAを使ってCSV出力時に連番を付けて保存したい。
記事No171779
投稿日: 2017/03/23(Thu) 19:39
投稿者tkwan
> varTextPass = "C:\Users\エクスポート\_STORE_ASN_TRN.csv"
の部分を、

arTextPass = "C:\Users\エクスポート\"
varTextPass = varTextPass & Format(Date, "yyyymmddhhnn")
varTextPass = varTextPass & "_STORE_ASN_TRN.csv"

ではいかがですか?

- 以下のフォームから自分の投稿記事を修正・削除することができます -
処理 記事No パスワード

ページの先頭へ 前ページへ戻る