【ＶＢＡ】複数のファイルを自動でｐｄｆ化する方法

作成したエクセルファイルをｐｄｆ化してメールなどで送ったり、保存したりすることは仕事の上で意外とあります。

しかし、ｐｄｆ化するファイルが複数あると、１つ１つ作業するって結構手間がかかりますよね。

そこで今回は、

複数のファイルを自動でｐｄｆ化する方法

についてＶＢＡで、どのようにできるか書きたいと思います。

因みにですが、ここで紹介するＶＢＡのコードは、

プロ顔負けといったすごいものではなく、こうすれば「一応できる」という初心者レベルでの解説となります。

あくまで個人レベルで作業することを想定していますのでご了承ください。

今回の作業イメージはこんな感じ。

ｐｄｆフォルダ内に、ｐｄｆ化したいファイルを全部入れ込み、それを同階層にある「ＶＢＡ．ｘｌｓｍ」ファイルからｐｄｆ化を実行します。

サンプルコード

では、いきなり全体のコードを書きたいと思います。

＜サンプルコード＞

■詳細説明

「ア」部分

これは、以前の記事でも書きましたが、ＶＢＡファイルを置いているフォルダを指します。

これにしておけば、フォルダがどの階層にあっても（移動しても）機能するので便利です。

「イ」部分

今回は、Ｄｉｒ関数を使います。

Ｄｉｒ関数は、引数に指定したファイルが存在する時に、そのファイル名を返す関数です。

ファイル存在有無を確認する時には、このＤｉｒ関数を使うのが一つの方法。

引数には、「＊」（ワイルドカード）が使えます。

「ウ」部分

直前のコード「Ｓｅｔ　ＷＢ・・・」部分で、検索できたファイルを開いています。

この状態で、開いたファイル名を「ＷＢ．Ｎａｍｅ変数」で取得することが、下記「オ」部分で活きてきます。

「エ」部分

素人レベルのわたしが、今回一番苦労したのがココ。

なんせ、これ（ＩｎＳｔｒ関数）を使わないと、ｐｄｆ化されてもファイル名がおかしくなってしまう。

前述の「ウ」で、使った「ＷＢ．Ｎａｍｅ」だと拡張子まで含んだファイル名が付いてしまうのです。

で、この拡張子を抜いたファイル名を付けるために、今回「ＩｎＳｔｒ関数」を使用しました。

＜補足　：　ＩｎＳｔｒ関数について＞

ＩｎＳｔｒ関数は、対象となる文字列の先頭から、指定した文字列を検索して、最初に見つかった検索文字の位置を数値で返す関数です。

引数のベースはこんな具合（引数はこの他にもありますが、今回は省略し、下記のみとしています）。

ＩｎＳｔｒ（検索元の文字列，検索する文字列）

今回で言うと、ＷＢＮａｍｅでファイル名を取得し、拡張子前の「．（ピリオド）」を捉え、先頭から何文字目に「．（ピリオド）」が来るかを数値で返します。

因みに、数値を返すわけですが、実際にどの数値が返されてるかを見るには、「イミディエイトウィンドウ」を使うと良いです。

「表示」→「イミディエイトウィンドウ」で表示ができるようになります。

使い方は、目的のセンテンスの前に「Ｄｅｂｕｇ．Ｐｒｉｎｔ」を付ければＯＫ。

実行すれば、ウィンドウに取得した数値が表示されます。

具体的には、

Ｄｅｂｕｇ．Ｐｒｉｎｔ　num = InStr(WBName, “.”)

とします。

「オ」部分

今回は、ｐｄｆ化が目的なわけですが、この時使われるメソッドが、ＥｘｐｏｒｔＡｓＦｉｘｅｄＦｏｒｍａｔ。

舌を噛みそうなメソッドですが、これを使えばファイルをｐｄｆ化できます。

このメソッドにも、引数は多数存在しますが下記２つあれば今回の目的には充分。

Ｔｙｐｅ　，　ＦｉｌｅＮａｍｅ

前者は、特に説明の必要はないと思います。

後者は、保存場所なので好きな場所を指定するだけ。

ポイントは、Ｌｅｆｔ関数です。

Left(WBName, num – 1)

Ｌｅｆｔ関数は、文字列の先頭から文字列の一部を取り出す関数。

※書式的には、Ｌｅｆｔ（Ｓｔｒｉｎｇ，Ｌｅｎｇｔｈ）となります

青文字部分（Ｌｅｎｇｔｈ）が「ｎｕｍ-１」となってますが、これは検索した文字である「．（ピリオド）」の左側（－１）を意味します。

なので、ファイル名だけを純粋に取得できるわけです。

仮にピリオドを検索し、右側の拡張子部分を取得するならＲｉｇｈｔ関数を用います。

最後にＣｌｏｓｅでファイルを閉じておきます。

「カ」部分

「ア」～「オ」までのセンテンスにより、１つのファイルをｐｄｆ化することが出来ます。

後は、これを繰り返す形になりますが、その場合は、Ｄｉｒ()を用います。

これは、同じ条件でファイルを検索するという意味です。

Ｄｏ　Ｗｈｉｌｅ　～　Ｌｏｏｐ構文で、同じように処理ができるようになります。

以上となります。

ページ先頭へ戻る