特定フォルダに入ったファイルを順番に全部PDF化するマクロ(ファイル形式によって動作分岐) 下記イメージのVBAを作成したいと考えております。 【動作イメージ】
特定フォルダに入ったファイルを順番に全部PDF化するマクロ(ファイル形式によって動作分岐) 下記イメージのVBAを作成したいと考えております。 【動作イメージ】 ①特定フォルダのパスをエクセルに入力 ②①の情報から特定フォルダ内にあるファイルのパスとファイル名を抽出 ③特定フォルダに入っているファイルを開き、順番にPDF化 その際、特定フォルダに入っているファイルの種類によって動作が分岐 ・元データがPDFファイルの場合) マクロは作動しない ・元データがExcelファイルの場合) Excel内にある全ページをPDFにし同フォルダ内に保存 ・元データがWordファイルの場合) 全ページをPDFにし同フォルダ内に保存 ※ファイル形式によってPDF化の方法が異なっていたり、 そもそもPDF化させないものもあるため、 条件分岐が必要 【相談】 ①②動作のVBAコードは何となくはわかるのですが、 ③の「ファイル形式によって分岐させる」VBAコードの作り方を 特に教えていただけないでしょうか。
Visual Basic・55閲覧
ベストアンサー
ファイルの種類判定は簡易的にはそのファイル名の拡張子文字列で判断する事になります。 処理2で取得したファイル名が入っている変数に対して、今回は文字列の後ろ3文字がPDFかどうかで判断する事になります。 if right(ファイル名の入った変数,3)="pdf" then なにもしない else PDF化処理 end if 参考資料: http://officetanaka.net/excel/vba/tips/tips57.htm http://club-vba.tokyo/excel-hanbetsu-vba/ 簡易的ではなく確実な判定をする場合はFileSystemObjectのGetFileメソッドを使う事になりますがそこまでする必要は無いと思います。 参考資料:https://xtech.nikkei.com/it/atcl/column/15/090100207/090100077/
質問者からのお礼コメント
うまくいきました。 誠にありがとうございました。
お礼日時:5/27 8:27