• 締切済み

accessのVBAのについて質問です。

ＡＣＣＥＳＳでＭＯ内に存在するファイルをチェックし存在するファイル名情報と、タイムスタンプの取得は可能でしょうか？ データの存在する場合のみ処理を行いたくて、その結果によって処理の分岐を行いたいと思っています。 ※ＡＣＣＥＳＳ９７を主に使用していますが、ＡＣＣＥＳＳ２０００のみにしかその機能がない場合は、ＡＣＣＥＳＳ２０００を検討します。

  • KIMV
  • お礼率10% (83/770)

みんなの回答

  • ryuu001
  • ベストアンサー率61% (46/75)
回答No.2

FileSystemObject オブジェクトの Files コレクションを使います。 vbaのhelpから調べてみてください。 ここで、その内容を表示すると 著作権の侵害？　になるといやなので、 自分で参照してみてください。

  • taknt
  • ベストアンサー率19% (1556/7783)
回答No.1

ＭＯでなくＨＤＤにあるファイルの取得ができるならば可能だと思いますよ。 デバイスによる違いはないと思います。 フロッピーと同感覚で使えるはずです。

KIMV
質問者

補足

出来ればコーディング例等が在ればありがたいのですが・・・ 実はファイル形式が特殊なファイルでして、ＡＣＣＥＳＳでは読めません。 ただファイルの存在が確認できれば、別のアプリケーション起動用のパラメタを作成しようと思いまして・・・

  1. カテゴリ
  2. パソコン・スマートフォン
  3. ソフトウェア
  4. オフィス系ソフト

関連するQ&A

  • 【ACCESS VBA】アクセスからデスクトップ上のエクセルを開く

    ACCESSで、デスクトップ上の既存EXCELファイルにデータをエクスポートし、 処理後にそのファイルを開く処理を考えています。 上手くできれば、他の人にも使って貰えるようにしたいので 「デスクトップの取得」「そのファイルを開く」処理を教えてください。 よろしくお願いいたします。

  • VBA（Access)からExcelファイルのシート名判定

    AccessにてExcelデータを取得したいのですが、Excelには複数シートが 存在しているため、シート名称を指定しなければいけません。 そこでAccessから「シート名称を指定し（コンボボックスにて指定）各シートの データ取得をする」という処理にしています。 ここで問題が発生 データ取得対象のExcelにAccessより指定したシート名称が無かった場合に エラーとなってしまいます。 これを回避するにはどうしたらよいでしょうか？

  • ACCESS2003 NOWの質問です。

    ACCESS2003 NOWの質問です。 PCでタイムレコーダー機能（出勤・退勤ボタン）を作成していますが、 NOWで現在時刻を取得して、出勤・退勤をデータに落としていますが、 PCなので簡単に時刻が変更される恐れがあるので、現在時刻を サーバーの時刻を取得出来ないかと思っています。 PCでタイムレコーダーなどを作る時の、時刻の取得で良い方法があったら 教えてください。 宜しくお願いします。

  • 【Access2003】VBAでタブ区切りテキストファイル読込

    はじめまして。 【Access2003】を使用し、タブ区切りのテキストファイル読込をVBAで行っています。 カンマ区切りはわかるのですが、タブ区切りの方法がわからないので教えていただけませんか？ TransferTextを使用したかったのですが、読み込んだデータ1件1件に対して必須と桁数確認を行い、エラーがあった場合はテキストファイルにそのデータ1行を書き込み、エラーがない場合は1行テーブルに書き込みというように処理を分けたいからなのです。 とりあえず今のところカンマ区切りのCSVファイルを読み込むというようにしており、読み込む前にタブ区切りテキストファイルをカンマ区切りCSVファイルに変換する処理を入れようと思っています。 しかしタブ区切りテキストファイルをそのまま読むことができれば一番いいのですが。 ソースは以下の通りです。 '出力元CSVファイルを開く lngFileNum = FreeFile() 'データ読込 Open strJsnFol & "\\" & strIriInf For Input As #lngFileNum 'CSVファイルの最初の行を読み込む 'CSVファイルより１件分を読み込み Line Input #lngFileNum, strData 'カンマで区切って配列に代入 varData = Split(strData, ",", , vbTextCompare) 'データ種別のチェック If varData(0) <> "XXX" Then MsgBox "ファイルエラーです。", vbInformation + vbOKOnly intErrFlg = 1 Exit Sub End If 'タイムスタンプチェック strSQL = " SELECT CREATE_TIME FROM TB WHERE 　　　CREATE_TIME = '" & varData(1) & "'" 'SQLを実行 If DBAC.ExecSelect(strSQL) = 0 Then '同じ処理時間のデータがなければ、タイムスタンプを取得 strCreateTime = varData(1) Else MsgBox "すでに処理済です。", vbInformation + vbOKOnly intErrFlg = 1 Exit Sub End If 'テーブルを開く Set dbs = CurrentDb Set rst = dbs.OpenRecordset("IF_TB") 'CSVファイルの全レコードを読み込むループ Do Until EOF(lngFileNum) 'CSVファイルより１件分を読み込み Line Input #lngFileNum, strData 'カンマで区切って配列に代入 varData = Split(strData, ",", , vbTextCompare) 'データチェック If varData(0) = "" Or Len(varData(0)) > 12 Then intChkErr = 1 End If If varData(1) = "" Or Len(varData(1)) > 12 Then intChkErr = 1 End If If Len(varData(2)) > 1 Then intChkErr = 1 End If 'エラーがあればエラーファイルに書き込み If intChkErr <> 0 Then strFileName = strJsnFol & "\\" & "ERR.csv" lngFileNum2 = FreeFile() Open strFileName For Append As #lngFileNum2 End If Print #lngFileNum2, "ERR1," & strData Close #lngFileNum2 Else '各フィールドデータをテーブルに追加 With rst .AddNew !K_NO = varData(0) !S_NO = varData(1) !CD = varData(2) !CREATE_TIME = strCreateTime .Update End With End If intChkErr = 0 Loop rst.Close Close #lngFileNum Exit Sub 何かいい方法があれば教えていただけませんか？ よろしくお願いいたします。

  • ファイルアップロード時のタイムスタンプ

    PHPで画像ファイルをアップロードした際、 ファイルのタイムスタンプが更新されてしまいます。 あとで、アップされたファイルのタイムスタンプをみて処理させたいのですが 、タイムスタンプ（作成日時、更新日時）を更新させないでアップロードする方法はありますでしょうか。 アップロードする前のタイムスタンプをあらかじめ取得し、DBなどに登録しておいたほうがいいのかもしれませんが、できれば画像ファイルのタイムスタンプを更新させないでアップロードしたいです。

    • ベストアンサー
    • PHP
  • Access　VBAよりプロセスチェック

    お世話になります。 Accessにてツールを作成しており、集計結果(クエリの結果)を Excelへ出力させようとしております。 処理を実行する前のチェックとして、Excelのプロセスがあるか のチェックを行いたいのですが、可能でしょうか。 ご教授の程、宜しくお願い致します。

  • AccessのVBAでExcel同様の計測データ処理できますか？

    　これまでExcelのVBAで計測データの処理を行っていました。 数千～数万行のデータを指定したXLSファイルから読み取り、 対象期間内の平均や分散を求めたり、後処理（累乗や対数あ り）を行うような処理です。 　今回、新たに処理するデータが、Accessのファイル形式で 保存されています。提供元の都合でこちらからファイル形式 の指定はできません。 　いままで通りの処理は、VBAさえ使こなせばAccess上でも可 能でしょうか？　Accessの経験はないに等しいですが、可能 なら勉強して取り組んでみようと思います。 　ファイルをXLSに変換してこれまでのようにExcel上で処理 という手も考えられますが、行数が多くファイルを分割する など手間が増えそうなので、可能ならばAccess上で処理でき ればと考えています。

  • VBSでタイマー

    1分ごとにメール確認するため、1分ごとに、という処理を作っています。 VBSにタイマー機能はないのでしょうか？ 無いようなので、タイムスタンプを取得したいのですが、これも直接は取得できませんよね？

  • クイックアクセスについて

    windowsのフォルダで クイックアクセスの項目で最近使ったファイルの欄に絶対直近では開いていないファイルがズラズラ並んでいて その内容が変化します。 不正アクセスを疑っておりますが 調べる方法はありますでしょうか？ クイックアクセスで表示されているファイルが実際にいつアクセスされたのかのタイムスタンプだけでもまず知りたいのですが ご教示お願い致します

  • ＡＳＰでファイルアクセス失敗

    ＡＳＰでファイルシステムオブジェクトを作成して、 相対パスでホームディレクトリ内のテキストファイルにアクセス しようしてるのですが、ファイルの読み込みができません。 なにかＩＩＳ側に設定などがあるのでしょうか？ とりあえずアクセス許可関係は全部許可してます。 状態としてはファイル読み込みの処理あたりで停止？ しているようで、ブラウザのステータスバーの処理状況ゲージ？が 中間ぐらいでとまってます。 パスの取得、パスからファイルシステムオブジェクトの作成までは うまくいっている模様です。 ファイルの存在チェックはできました。 よろしくお願いします。

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

あなたにピッタリな商品が見つかる！ OKWAVEセレクト

質問する