[[20240412005816]]　『デスクトップにPDF保存を共有』（高木）　ページの最後に飛ぶ

『デスクトップにPDF保存を共有』（高木）

こんにちは。教えて頂きたいです。

何とかデスクトップにPDF保存するマクロを作ったのですが、
これを誰のPCで使ってもデスクトップに保存するように変えることは可能でしょうか。
Oredrive運用でのデスクトップは全員共通です。

TAKAGIのところがSATOであってもOONOであっても
デスクトップに保存させたいです。

難しいようでしたら何か他に助言を頂ければ幸いです。
よろしくお願いいたします。

Sub PDF保存()

        ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "C:\Users\TAKAGI\OneDrive\Desktop\" & StrConv(Range("A1"), vbNarrow) & "(" & Range("A2") & ").pdf", Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        True
End Sub

＜使用 Excel：Microsoft365、使用 OS：Windows11 ＞

デスクトップなど【特殊フォルダ】と呼ばれるものは取得する方法があります。

 【参考】
http://officetanaka.net/excel/vba/tips/tips107.htm#google_vignette

したがって、例えば↓のようにするとよいと思います。

    Sub PDF保存()
        Dim デスクトップパス As String
        デスクトップパス = 特殊フォルダのパスを取得する命令

        With ActiveSheet
            .ExportAsFixedFormat _
                Type:=xlTypePDF, _
                Filename:=特殊フォルダ & "\" & StrConv(.Range("A1"), vbNarrow) & "(" & .Range("A2") & ").pdf", _
                Quality:=xlQualityStandard, _
                IncludeDocProperties:=True, _
                IgnorePrintAreas:=False, _
                OpenAfterPublish:=True
        End With
    End Sub

（もこな２） 2024/04/12(金) 07:03:06

もこな2さん
ありがとうございます。
リンク先見て色々試してみましたが私にはパスの命令など
難しくてわかりませんでした。

（高木） 2024/04/12(金) 11:49:49

＞リンク先見て色々試してみましたが～
どのようなことをいろいろ試しましたか？下のようなことを言ったつもりですが....

    Sub 実験()
        MsgBox "私のデスクトップのパスは↓のとおりです" & vbLf & CreateObject("WScript.Shell").SpecialFolders("Desktop")
    End Sub

（もこな２） 2024/04/12(金) 12:09:12

 OneDriveでデスクトップを同期対象にしているということでしょうか？
　
 その場合、OneDriveのローカルフォルダの下にデスクトップがあると思います。

 OneDriveのローカルフォルダは、Environ関数を使って

  Debug.Print Environ("OneDriveCommercial")   '法人向けOneDrive
  Debug.Print Environ("OneDriveConsumer")     '個人向けOneDrive

 で取得できるみたいなので、

        ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "C:\Users\TAKAGI\OneDrive\Desktop\" & StrConv(Range("A1"), vbNarrow) & "(" & Range("A2") & ").pdf", Quality:=xlQualityStandard, _　
 の　"C:\Users\TAKAGI\OneDrive\Desktop\"　の部分を Environ("OneDriveCommercial") に置き換えて見てください。
（´・ω・`） 2024/04/12(金) 12:36:09

 まちがえました

 "C:\Users\TAKAGI\OneDrive\Desktop\"　の部分を Environ("OneDriveCommercial") & "\Desktop\" に置き換えて
（´・ω・`） 2024/04/12(金) 12:47:51

コメント返信：

[ 一覧(最新更新順) ]

[[20240412005816]] 『デスクトップにPDF保存を共有』（高木） ページの最後に飛ぶ

[[20240412005816]]　『デスクトップにPDF保存を共有』（高木）　ページの最後に飛ぶ