Hatena3Pocket4LINESendLINESendCopy-おはようございます。大体はPDFに変換して誰かに送付したり、社内でレビューをしたりしますよね。ビジネスシーンでは最早当たり前のようにやられていることかと思います。沢山のドキュメントを一括で変換したいって時に使えるバッチ(VBScript)を作りました。まとめそもそも何故PDFに変換するのか送受信者でレイアウトに相違が起きにくいExcel、Wordであれば、バージョンや各自の設定によって見え方が異なってしまう可能性がありますが、PDFはどんな環境でも同じレイアウトで閲覧することができます。今の時代、あんまりないのかもしれませんが、Excel、Wordの場合はそれぞれのソフトウェアがインストールされていないと閲覧ができません。サイズが圧縮される一般的に、PDFに変換するとサイズが圧縮されるため、メールなんかで送受信する際には双方にメリットがあります。加工できない重要な書類などは、誰かに加工されてしまうと困る場合があります。ExcelやWordなんかにもパスワードでロックする機能がありますが、PDFであれば特に何もする必要なく、基本的には加工できません。次の方法でPDF化できるようにしました。To)また、出力後に元ファイルを削除するかどうかのフラグを持たせ、元ファイルの削除に対応しました。※バックアップなど、自己責任でお願いします。2013以前の場合に保存ダイアログが表示されてしまうケースに対応しました。追記びば様の要望で、PowerPointに対応しました。変換したPDFを別のフォルダに出力するかどうかを「copyFlg」で制御するようにしました。下記の内容をテキストファイルにコピペして、「convertPdf.vbs」という名前で保存します。変換して指定したフォルダに出力します。以上、プリンタが使用できる環境でのみ動作します。アプリケーションオブジェクトを作成します。'7.フォルダオブジェクトから格納されているファイル、フォルダを取得します。変換したPDFを出力しました。"PDFの変換が完了しました。変換して指定したフォルダに出力します。以上、プリンタが使用できる環境でのみ動作します。アプリケーションオブジェクトを作成します。If'7.フォルダオブジェクトから格納されているファイル、フォルダを取得します。変換したPDFを出力しました。"PDFの変換が完了しました。Sub実行してみるフォルダ内容Excelフォルダ―にはExcelファイルを2種類、同じ階層にはWordファイルを2種類配置しました。この状態で、ConverPdf.vbsを実行。完了メッセージ変換が完了するとメッセージが表示されます。変換後のフォルダ内容VBScript内で指定した出力先にPDFが出力されます。PDFファイルPDFを表示してみると、ちゃんと内容が表示されることが確認できました。まとめ例えば、タスクスケジューラなんかに仕込んで決まったフォルダにドキュメントを入れておけば自動で変換してくれるなんてこともできそうですね。ブログ村始めてみました。応援していただけると嬉しいです。doradora気になる本は読んでもらおう!広告お役に立ちましたらいいねしていただけるとうれしいです。AMweb上を探し回ってここにたどり着き、なんとかじぶんのやりたいことを解決できました。助かりました、スクリプトの公開をありがとうございました。一つ、ExcelのシートがすべてPDFに変換してしまうのですが、アクティブシートのみPDF変換するようにはできないものでしょうか。お忙しい中超初心者のお相手は無理かもしれませんが、お暇な時で結構ですのでご教授いただければ幸いです。PMフジイヒロシ様いつも記事を見ていただきありがとうございます。ご質問の件、アクティブシートとはどういった状態のことでしょうか。1.対象のExcelを開いていて、且つ表示しているシート2.何かしらのデータが存在するシート基本的には、開いているファイルを変換する想定をしていませんでしたが、ご要望であれば少し方法を調べてみます。AMdoradoraさま早速のご回答ありがとうございます。お忙しいのに手を煩わせてしまったようで申し訳ございません。doradoraさまのおっしゃる1.のケースです。シートが1.2.3とあって、すべてのシートにデータが入っているとします。1.を編集後、上書き保存してpdfにエキスポートします。するとシート1のみPDFにエキスポートして2.3のシートについてはPDFにエキスポートしません。この1の状態をアクティブシートというと認識していますが、勘違いでしょうか?1のみPDFとしたかったわけです。ど素人ですので、お手を煩わせて申し訳ありません。ページ指定で切り替えられるようにコードを修正しました。していただければ出来るかと思います。PMdoradora様あまりの素早いご回答にびっくりしました。先を見越したようなページ指定(これexcelで初心者が陥る、とんでもないところに入力があって白紙のページが何枚もできてしまうのを防げそうです。)もさらにびっくりです。お恥ずかしいような話ですが初心者の作ったexcelをpdfにする変換作業が画期的に楽になりそうです。本当にありがとうございました。AMフジイヒロシ様お役に立てたみたいでよかったです。何かあれば、ご遠慮なくご連絡いただければ。今後ともよろしくお願いします。PMお言葉に甘えてもいいでしょうか。変換後削除することは可能でしょうか?毎日一回タイムスケジューラで実行したいのです。毎日新規でxlsxファイルがクラウド上に送られてきます。お手を煩わせて申し訳ございません。