Access VBA質問箱 IV

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

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


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

1501 / 9994

←次へ　｜　前へ→


	【11785】Re:進行状況インジケータについて

Masato/S - 10/9/27(月) 11:43 -


	引用なし

	パスワード

YU-TANGさん

返事が遅くなり、すいません。

実際、使っているコードは以下の通り、よろしくお願いします。

Function test0921()
'変数定義
Dim Ofile(0 To 5) As String, Nfile(0 To 5) As String, i As Integer
Dim varRet As Variant
Const cintRecMax As Integer = 5
'元テーブル名の定義
Ofile(0) = "O0"
Ofile(1) = "O1"
Ofile(2) = "O2"
Ofile(3) = "O3"
Ofile(4) = "O4"
Ofile(5) = "O5"
'出力ファイル名の定義
Nfile(0) = "N0.csv"
Nfile(1) = "N1.csv"
Nfile(2) = "N2.csv"
Nfile(3) = "N3.csv"
Nfile(4) = "N4.csv"
Nfile(5) = "N5.csv"
　　varRet = SysCmd(acSysCmdInitMeter, "ただいまデータ作成中・・・、少々お待ち下さい・・・", cintRecMax)
　　　For i = 0 To cintRecMax
　　　　　docmd.TransferText acExportDelim, , Ofile(i), "C:\" & Nfile(i), False
　　　　　varRet = SysCmd(acSysCmdUpdateMeter, i)
　　　Next i
　　varRet = SysCmd(acSysCmdRemoveMeter)
End Function

784 hits

▼

【11778】進行状況インジケータについて Masato/S 10/9/23(木) 20:57