Q&A
こんにちは！ご回答ありがとうございます！
アドバイス通り記述してみましたが変化なしでした....
記述場所はFor文の中だけで良かったでしょうか？
フォルダ内のエクセルファイルをPDF出力するマクロを作成しました。
出力したい条件としては、シート名にDBを含むシートは除いて、すべてをPDF出力、複数シートがある場合は結合してPDF出力
と言った作業が行いたく以下のマクロを作成しました。
VBA
1 2Sub EXCELファイルPDF化03() 'フォルダのEXCELファイルの一括変換 3 4 Dim Button, T, i, L As Integer 5 Dim OpenExcelFileName, ExcelFileName, ExcelFilePath, ExFileName As String 6 7 Application.DisplayAlerts = False '確認メッセージを無効化します。 8 9 10 Button = MsgBox("EXCEファイルの一括PDF変を行いますか？", vbYesNo + vbQuestion, "確認") 11 If Button = vbYes Then 12 13 OpenExcelFileName = Application.GetOpenFilename 'ダイアログを表示取り込むフォルダーにあるファイルを選択します。 14 15 If OpenExcelFileName <> "False" Then 16 ExcelFileName = Dir(OpenExcelFileName) '指定したファイルパスからファイル名を代入します。 17 ExcelFilePath = Replace(OpenExcelFileName, ExcelFileName, "") '指定したファイルパスを指定します。（ファイルパスからファイル名を取り除く） 18 19 MsgBox ExcelFilePath & "この選択フォルダからPDFに変換します。" 20 Else 21 MsgBox "キャンセルされました" 22 Exit Sub 'キャンセルでプログラムを終了します。 23 24 End If 25 26 ExFileName = Dir(ExcelFilePath & "*.xls?") '指定したフォルダーから一件目のEXCELファイルを指定します。 27 28 29 Do While ExFileName <> "" '読み込むファイルがなくなるまで繰り返す。 30 31 Workbooks.Open fileName:=ExcelFilePath & ExFileName, ReadOnly:=True, UpdateLinks:=0 'EXCELファイルを読み取り専用で読み込む 32 ExFileName = Left(ExFileName, InStr(ExFileName, ".") - 1) ' ファイル名から拡張子を取り除く（.xls?） 33 Set wb = ActiveWorkbook 34 35 With ActiveSheet.PageSetup 36 .Zoom = False 37 .FitToPagesWide = 1 38 .FitToPagesTall = 1 39 End With 40 41 'ActiveWorkbook の記述はいらなかった 42 'レポートの記述にいらないスペースがあったかも 43 44 Dim sheet_count As Integer 45 sheet_count = Worksheets.Count 46 Dim ArrayShName() As String 47 ReDim ArrayShName(sheet_count) 48 Dim mySheet As Worksheet 49 50 On Error Resume Next 'エラー無視 51 52 Dim k As Long 53 k = 0 54 55 Dim j As Integer 56 For j = 1 To Worksheets.Count 57 If Worksheets(j).Name <> "DB" Then 58 ArrayShName(k) = Worksheets(j).Name 59 k = k + 1 60 End If 61 Next 62 63 Worksheets(ArrayShName).Select 64 ActiveSheet.ExportAsFixedFormat _ 65 Type:=xlTypePDF, _ 66 fileName:=ExcelFilePath & ExFileName, _ 67 OpenAfterPublish:=True 68 69 ActiveWindow.Close '読み込んだファイルを閉じます。 70 71 ExFileName = Dir() '次のファイルを指定する。 72 73 Loop 74 75 MsgBox "PDFファイルに一括変換しました。" 76 Else 77 MsgBox "処理を中断します" 78 End If 79 80 Application.DisplayAlerts = True '確認メッセージを有効化します。 81 82End Sub
ただ現状タイトルにも記載して重複で申し訳ないんですが、
複数シートがあるファイルをPDF出力する際シートが一つしか出力されないものと全て出力されるものと分かれてしまい
その原因がどこにあるのかわからず困っております。
調べ方であったり、ここの記述がおかしい！など手掛かりになるヒント、アドバイスを頂けると幸いです。
宜しくお願い致します。
参考記事：https://ateitexe.com/excel-vba-sheets-to-merge-pdf/
OS：macOS Catalina バージョン10.15.3
Excelバージョン： Microsoft Excel for Mac バージョン16.39
回答3件
0
ベストアンサー
以下のように修正してうまくいきませんか？
修正前) ActiveSheet.ExportAsFixedFormat
修正後) wb.ExportAsFixedFormat
マイクロソフトのドキュメントではExportAsFixedFormatメソッドはWorkbookオブジェクトのメソッドだと書いてありました。
https://docs.microsoft.com/ja-jp/office/vba/api/excel.workbook.exportasfixedformat
投稿2020/08/05 23:43
総合スコア305
0
こんにちは。
VBA
1 sheet_count = Worksheets.Count 2 : 3 For j = 1 To Worksheets.Count 4 If Worksheets(j).Name <> "DB" Then 5 ArrayShName(k) = Worksheets(j).Name
Worksheets を wb.Worksheets としても変わりませんか？
投稿2020/08/05 04:05
総合スコア1095
sheet_countに代入しているところもです。
自分はVBAを書くとき、目的のオブジェクトが現在アクティブであることを前提としないよう心がけています。
自分自身ならThisWorkbook.Sheets("XXX").YYY、他のブックならWorkbooks("???").Sheets("XXX").YYYと明示的に書く。
長すぎる場合はオブジェクト変数にセットするかWith句を使う。
ご返答ありがとうございます！
Worksheetsの記述部分に色々wb.の記述を足してみたのですが変化なしでした....
今回一つしか出力されていないシートはなんらかの理由でシートが一つしかアクティブになってないよ的な事でしょうか？
ブックを伴わないWorksheetsや、ブックとワークシートを伴わないRange等を使用して、想定外のシートがアクティブだったことで失敗するケースを経験したことがあるので、、、
> なんらかの理由でシートが一つしかアクティブになってない
それもありますし、別のブックがアクティブになっていたら、それこそ期待した結果になりませんから。
ちょっと気になったのでコメントです。
> なんらかの理由でシートが一つしかアクティブになってない
複数シートがアクティブになることはありません。
アクティブとセレクトの違いを意識しておくのは大事です。
https://excel-ubara.com/excelvba1/EXCELVBA327.html
ご返答ありがとうございます！
シートの件詳しく返答いただきありがとうございます！
とても参考になります！意識して勉強させていただきます。
0
Worksheets(ArrayShName).Select
の後に、
Stop
と書いて一次停止し、
意図したシートがちゃんと選択できているか
確認してみてください。
あと、コツとしては、
単一ブックで試してみることです。
繰り返すことはコンピューターは得意ですので、
とりあえず、1つだけで試す。
上手くいきそうなら3つで試す。
その後は10個でやってみる。
その中で、うまくいくファイルとそうでないファイルの違いを
探してみてください。
追記
Stopで止めたとき、
ローカルウィンドウの
ArrayShNameの中身を確認してください。
変数名の左に「⁺」があると思うので、それをクリックで中身が展開できます。
とりあえず、
新規ブックに以下のコードを記入し、
その後テストしたいファイルを開いた後、
コードを実行してみてください。
ExcelVBA
1Option Explicit 2 3Sub test() 4 Dim wb As Workbook 5 6 Set wb = Workbooks(Workbooks.Count) '最後に開いたブックの取得 7 If MsgBox(wb.Name & "を操作します。", vbYesNo) = vbNo Then Exit Sub 8 9 Dim v() As String 10 Dim ws As Worksheet 11 Dim i As Long, j As Long 12 13 ReDim v(wb.Worksheets.Count) 14 For i = 1 To wb.Worksheets.Count 15 Set ws = Worksheets(i) 16 If ws.Name <> "DB" Then 17 v(j) = ws.Name 18 j = j + 1 19 End If 20 Next 21 22 If j > 1 Then 23 ReDim Preserve v(j - 1) 24 Debug.Print Join(v, ",") 25 wb.Activate 26 wb.Worksheets(v).Select 27 End If 28End Sub
動作確認は、
ステップインで、一行づつ実行しながら、
ローカルウィンドウで変数の中身が意図するものになっているか
確認しながら、最終的にはシートを選択するのですから、
意図した結果が、画面上に反映されているか確認してください。
やみくもに、本番コードに追記していっても、
時間がかかるばっかりかと思いますよ。
まずは、ひとつづテーマを絞って解決していって、
自信が出来たら、本番コードに追加していってみては？
投稿2020/08/05 03:25
編集2020/08/05 10:22
総合スコア2136
ご回答ありがとうございます！
Stopを記述してみて試してみたところ
上手く成功したやつはシートが一つ選択されたあとそのまま全て保存作業に入り全シートがPDF化
１つしか出ないやつはシートが一つ選択されたあと一つだけ保存作業に入り１つのシートがPDF化されました。
かなり曖昧な伝え方で大変申し訳ないのですが、意図したシートがちゃんと選択できているかの確認はどのように見るのでしょうか？Debug.Printなどを用いた方が良いですか？
あと単一ブックで試すと言うのはフォルダにファイルを一つずつ分けて作業していくとわかりやすいよ的な理解で大丈夫ですか？
質問多くて大変恐縮ですが、宜しくお願い致します。
>かなり曖昧な伝え方で大変申し訳ないのですが、意図したシートがちゃんと選択できているかの確認はどのように見るのでしょうか？
エクセルの画面を見ればいいのでは？
＞あと単一ブックで試すと言うのはフォルダにファイルを一つずつ分けて作業していくとわかりやすいよ的な理解で大丈夫ですか？
それでもいいですし、
僕なら少しずつ確認しながら作ります。
まずは、1つのブックを処理するプログラムを作り、
動作確認がしっかり取れたら、
別のプロシージャからそのプロシージャを繰り返し呼び出します。
機能別にプロシージャを作り、
再利用するイメージです。
ご返答ありがとうございます！
そうか！まず今全部シートが出力されないエクセルファイルでシート全部が出力できるマクロが作れれば何かしら兆しが見えてくると言う事でしょうか！？
とりあえず、追記します。
＞そうか！まず今全部シートが出力されないエクセルファイルでシート全部が出力できるマクロが作れれば何かしら兆しが見えてくると言う事でしょうか！？
違います。
taka-hoopさんは、
意図するシートを「選択（Select)」し、
選択されたシートをPDFにエクスポートしようとしているのですから、
VBA語でエクセル君を遠隔操作(文字だけで指示）で、
シートを選択させられるようにならなければ、先に進めないと言っているのです。
ご返答ありがとうございます！
すいません、頂いたコードで新規ブックを作成してテストしたいファイル開いた後にコードを実行したところ
If ws.Name <> "DB" Then
この部分で実行時エラー９１が出るのですが
どこかが上手くオブジェクト変数に格納できてない現象なのでしょうか？
後、stopで止めた時のデバッグの仕方やっとわかりました！ありがとうございます！
１つのシートしか出力されないファイルのArrayShNameの中身なんですがシートDB以外全部とれてます....
失礼しました。
貼り付けてから、そちらの書き方に合わせたので、
修正しきれてませんでした。
修正しました。
エラーが出たら、
エラー番号やエラーメッセージをそのままWebで検索してください。
たいていの原因や対応はわかるはずです。
いつあるかわからない回答を待つより、
自分で調べた方が解決が早いと思います。
待つ時間がもったいないです。
とにかく自分で調べられるようになれると勉強がはかどります。
もちろん、掲示板だとかゆいところに手が届くのですが。
ご返答ありがとうございます！
お忙しい中修正までありがとうございます！
エラーでの検索は行ってはいるのですが自身の環境に照らし合わせ？て柔軟に対応するのが現状苦手な部分なのかなと思っております。
ところで一つ気になった点としては一度返信していて重複していて大変恐縮なのですが、
stopで止めた時１つのシートしか出力されないファイルのArrayShNameの中身なんですがシートDB以外全部とれていました！
自分の中ではこのArrayShNameの中身にシートの情報が入っていないから出力されないのかなと思っていたのですが、どういった検索を行うとヒント等に辿り着けるかアドバイス頂けると幸いです！
＞stopで止めた時１つのシートしか出力されないファイルのArrayShNameの中身なんですがシートDB以外全部とれていました！
僕が書いたコードと、taka-hoopさんの書いたコードと、結果は、同じだったでしょうか？
僕の書いたコードで、
ReDim Preserve v(j - 1)
の後に、
debug.print join(v,",")
と入れて実行してみてください。
イミディエイトウィンドウに文字列が書き出されると思います。
同じように、
taka-hoopさんが書いたコードの
Worksheets(ArrayShName).Select
の行の前に
debug.print join(ArrayShName,",")
stop
と書いてイミディエイトウィンドウを確認してください。
違いがありますでしょうか？
結果をお知らせください。そのままコピペで。
ちなみに実行時エラー９１は、
変数「ws」がNothingのままだったので（何も代入してなかった）、
シートでもなんでもないものに対して、Nameプロパティを取得しようとしたので、
エラーになってました。
ご返答ありがとうございます。
コードは以下のように記述し
Debug.Print Join(ArrayShName, ",")
Stop
Worksheets(ArrayShName).Select
ActiveSheet.ExportAsFixedFormat _
Type:=xlTypePDF, _
fileName:=ExcelFilePath & ExFileName, _
OpenAfterPublish:=True
イミディエイトウィンドウには
表紙,検索,表示箇所,行動,順位,,と表示されています。（出力されて欲しいシートは全部とれてます）
了解です。
僕が書いたコードではどうなります？
やっぱりエラーですか？
違いで原因を特定したいので。
ご返答ありがとうございます！
頂いたコードで新規ブックを作成してテストしたいファイル開いた後にコードを実行したところ
コンパイルエラーが出てイミディエイトウィンドウには何も表示されておりません！
失礼しました。
修正し、動作確認しました。
ご確認願います。
ご返答ありがとうございます！
何度も修正大変ありがとうございます！
再度頂いたコード実行したところ、イミディエイトウィンドウには
表紙,検索,表示箇所,行動,順位,,と表示されています。（出力されて欲しいシートは全部とれてます）
なので一緒ですね！
表紙,検索,表示箇所,行動,順位
こちらでは、上記のようになりました。
taka-hoopさんのコードでは、
表紙,検索,表示箇所,行動,順位,,
となります。
対象のブックを開いた状態で、
イミディエイトウィンドウに
worksheets(split("表紙,検索,表示箇所,行動,順位,,"、”,").select[Enter]
※[Enter]は、Enterキー押下の意
としてみてください。
エラーになります。
実際のコードでエラーが出ないのは、
On Error Resume Next 'エラー無視
↑これを書いているからです。
on error ステートメントはできるだけ使わないようにしましょう。
エラーが出て欲しい場面でも出なくなるので、
不具合の原因がつかみにくくなります。
つまり、作った配列の中に、シート名として不都合な
長さ0の文字列が含まれていることが原因です。
で、ひとつしかシートが出ない原因は、
1）ワークブックは、必ずどれか一つは必ず選択された状態
2)シートを選択する命令がエラーで選択自体が無効
ということで、ファイルを開いたときに選択されているシートのみ
エクスポートされているということです。
回避策としては、
ReDim Preserve v(j - 1)
のように中身を保持したまま、不要な配列要素を除外するようにしてください。
ご返答ありがとうございます！
細かにご丁寧な説明本当にありがとうございます！
一応なんですが自分の作ったマクロで対象のファイルを開いたまま頂いたコードイミディエイトウィンドウで試すとコンパイルエラーが出ます。（On Error Resume Next記述が残っていても）
あと詳細に説明してもらってて大変申し訳ないのですが、最後のReDim Preserve v(j - 1)で中身を保持したまま、不要な配列要素を除外する ここが理解するのがとても難しいです。
どういった風に調べたり何かとっかかりになるアドバイスが頂けると幸いです！
僕のサンプルで、ステップ実行しながら、ローカルウィンドウで配列の中身と要素数を確認して見てください。
あとは、
動的配列変数
preserveキーワード
等で検索してください。
解決したようでなによりです。
PDFにエクスポートしたくないシートは非表示にしておくと、
ブック全体でエクスポートしてもPDFに含まれないようです。
SelectしたりActiveSheetを指定したりするところがどうも引っかかってましたが、
そうすることで、それらのキーワードを使わなくても良くなります。
また、開いたブックは、読み取り専用で開いても普通に開いても、
保存しないで閉じれば結果は同じです。
参考になれば。
ご返答ありがとうございます！
SelectしたりActiveSheetを指定の部分はまだ私自身も全然理解できてない部分が多いですが
補足での情報ありがとうございます！とても参考になります！
いつもご丁寧に対応頂き本当にありがとうございます。
あなたの回答
tips
プレビュー
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。
2020/08/06 00:01
2020/08/06 01:42
2020/08/06 01:56
2020/08/06 03:27
2020/08/06 04:34
2020/08/06 08:07
2020/08/06 10:20
2020/08/06 10:41
2020/08/06 10:48
2020/08/07 03:39
2020/08/07 06:11
2020/08/07 06:19
2020/08/07 06:36
2020/08/07 06:37
2020/08/07 06:39
2020/08/07 08:06
2020/08/07 08:19
2020/08/07 08:44
2020/08/07 08:55