マクロの動作不良

質問

エクセルに下のようなボタンマクロを設定しています。
内容は、inpシートに設定している開始番号と終了番号を入力するとその番号分だけreceptシートのでーたを入れ替えてPDFで吐き出すというコードです。

問題なく動いていたのですが、先日、PCを入れ替えた際に確認したところ、pdfが出力されなくなりました。特にエラーはでることなく完了するのですがファイルができません。

変な質問ですが、原因がつかめず困っております。
このエクセルファイルは旧PCでも、新PCでもSDカードに保存して使用しております。

宜しくお願い致します。

Sub ボタン6_Click()

Dim s As Long
Dim e As Long
Dim i As Long
Dim outputFilePath As String
Dim outputFileName As String

On Error Resume Next
s = InputBox("開始No.を入力して下さい。")
If s = 0 Then Exit Sub
e = InputBox("終了No.を入力して下さい。")
If e = 0 Then Exit Sub

' PDFの保存先フォルダを指定する
outputFilePath = Environ("USERPROFILE") & "\Desktop\"

For i = s To e
' 出力するファイル名を指定する
outputFileName = "recept_" & i & ".pdf"

' 対象の番号を設定する
Worksheets("Inp").Range("C1").Value = i

' PDF出力を行う
With Worksheets("Recept").Range("A36:J74")
.ExportAsFixedFormat Type:=xlTypePDF, _
fileName:=outputFilePath & outputFileName, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False
End With

' 作成したファイル名を表示する
MsgBox "PDFファイルを作成しました: " & outputFilePath & outputFileName
Next i

End Sub

回答No.10

kkkkkm

回答No.9の追加です。

デスクトップのパス
(現状ログインしているユーザー「過去の結果ではなくUSERPROFILEでのDesktopをその時点で確認して」で見てください。複数ユーザーの場合、USERPROFILEは外せないと思います)
が両方とも同じでしたら

コードの
.ExportAsFixedFormat Type:=xlTypePDF, _
fileName:=outputFilePath & outputFileName, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False

の以下の部分

Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False

をはずして

.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=outputFilePath & outputFileName

だけにして試してみてみるとか

PDFではなく単にエクセルファイルをそのまま保存して試してみるとかで、保存自体に問題があるかどうか確認したり、デスクトップにファイルが保存できるかどうかも確認してみてもいいかもしれません。

回答No.9

kkkkkm

とりあえず、ファイルフォルダでデスクトップのあるところを表示してそのパスと
NuboChanさんのNo.5の回答にあるコードで取得したデスクトップのパスと同じかどうか確認してみてはいかがでしょう。

デスクトップのPCからOS→ユーザー→現在のユーザー名→デスクトップで表示されたときが画像の上の状態で、デスクトップの右あたりをクリックすると画僧の下のように表示されます。
そのパスと比較してみてください。
クイックアクセスのデスクトップではなく必ず「OS」から進んでください。
画像の赤のxxxxxxxxは後で細工したもので実際のものではありません。

回答No.8

HohoPapa

Environ("UserProfile")
この戻り値が、
実行しているユーザのユーザプロファイルのフォルダーではないということのように思います。

この仮説が正しいなら、私だったら
Environ("UserProfile")　を使わず、　
"c:\Users\toiiz\Desktop"　を使います。

つまり、
outputFilePath = Environ("USERPROFILE") & "\Desktop\"
を
outputFilePath = "c:\Users\toiiz\Desktop"
に書き換えます。

ユーザプロファイルにこだわるなら
https://www.ubackup.com/jp/windows-10/backup-user-profile-windows-10.html
といったサイトを参考に、ユーザプロファイルを引っ越す、
あるいは、新たなアカウントを用意し
必要なデータたちを複写します。

回答No.7

NuboChan

すいません。
ミス書き込み、以下のように訂正（加筆）します。

以下から考えて
outputFilePath = Environ("USERPROFILE") & "\Desktop\"

outputFileName = "recept_" & i & ".pdf"

c:\Users\toiiz\Desktop　が存在しているのであれば

C:\Users\toiiz\Desktop\recept_1.pdf　として出力されるはずですが

C:￥users￥to￥desktoprecept_1.pdf　に現在出力されているのは理解できません。

回答No.6

NuboChan

c:\Users\toiiz\Desktop　が存在しているのであれば

c:\Users\toiiz\Desktop\desktoprecept_1.pdfとして出力されるはずですが
C:￥users￥to￥desktoprecept_1.pdf　に現在出力されているのは理解できません。

回答No.5

NuboChan

>環境変数というのはOSバージョンごとに異なるのでしょうか。

win11でもWin10と仕様は変わらないはずです。

>uses直下のフォルダ（C:￥users￥to￥）に”desktoprecept_1.pdfとして出力されました。

デスクトップディレクトリーがおかしくないですか？
（デスクトップのフルパスは想定の名前か、確認が必要です）

とりあえず、下記ののコードを追加すると
　どのように表示されますか　？

MsgBox "ユーザー名は" & vbLf & Environ("USERNAME")

MsgBox "デスクトップのパスは" & vbLf & Environ("UserProfile") & "\Desktop"

補足

引き続き、ご回答ありがとうございます。
コードを追加実行すると、ユーザ名はtoiiz、デスクトップのパスは、c:\Users\toiiz\Desktopとなりました。宜しくお願い致します。

回答No.4

HohoPapa

>PDF生成のコードが黄色く反転しました。
>しかし、どうも他の方が指摘くださったように
>新PCのパスの変数？のようです。
どのコードでどのようなエラーメッセージなのかを説明すれば
コメントできるかもしれません。

なお、
環境変数から取得するフォルダーが期待通りかどうかは
添付画像で確認する方法と

Sub aaa()
MsgBox Environ("USERPROFILE")
End Sub

といったコードを実行すれば確認できるものと思います。

回答No.3

imogasi

アウトプット先がDesktop\"となっているので、デスクトップにPDFファイルが作成されているかどうか
確認して、質問に書くべきでは。
＞PCを入れ替えた際に、が原因で従来なら行われる場所と、今回のファイルの場所が違ってしまい、影響が出ていないのか。
　　デスクトップに今回の処理でそれらしきファイが出来て居れば、そのファイルが印刷されないことの
原因究明に移るべきでしょう。
PDFファイルという、エクセルのバージョンの進化との関係で、Adobe社との関連で、色々事情があった箇所と関連していると思うが、プリンタ―ドライバーとか、ＰＤＦフォーマット作製のソフトのインストールの必要性は余りＷＥＢなどでも説明されていない。
Gｏｏｇleなどで「エクセル pdfファイル 印刷できない」でWEB照会し、該当しそうな記事を読んでやってみてはどうか。

回答No.2

HohoPapa

私の環境で行ってみる限り、デスクトップにPDFファイルが作成されます。
コードの実行途中で何やらエラーが起きているものと思いますが、
On Error Resume Next
このコードがあるため、発生している（と思われる）ものの、
無視されています。

このコードをコメントアウトすることで
エラーの発生を炙り出せるものと思います。

補足

ご回答ありがとうございました。
コメントアウトしますと、PDF生成のコードが黄色く反転しました。しかし、どうも他の方が指摘くださったように新PCのパスの変数？のようです。

回答No.1

NuboChan

Environ("UserProfile") & "\Desktop"

環境変数を確認してみてください。

イミディエイト ウィンドウでDebug.printして正常でしょうか　？

補足

ご回答をまことにありがとうございます。
Environ("UserProfile") & "\Desktop\"をEnviron("UserProfile") & "\Desktop"に直したところ、uses直下のフォルダ（C:￥users￥to￥）に”desktoprecept_1.pdfとして出力されました。

ご案内の環境変数は確認してみたのですが、正直よくわかりません。WINDOWS10で使用していましたが、PC移行で11になりました。環境変数というのはOSバージョンごとに異なるのでしょうか。