フォルダ内のPDFファイル名をExcelのリスト通りに変更するマクロ | |
---|---|
[196238] フォルダ内のPDFファイル名をExcelのリスト通りに変更するマクロ- ■親トピック/記事引用/メール受信=OFF■ □投稿者/ まあ -(2024/06/19(14:56)) □U R L/ お世話になります。 フォルダ内のPDFファイルの名前を一度に変更したく以下のマクロを組みましたが、エラー53の「ファイルが見つかりません」が出てしまいます。 マクロ実行ボタンを置いたアクティブシートの1行目はタイトル行で2行目から10行目のA列に現在のシート名、B列に変換後のシート名を入力しています。 どこの記述がおかしいのでしょうか? ご教示頂きたく宜しくお願い致します。 Sub Sample() Dim myPath As String Dim myPDF As String myPath = ThisWorkbook.Path & "\" myPDF = Dir(myPath & "*.pdf") For i = 2 To 10 Do Until myPDF = "" Name myPath & ActiveSheet.Cells(i, 1).Value & ".pdf" As myPath & ActiveSheet.Cells(i, 2).Value & ".pdf" myBook = Dir Loop Next i End Sub この記事にはVBAのコードが含まれています。 緑の太文字→注釈 茶色の太文字→条件分岐 赤の太文字→ループ 青の太文字→その他 ++++++++++++++++++++ OS ⇒OTHER Version⇒OTHER ++++++++++++++++++++ |
[196239] Re[1]: フォルダ内のPDFファイル名をExcelのリスト通りに変更するマクロ- ■記事引用/メール受信=OFF■ □投稿者/ ねむねむ -(2024/06/19(16:38)) □U R L/ そもそも >myPDF = Dir(myPath & "*.pdf") >Do Until myPDF = "" >myBook = Dir >Loop これは何のために入れているのだろうか? 試しに無くすとどうなるだろうか? もっとも >myBook = Dir は >myPDF = Dir ではないかと思うが。 この記事にはVBAのコードが含まれています。 緑の太文字→注釈 茶色の太文字→条件分岐 赤の太文字→ループ 青の太文字→その他 |
[196240] Re[2]: フォルダ内のPDFファイル名をExcelのリスト通りに変更するマクロ- ■記事引用/メール受信=OFF■ □投稿者/ まあ -(2024/06/19(17:13)) □U R L/ ご確認いただきありがとうございます。 失礼しました。 >myBook = Dir は >myPDF = Dir でした。 Do〜Loopを入れているのはそのフォルダ内のファイル全てにおいて処理をするという意味だったのですが、おっしゃる通りFor Nextでファイル内の全てのパスを置き換えるので必要ないですね。 そこでDo〜Loopを削除してみたのですがやはりファイルが見つかりませんとエラーが出てしまいます。以下に修正したのですがどこがダメなのでしょうか? 再びご教示お願いいたします。 Sub Sample() Dim myPath As String myPath = ThisWorkbook.Path & "\" For i = 2 To 10 Name myPath & ActiveSheet.Cells(i, 1).Value & ".pdf" As myPath & ActiveSheet.Cells(i, 2).Value & ".pdf" Next i End Sub この記事にはVBAのコードが含まれています。 緑の太文字→注釈 茶色の太文字→条件分岐 赤の太文字→ループ 青の太文字→その他 |
[196241] Re[3]: フォルダ内のPDFファイル名をExcelのリスト通りに変更するマクロ- ■記事引用/メール受信=OFF■ □投稿者/ まあ -(2024/06/19(17:19)) □U R L/ ねむねむ様 大変失礼しました! 2回目のデバッグの原因はA列のファイル名に拡張子を付けていたことでした。 Do〜Loopを削除したら動きました。 大変にありがとうございました。 この記事にはVBAのコードが含まれています。 緑の太文字→注釈 茶色の太文字→条件分岐 赤の太文字→ループ 青の太文字→その他 |
[196242] Re[4]: フォルダ内のPDFファイル名をExcelのリスト通りに変更するマクロ- ■ ![]() □投稿者/ まあ -(2024/06/19(17:19)) □U R L/ おかげ様で解決いたしました。 ありがとうございました。 |
このトピックに書きこむ |
---|