先日、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も見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
エクセルをPDFで保存し、ファイル名はA1セルを参照するVBAの記述を教えてください。
Excel(エクセル)
-
マクロ、PDFを任意のフォルダへ保存
Excel(エクセル)
-
【VBA】PDF出力に任意のファイル名前を付ける方法
Excel(エクセル)
-
-
4
【Excel】指定したセルの名前でPDFを保存する【VBA】
Visual Basic(VBA)
-
5
エクセル マクロ 名前を付けて保存 PDF保存先指定 ファイル名任意+日付
Excel(エクセル)
-
6
Excelの選択範囲を特定のセル値をファイル名にしてPDFで保存する
Excel(エクセル)
-
7
EXCEL ページを指定してPDF出力するVBAを教えてください。
PDF
-
8
エクセルのエラーメッセージ「400」って?
Visual Basic(VBA)
-
9
ExcelVBAでデスクトップのPATHを取得するには
Visual Basic(VBA)
-
10
Excelで指定したフォルダに保存するマクロ
Excel(エクセル)
-
11
VBA PDF ファイル名をセルからつける
Excel(エクセル)
-
12
マクロ始めたばかりです。 デスクトップにあるフォルダをVBAで開きたいのですが
Excel(エクセル)
-
13
vbaエクセルマクロについて あるデータを作成し、デスクトップに.xlsx形式で保存するマクロを作成
Visual Basic(VBA)
-
14
エクセルでエラーが出て困っています。
Excel(エクセル)
-
15
ファイル名を今日の日付、時刻で保存する
Visual Basic(VBA)
-
16
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
17
保存先のフォルダ名を指定したいとき
Visual Basic(VBA)
-
18
マクロ 入力規則は残し文字のみ削除
Excel(エクセル)
-
19
VBAでダブルコーテーション入りの数式をセルにセットしたい
Visual Basic(VBA)
-
20
EXCEL マクロ 条件の合ったシートだけ印刷したい
Excel(エクセル)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Googleドライブへの保存がWi-Fi...
-
エクセルをPDFで保存し、ファイ...
-
サイト上の画像や背景等を保存...
-
PCR後の遺伝子の安定性について...
-
『SoundEngine』のファイルの保...
-
DNAの保存温度
-
Wordの自動保存が解除できません
-
【Word】自動的に上書き保存さ...
-
Excelの保存で" "を付けないよ...
-
「名前を付けてリンク先を保存」と「...
-
知恵袋を見ていたら、Googleド...
-
20MBの画像をダウンロード
-
Webページと単一ファイルWebぺ...
-
Firefoxアドオン DownThemAll!...
-
office365って抵抗感ないですか?
-
オフィスビルやショッピングモ...
-
VBAでPDFを保存する
-
フォトショップでブラシで書い...
-
FireFoxで動画を保存できない
-
PDFの回転と保存
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Googleドライブへの保存がWi-Fi...
-
エクセルをPDFで保存し、ファイ...
-
FireFoxで動画を保存できない
-
サイト上の画像や背景等を保存...
-
Wordの自動保存が解除できません
-
知恵袋を見ていたら、Googleド...
-
「名前を付けてリンク先を保存」と「...
-
月が地球の周りを回る運動で、...
-
Excelの保存で" "を付けないよ...
-
DNAの保存温度
-
法律上の「備置き」と「保存」...
-
保存用のグッズって何の為に使...
-
one drive とは何だ
-
【Word】自動的に上書き保存さ...
-
フォトショップでブラシで書い...
-
最悪
-
PCR後の遺伝子の安定性について...
-
PDFの回転と保存
-
Webページと単一ファイルWebぺ...
-
MicrosoftOffice2019なんですが、
おすすめ情報