質問: 65535 Then Sheets(i).ExportAsFixedFormat Type:=xlTypePDF, _ Filename:=ActiveWorkbook.Path & "\" & Sheets(i).Name & ".pdf" End If Next i End Sub 宜しくお願い致します。
回答: Sub test() Dim i As Long Dim FP As String 'フォルダを選択 With Application.FileDialog(msoFileDialogFolderPicker) If .Show = 0 Then Exit Sub End If FP = .SelectedItems(1) End With For i = 1 To Sheets.Count If IsNumeric(Sheets(i).Name) = True Then Sheets(i).ExportAsFixedFormat xlTypePDF, FP &"\検査規格書"&Sheets(i).Range("C2") &Sheets(i).Range("F3") &".pdf"End If Next i End Sub