
先日、VBAでエクセルをPDFで保存するときの記述を、tatsu99様に2パターン教えていただいたきました。
現在、保存先を社内の共有サーバーに作成したフォルダを指定していますが
どちらのパターンも、複数のユーザーが各自のデスクトップに作成した特定のフォルダに保存するにはどのように記述したらよいでしょうか?
各ユーザーには、デスクトップに「PDF保存」というフォルダ名でフォルダを作成してもらいます。
「デスクトップパスを取得するユーザ定義関数」など調べてみたのですが、上手くできず…
よろしくお願いいたします。
【先日教えていただいた記述 パターン①】-------------------------------------------------------
■エクセルをPDFで保存し、ファイル名はA1セルを参照するVBAの記述
https://oshiete.goo.ne.jp/qa/10704317.html
Option Explicit
Sub PDF出力()
Const saveFolder = "\\server\PDF保存\"
Dim fname As String
Dim fullname As String
fname = ActiveSheet.Range("A1").Value & ".pdf"
fullname = saveFolder & fname
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=fullname
MsgBox (fullname & "保存完了")
End Sub
---------------------------------------------------------------------------------------------------
【先日教えていただいた記述 パターン②】-------------------------------------------------------
■小計の列が「0」の行は非表示で、エクセルをPDF保存するVBAの記述
https://oshiete.goo.ne.jp/qa/10707560.html
Sub PDF出力()
Const saveFolder = "\\server\PDF保存\"
Dim fname As String
Dim fullname As String
Call 表示制御(True)
fname = ActiveSheet.Range("A1").Value & ".pdf"
fullname = saveFolder & fname
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=fullname
Call 表示制御(False)
MsgBox (fullname & "保存完了")
End Sub
Private Sub 表示制御(flag)
Dim maxrow As Long
Dim row As Long
maxrow = Cells(Rows.Count, "F").End(xlUp).row 'F列の最大行取得
For row = 6 To maxrow
If Cells(row, "F").Value = 0 Then
Rows(row).EntireRow.Hidden = flag
End If
Next
End Sub
---------------------------------------------------------------------------------------------------

No.1ベストアンサー
- 回答日時:
tatsu99です。
パターン②だけです。
Sub PDF出力()を以下のように変えてください。
Private Sub 表示制御(flag) は変更不要です。
パターン①も同様にします。やってみてください。(出来なかった場合は補足してください)
----------------------------------
Sub PDF出力()
Dim saveFolder As String
Dim WSH As Variant
Dim fname As String
Dim fullname As String
Set WSH = CreateObject("WScript.Shell")
saveFolder = WSH.SpecialFolders("Desktop") & "\"
Call 表示制御(True)
fname = ActiveSheet.Range("A1").Value & ".pdf"
fullname = saveFolder & fname
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=fullname
Call 表示制御(False)
MsgBox (fullname & "保存完了")
End Sub
お世話になっております。
毎々、迅速で的確なご回答をいただき本当にありがとうございます。
パターン①も同様にし、できました!
おかげさまで、社内のリクエストに応えることができ
大変助かりました。
またご相談をアップさせていただくこともあるかと思いますが
今後ともどうぞよろしくお願いいたします。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセルVBA、間違っているコード内容を正して頂けませんか? エクセルワークシートに納品書を作ったの 2 2023/08/02 21:13
- Excel(エクセル) 【マクロ】ファイル名の日付によって、保管するフォルダを、自動選択したい 4 2023/08/16 11:24
- Visual Basic(VBA) VBA 請求書自動作成 3 2022/04/24 01:58
- Excel(エクセル) エクセル2019でPDFファイル名に枝番号をつけたい。 アクティブワークシートを印刷した後の処理とし 4 2023/06/06 21:00
- Excel(エクセル) エクセルVBA、ファイル名をセルの値で保存の方法を教えてください。 おそれいります。こちらで数々のエ 6 2023/06/30 22:17
- Excel(エクセル) エクセルシートをVBAでpdfで保存したい 2 2022/06/27 10:17
- Excel(エクセル) フォルダ内のワードファイルをPDFに一括変換するVBA 3 2023/06/09 16:51
- Visual Basic(VBA) VBAが止まります。 2 2022/09/02 14:02
- Visual Basic(VBA) 【前回の続き続きです、ご教示ください】VBAの記述方法がわかりません。 2 2022/08/24 20:49
- Excel(エクセル) PDFファイルに日付を名前にして保存したい。 エクセル2019でワークシートに請求書のフォームを作り 2 2023/05/27 11:13
このQ&Aを見た人はこんなQ&Aも見ています
-
好きな人を振り向かせるためにしたこと
大好きな人と会話のきっかけを少しでも作りたい、意識してもらいたい…! 振り向かせるためにどんなことをしたことがありますか?
-
何回やってもうまくいかないことは?
みなさんには、何回やってもうまくいかないことはありますか?
-
もし10億円当たったら何に使いますか?
みなさんの10億円プランが知りたいです!
-
あなたの人生で一番ピンチに陥った瞬間は?
これまでの人生で今振り返ると「あの時、1番ピンチだったなぁ...」という瞬間はありますか?
-
思い出すきっかけは 音楽?におい?景色?
記憶をふと思い出すきっかけは 音楽、におい、景色 どれですか?
-
【VBA】PDF出力に任意のファイル名前を付ける方法
Excel(エクセル)
-
エクセルをPDFで保存し、ファイル名はA1セルを参照するVBAの記述を教えてください。
Excel(エクセル)
-
マクロ始めたばかりです。 デスクトップにあるフォルダをVBAで開きたいのですが
Excel(エクセル)
-
-
4
エクセル マクロ 名前を付けて保存 PDF保存先指定 ファイル名任意+日付
Excel(エクセル)
-
5
【Excel】指定したセルの名前でPDFを保存する【VBA】
Visual Basic(VBA)
-
6
【Excel VBA】PDFを作成して,指定したフォルダに保存するコードについて
その他(Microsoft Office)
-
7
マクロ、PDFを任意のフォルダへ保存
Excel(エクセル)
-
8
EXCEL ページを指定してPDF出力するVBAを教えてください。
PDF
-
9
ExcelVBAでデスクトップのPATHを取得するには
Visual Basic(VBA)
-
10
VBA 新規ファイルを元ファイルと同じ場所に保存する方法
Excel(エクセル)
-
11
VBAでPDFを保存する
Excel(エクセル)
-
12
エクセルVBAでコピーして順番に張り付けをしたい!
Visual Basic(VBA)
-
13
vbaエクセルマクロについて あるデータを作成し、デスクトップに.xlsx形式で保存するマクロを作成
Visual Basic(VBA)
-
14
エクセル マクロ
Excel(エクセル)
-
15
Excelの選択範囲を特定のセル値をファイル名にしてPDFで保存する
Excel(エクセル)
-
16
【マクロ】名前を保存する際に、同じファイルがあった場合に、メッセージを表示
Excel(エクセル)
-
17
Excel VBA 空白セルがあったらメッセージボックスで知らせたい
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・思い出すきっかけは 音楽?におい?景色?
- ・あなたなりのストレス発散方法を教えてください!
- ・もし10億円当たったら何に使いますか?
- ・何回やってもうまくいかないことは?
- ・今年はじめたいことは?
- ・あなたの人生で一番ピンチに陥った瞬間は?
- ・初めて見た映画を教えてください!
- ・今の日本に期待することはなんですか?
- ・【大喜利】【投稿~1/31】『寿司』がテーマの本のタイトル
- ・集中するためにやっていること
- ・テレビやラジオに出たことがある人、いますか?
- ・【お題】斜め上を行くスキー場にありがちなこと
- ・人生でいちばんスベッた瞬間
- ・コーピングについて教えてください
- ・あなたの「プチ贅沢」はなんですか?
- ・コンビニでおにぎりを買うときのスタメンはどの具?
- ・おすすめの美術館・博物館、教えてください!
- ・【お題】大変な警告
- ・【大喜利】【投稿~1/20】 追い込まれた犯人が咄嗟に言った一言とは?
- ・洋服何着持ってますか?
- ・みんなの【マイ・ベスト積読2024】を教えてください。
- ・「これいらなくない?」という慣習、教えてください
- ・今から楽しみな予定はありますか?
- ・AIツールの活用方法を教えて
- ・最強の防寒、あったか術を教えてください!
- ・【大喜利】【投稿~1/9】 忍者がやってるYouTubeが炎上してしまった理由
- ・歳とったな〜〜と思ったことは?
- ・モテ期を経験した方いらっしゃいますか?
- ・好きな人を振り向かせるためにしたこと
- ・スマホに会話を聞かれているな!?と思ったことありますか?
- ・それもChatGPT!?と驚いた使用方法を教えてください
- ・見学に行くとしたら【天国】と【地獄】どっち?
- ・これまでで一番「情けなかったとき」はいつですか?
- ・この人頭いいなと思ったエピソード
- ・あなたの「必」の書き順を教えてください
- ・14歳の自分に衝撃の事実を告げてください
- ・人生最悪の忘れ物
- ・あなたの習慣について教えてください!!
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Googleドライブへの保存がWi-Fi...
-
フォトショップでブラシで書い...
-
「名前を付けてリンク先を保存」と「...
-
サイト上の画像や背景等を保存...
-
FirefoxからVideoDownloadHelpe...
-
Firefoxで「名前を付けてリンク...
-
エクセルをPDFで保存し、ファイ...
-
Microsoft Windows のメモ帳で...
-
Wordの自動保存が解除できません
-
Webページと単一ファイルWebぺ...
-
office365って抵抗感ないですか?
-
オフィスビルやショッピングモ...
-
FireFoxで動画を保存できない
-
「名前を付けて画像を保存」がc...
-
webページを保存するとwebペー...
-
Illustratorからのgif保存でく...
-
Firefox3.5でCtrl+左クリックで...
-
mp3のURL 保存の仕方
-
音楽データをwmaやm4aでCDから...
-
お気に入りのサイトを階層のま...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Googleドライブへの保存がWi-Fi...
-
エクセルをPDFで保存し、ファイ...
-
サイト上の画像や背景等を保存...
-
Wordの自動保存が解除できません
-
フォトショップでブラシで書い...
-
知恵袋を見ていたら、Googleド...
-
「名前を付けてリンク先を保存」と「...
-
PDFの回転と保存
-
FireFoxで動画を保存できない
-
保存用のグッズって何の為に使...
-
Webページと単一ファイルWebぺ...
-
PCで保存したブックマークを、...
-
法律上の「備置き」と「保存」...
-
office365って抵抗感ないですか?
-
Excelの保存で" "を付けないよ...
-
FirefoxからVideoDownloadHelpe...
-
筆ぐるめのデータをjpgで保存す...
-
pixivで画像の保存てどうやるん...
-
WEB用に保存すると余白ができて...
-
エクセルの列の幅を固定
おすすめ情報