Excel VBA 質問スレ Part83 (612ﾚｽ)
上下前次1-新
抽出解除 必死ﾁｪｯｶｰ(本家) (べ) 自ID ﾚｽ栞 あぼーん
452(3): デフォルトの名無しさん [] 2025/07/24(木) 21:58:34.96 ID:GZnFTazm(1/5) AAS
複数のシートをpdf出力したいのです。
wb.Sheets(arr).Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=pdfPath

の様に、ActiveSheetで指定するしか方法はないのでしょうか？
ActiveSheetは明示的でないので避けたいです
456: デフォルトの名無しさん [] 2025/07/24(木) 22:52:04.71 ID:GZnFTazm(2/5) AAS
>>454
454(1): デフォルトの名無しさん [sage] 2025/07/24(木) 22:09:24.06 ID:GZcfs+u1(1) AAS
>>452
まずはAIに聞く癖を付けろ

以下の方法でActiveSheetを使わずに複数シートをPDF出力できます：

```vb
wb.Worksheets(arr).ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=pdfPath
```

`wb.Worksheets(arr)`で直接シートコレクションを指定すれば、ActiveSheetに依存せずに済みます。​​​​​​​​​​​​​​​​
はい、AIは大嘘つき
457: デフォルトの名無しさん [] 2025/07/24(木) 22:52:55.23 ID:GZnFTazm(3/5) AAS
>>453
453(1): デフォルトの名無しさん [sage] 2025/07/24(木) 22:07:09.88 ID:CXis1mnI(1) AAS
>>452
wb.Sheets(arr).ExportAsFixedFormat Type:=xlTypePDF, Filename:=pdfPath
無理でーす
458: デフォルトの名無しさん [] 2025/07/24(木) 22:53:12.34 ID:GZnFTazm(4/5) AAS
>>455
455(1): デフォルトの名無しさん [sage] 2025/07/24(木) 22:21:03.69 ID:3SMUfFNx(1) AAS
↓は実行できるけど、
ThisWorkbook.Sheets(Array("Sheet1", "Sheet2")).Select

↓はエラーにならね？
ThisWorkbook.Sheets(Array("Sheet1", "Sheet2")).ExportAsFixedFormat Type:=xlTypePDF, Filename:=pdfPath
正解！
459: デフォルトの名無しさん [] 2025/07/24(木) 22:57:55.91 ID:GZnFTazm(5/5) AAS
wb.Sheets(配列).Select

ActiceSheet..ExportAsFixedFormat Type:=xlTypePDF, Filename:=Path
でしかエラーになります
上下前次1-新書関写板覧索設栞歴
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ
ぬこの手 ぬこTOP 1.070s*