こんにちはmynannです
困っているのでヒントをいただけたらと思って質問します。
ただいま↓のような商品マスタがあります
商品コード 価格 販売
001 \100 yes
002 \300 no
003 \200 yes
004 \250 yes
005 \150 no
このデータからモジュールを使って
yesの物だけを抽出して
以下のようなテキストファイルを保存したいと思います
「商品コード 001 価格 \100」
※ファイル名は「001.text」
003と004についてもほぼ同様
前回私の質問を見ればわかると思いますが
レコードセットやIF、Do Until、printなどを
使えばできそうなんですが
保存するファイル名(001.text,002.textなど)をそれぞれの場合によって変える方法がわかりません
質問のしかたが下手でいまいちわからないと思いますが、、
保存するデータごとに保存するファイル名を変える方法を知りたいのでぜひ、教えてください!
No.2ベストアンサー
- 回答日時:
例 以下の通りです。
--------------
Dim db As Database
Dim rsn As Integer
Dim rsname As String
Dim Data, FileName As String
rsn = 0
rsname = "商品マスターQ"
Set db = CurrentDb
Set rs(rsn) = db.OpenRecordset(rsname, dbOpenSnapshot)
rs(0).MoveFirst
Do Until rs(0).EOF
If rs(0)!チェック = True Then
Data = "商品コード" & rs(0)!商品Code & "価格" & "\" & CStr(rs(0)!単価)
FileName = "D:\MDB\" & rs(0)!商品Code & ".txt"
Open FileName For Output As #1
Print #1, Data
Close #1
End If
rs(0).MoveNext
Loop
'--------------------
●上の例ではレコードセットを配列にしています。
●テーブル(商品マスター)の構成は 商品Code, 単価、チェック(yes/no)
としました。そのテーブルをそのまま選択クエリー
を作成 商品マスターQ
●このクエリー上でYesだけにフィルターを掛ける事も出来ますが上の例ではIf文を使用
●ファイルの保存先として D:\MDB\ としていますが
これは適当に替えてください。
●エラーチェックは付けていません。ファイルは自動的に上書きされますのでこのあたりは適当に修正してください。
●前もって少ないデータで試験を行ってください。
ご質問はご遠慮なく!!
回答ありがとうございました
言われてみればこういう方法でできそうですね
それで今自分で作ってのですが動きません、、
rs()が定義されてないみたいなんですがこれでいいんでしょうか?
あとdbOpenSnapshotの使い方がいまいちわかりません
dbOpenTableとどう違うのでしょうかぁ?
後者の方は自分で調べてみますが、、
ちなみにエラーはSub またはFunctionが定義されてないとでます
もし良ければ助けてください!
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- 経営情報システム accessでの請求管理について 12 2022/06/11 16:20
- Excel(エクセル) エクセルのマクロについて教えてください。 1 2023/02/21 09:28
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2023/02/21 11:19
- Visual Basic(VBA) Excelのマクロについて教えてください。 作業フォルダ内に2つのファイルがあります。 このファイル 2 2023/07/09 13:40
- Excel(エクセル) エクセルのマクロについて教えてください。 1 2023/02/20 10:00
- Excel(エクセル) エクセルのマクロについて教えてください。 2 2023/02/21 13:29
- Excel(エクセル) エクセルのマクロについて教えてください。 1 2023/02/11 11:05
- Excel(エクセル) エクセルVBA、間違っているコード内容を正して頂けませんか? エクセルワークシートに納品書を作ったの 2 2023/08/02 21:13
- Excel(エクセル) Excelのマクロコードについて教えてください。 1 2022/03/27 10:47
- Visual Basic(VBA) Excelのマクロコードについて教えてください。 1 2022/03/27 13:25
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
SQL文で、合計が0のレコードを...
-
EXISTSを使ったDELETE文
-
ACCESS ツリービューの作り方
-
アクセス フィールド名に変数...
-
アクセスにて月末日付を取得し...
-
FROM句にサブクエリ使えませんか
-
AccessVBA データのエクスポート
-
ACCESSでクエリ作成時複数のフ...
-
差し込み後、元データを変更し...
-
フィルターかけた後、重複を除...
-
エクセルで最後の文字だけ置き...
-
SQLで特定の項目の重複のみを排...
-
for whichの使い方
-
VIEWの元のテーブルのindexって...
-
外部参照してるキーを主キーに...
-
カーソル0件の時にエラーを発生...
-
SQLで列名を変数にできないでし...
-
INSERT文でフィールドの1つだ...
-
There is not/ There is noの違い
-
Oracleのデータ型、NUMBERについて
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
EXISTSを使ったDELETE文
-
SQL文で、合計が0のレコードを...
-
Accessの実行時エラーについて
-
ACCESS ツリービューの作り方
-
ACCESS 商品毎の最新の単価を設...
-
日付により変動する「単価」を...
-
異なるデータベース間のテーブ...
-
前月の取得について
-
ACCESSでクエリ作成時複数のフ...
-
AS400にてサブファイルレコード...
-
アクセス フィールド名に変数...
-
テーブル名の トラン マスタ...
-
Accessのテーブル構成について
-
AccessVBA データのエクスポート
-
DBが複雑すぎる
-
Excel VBA ADODB
-
最大値を含むレコードの抽出
-
サブクエリの書き方
-
ユニオンクエリ?レポートにて...
-
FROM句にサブクエリ使えませんか
おすすめ情報