Access VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

6619 / 9994

←次へ　｜　前へ→


	【6578】Re:テーブルをｃｓｖ形式で出力したいので...

nemotnemot - 05/10/25(火) 10:32 -


	引用なし

	パスワード

小僧さん：
こんにちは
いつもいつもありがとうございます。
定義を作成して
>DoCmd.TransferText acExportDelim, "定義名","テーブル名", "出力先フルパス"
を使用して下記モジュールを作って見ましたがうまくいきません。
なにがおかしいのでしょうか？

INRs!作成月には10月分

Public Function 外部テーブル出力()
Dim wspDefault As Workspace, dbs As Database
Dim tdf As TableDef, fld1 As Field, fld2 As Field
Dim idx As Index, fldIndex As Field
Dim Db As Database
Dim INRs As Recordset
Dim 読込 As String
Dim 名前 As String

　Set Db = CurrentDb
　読込 = "作成年テーブル"
　Set INRs = Db.OpenRecordset(読込, dbOpenDynaset)
　　
　名前 = "A:\テーブル" & INRs!作成月 & ".CSV"

　DoCmd.TransferText acExportDelim, "Ａ定義", "Ａテーブル", "名前"

　INRs.Close
　Db.Close

End Function

430 hits

▼

【6571】テーブルをｃｓｖ形式で出力したいのですが nemotnemot 05/10/24(月) 10:05