6

特定のキーワードでシートを選択し、PDF化します。
キーワードは「含む」ものをPDF化、「含まない」ものをPDF化の選択ができます。
印刷とPDF化の選択も入れようと思いましたが、やめておきました。

Yuzunokiさんのご協力のもと、シェアさせていただきます。

設定変数 ファイル名         ※Excelファイル名
     書き込みファイル名     ※PDF化するファイル名
     キーワード         ※シート名に含まれるワード
     キーワード含む・含まない  ※キーワードを含むものをPDF化か、含まないものをPDF化か選択

ライブラリ Excel操作(PDF形式で出力) 

' ====PDFを出力する ==============================================================

workbook.ExportAsFixedFormat 0,pdfFilePath

この一行を削除し、以下のコードを追加します。

Dim MySheet
Dim MySheetName()
Dim i
Dim Myword
Dim Myselect

Myword = ! キーワード !
Myselect = ! キーワード含む・含まない|含む,含まない!
ReDim MySheetName(0)

If Myselect = "含む" then

For Each MySheet In workbook.Worksheets
If Instr(MySheet.Name, Myword) > 0 Then
ReDim Preserve MySheetName(i)
MySheetName(i) = MySheet.Name
i = i + 1

Else
End If
Next

Else

For Each MySheet In workbook.Worksheets
If Instr(MySheet.Name, Myword) > 0 Then
Else : ReDim Preserve MySheetName(i)
MySheetName(i) = MySheet.Name
i = i + 1
End If
Next

End if

On Error Resume Next
workbook.Sheets(MySheetName).Select

If Err.Number <> 0 Then
Msgbox "シートがみつかりません"
Else : workbook.ActiveSheet.ExportAsFixedFormat 0, pdfFilePath
End If
On Error Goto 0

RPA狼 新しいコメントを投稿
回答とコメントは、会員登録(無料)で閲覧できるようになります。