質問: range("d4") to lastrow '始まりから終わりまで繰り返し activesheet.exportasfixedformat _ type:=xltypepdf, _ filename:=thisworkbook.path & "_" & date & camname _ & ".pdf", _ quality:=xlqualitystandard, _ includedocproperties:=true, _ ignoreprintareas:=false, _ openafterpublish:=false next i msgbox "掲示が【" & thisworkbook.path & "】フォルダ内に格納されました。" else ''[いいえ]がクリックされたときの処理 end if end sub
回答: こんにちは、for i nextについては range("d4")に数値(1以上)が入っていると想定します。 空欄、文字、0などがあれば、エラーです。cells(0,"e")は存在しない為。 activesheet.exportasfixedformat _ type:=xltypepdf, _ filename:=thisworkbook.path & "\" & date & camname _ & "_" & worksheets(psheet).cells(i, "e").value & ".pdf", _ quality:=xlqualitystandard, _ includedocproperties:=true, _ ignoreprintareas:=false, _ openafterpublish:=false ついて、"\"を付けたのはokです。もう一つ dateはdate型なのでstringに変更する必要があります、 該当部分は、filename:=thisworkbook.path & "\" & format(date, "yyyymmdd") & camname _ また、worksheets(psheet).cells(i, "e").value についてもstring型である必要があるので.textにした方が良いでしょう。