No.1ベストアンサー
- 回答日時:
Accessではファイルの一括名称変更を直接サポートしているわけではありませんが、VBAを使用して実現することができます。
以下は、VBAを使用してAccessのテーブルに記載された情報をもとにPDFファイルの名称を一括変更する方法の一例です。Sub RenamePDFFiles()
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim oldFilePath As String
Dim newFilePath As String
' データベースのパスとテーブル名を適宜変更してください
Set db = OpenDatabase("C:\Path\To\Your\Database.accdb")
Set rs = db.OpenRecordset("YourTableName")
' レコードの数だけループ
Do While Not rs.EOF
' 変更前のファイルパスと変更後のファイルパスを取得
oldFilePath = rs("変更前ファイル名")
newFilePath = rs("変更後ファイル名")
' ファイルの存在を確認してから名称変更
If Dir(oldFilePath) <> "" Then
Name oldFilePath As newFilePath
Else
' ファイルが存在しない場合の処理(省略しても可)
MsgBox oldFilePath & " が見つかりません。", vbExclamation
End If
rs.MoveNext
Loop
' レコードセットとデータベースをクローズ
rs.Close
db.Close
Set rs = Nothing
Set db = Nothing
End Sub
このVBAマクロを使用する前に、以下の点を確認してください。
1. Accessデータベース内に、ファイルのフルパスと名称変更後のフルパスを格納するテーブルを作成し、適切なレコードを追加してください。
2. VBAコードの`データベースのパスとテーブル名を適宜変更してください`の部分を実際のデータベースファイルのパスとテーブル名に置き換えてください。
このVBAマクロを実行すると、テーブルに記載された情報をもとにPDFファイルの名称が一括変更されるはずです。ただし、ファイルの名称変更には注意が必要であり、誤って大切なファイルを上書きしないよう十分注意してください。必要に応じて、バックアップを取ることをおすすめします。
ありがとうございます。どうしても複数のコトを処理することに府が落ちなくて毎度つまずいております。
ただ本件はDirの使い方が間違っていました。ありがとうございました。
正常に動いています。
なにより、currentDbで記述していただいてもいいのに、わざわざaccdbファイルのフルパスでのご説明をいただいて、お心遣いにも大変感謝いたします。
ありがとうございました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Access(アクセス) access,vbaでフォルダ内のファイルをテーブルにインポート、ファイル名もフィールドに追加したい 1 2022/08/31 11:11
- Excel(エクセル) フォルダAから1つのファイルだけを、フォルダBへを移動するVBAについて 2 2022/07/25 11:45
- Visual Basic(VBA) 複数のcsvファイルをExcelに一括変換したい 2 2023/03/03 12:44
- Visual Basic(VBA) エクセルのマクロについて教えてください マクロを実行して 作業フォルダの中にある PDFファイル名を 3 2023/07/01 15:16
- Visual Basic(VBA) エクセルのマクロについて教えてください。 4 2023/07/03 09:11
- Visual Basic(VBA) Excelのマクロについて教えてください。 作業フォルダ内に2つのファイルがあります。 このファイル 2 2023/07/09 13:40
- Excel(エクセル) 【VBA】フォルダAにある2つのファイルの内1つを、フォルダBへ。もう1つを、フォルダBへ移動したい 6 2022/07/26 08:51
- Visual Basic(VBA) ファイル名の右側を変更したい ファイル名:「1001日別売上」の左側へ「2022」を追加し、「202 6 2022/10/14 10:03
- Visual Basic(VBA) 入力ボックスが繰り返しポップアップして止まらない。 下記コードでファイル名の変更をしたいのですが、変 1 2022/09/08 11:27
- Excel(エクセル) エクセルVBA、ファイル名をセルの値で保存の方法を教えてください。 おそれいります。こちらで数々のエ 6 2023/06/30 22:17
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
AccessVBAで作成したExcelファイルを削除する方法は?
Visual Basic(VBA)
-
ACCESSで空白のデーターをクエリで判定/識別する方法を教えてくださ
Access(アクセス)
-
access,vbaでフォルダ内のファイルをテーブルにインポート、ファイル名もフィールドに追加したい
Access(アクセス)
-
-
4
アクセスVBAで既に開いているエクセルを閉じたい
Yahoo!ショッピング
-
5
accessでクエリをExcelにエクスポートする時にファイル名に日付を追加したい
Access(アクセス)
-
6
Accessのマクロでモジュールを実行させたい。
Access(アクセス)
-
7
SQL文で パラメータが少なすぎます エラー
Access(アクセス)
-
8
ACCESSでデータ読み取り専用を解除する方法
その他(データベース)
-
9
AccessからExcelにエクスポートする時に常に上書きしたい
Excel(エクセル)
-
10
フォルダ内のPDFファイル名を変更するマクロ
Excel(エクセル)
-
11
Accessでテーブルの値をテキストボックスに代入するには?
Access(アクセス)
-
12
エクセルからアクセスにインポートすると、エラーが出てしまいます。原因を教えていただけませんか。
Access(アクセス)
-
13
Accessでテーブル名やクエリ名一覧の抜き出し
Access(アクセス)
-
14
Access サブフォームでの選択行の取得
その他(データベース)
-
15
Acccess レポートをグループ別に出力する
Visual Basic(VBA)
-
16
ACCESSでVBAから選択クエリの抽出条件を指定したい
Access(アクセス)
-
17
ACCESS VBAからのファイル削除
その他(プログラミング・Web制作)
-
18
アクセスで#エラーを表示させない方法は?
Access(アクセス)
-
19
レコードを保存するコード アクセスvba
その他(Microsoft Office)
-
20
Access2013でレポートを名前を付けて一括PDF化する方法
その他(データベース)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
【Excel】[Expression.Error] ...
-
特定のエクセルファイルを起動...
-
共有フォルダに誰が何にアクセ...
-
VBAでCSVファイルが使用中かど...
-
tmpファイル なぜできる?削除...
-
Batch: フォルダ内の特定のファ...
-
Access VBA を利用して、フォル...
-
AccessVBAで作成したExcelファ...
-
ファイルの先頭に追加書込みす...
-
Dream weaverで、誤ってファイ...
-
Excel VBA 処理後データが重た...
-
CSVの項目行を削除して一つのフ...
-
excelを共有ファイルにすると行...
-
【アクセス】「ほかのユーザー...
-
月が変わったら自動でシートが...
-
仕事のファイルを共有フォルダ...
-
自動保存されない。何か設定が...
-
メールで送られてきたワードの...
-
一時ファイルについて win32 Ge...
-
ファイルの途中に文字列を挿入
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
共有フォルダに誰が何にアクセ...
-
【Excel】[Expression.Error] ...
-
特定のエクセルファイルを起動...
-
Batch: フォルダ内の特定のファ...
-
VBAでCSVファイルが使用中かど...
-
XMLデータを変換し印刷する方法
-
AccessVBAで作成したExcelファ...
-
月が変わったら自動でシートが...
-
Access VBA を利用して、フォル...
-
tmpファイル なぜできる?削除...
-
excelを共有ファイルにすると行...
-
Excel VBA 処理後データが重た...
-
(Excelマクロ)datファイルをエ...
-
エクセルファイルのデータ転記...
-
社内Excel共有ブックでの保存ト...
-
大量のCSVデータを行列の変換を...
-
【アクセス】「ほかのユーザー...
-
ファイルの途中に文字列を挿入
-
拡張子が「cda」のファイルを聞...
-
CSVの項目行を削除して一つのフ...
おすすめ情報