PDF出力マクロについて。マクロ初心者です。
エクセルで、アクティブシートを指定したフォルダに保存するマクロを組んだのですが、ドライブが違う人でも作動するようにするにはどうしたら良いでしょうか?そもそも不可能なのでしょうか。
コードは以下になります
………………………………………………………………………
Sub アクティブシートPDF出力()
Dim strPath As String
strPath = "V\○○○○"(指定フォルダのフルパス)
Dim ShName As String
ShName = ActiveSheet.Name
With ActiveSheet.PageSetup
Zoom = False
FitToPagesWide = 1
FitToPagesTall = 1
End With
If MsgBox(ShName &"シートをPDF形式で出力します。よろしいですか?", vbQuestion + vbYesNo) = vbNo Then
MsgBox "中止しました。"Exit Sub
End If
ActiveSheet.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=strPath &"\"&ActiveSheet.Range("B8").Text &"_"&Sheets(ShName).Name &".pdf"End Sub
………………………………………………………………………………
また、無駄な部分や追加した方がいいもの等ありましたらアドバイスいただけたらと思います。
No.1ベストアンサー
- 回答日時:
以下のようにして、出力するフォルダをオペレータに選択させるようにしては、いかがでしょうか。
Sub アクティブシートPDF出力()
Dim strPath As String
With Application.FileDialog(msoFileDialogFolderPicker)
If .Show = True Then
strPath = .SelectedItems(1)
Else
Exit Sub
End If
End With
Dim ShName As String
ShName = ActiveSheet.Name
With ActiveSheet.PageSetup
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
If MsgBox(ShName & "シートをPDF形式で出力します。よろしいですか?", vbQuestion + vbYesNo) = vbNo Then
MsgBox "中止しました。"
Exit Sub
End If
ActiveSheet.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=strPath & "\" & ActiveSheet.Range("B8").Text & "_" & Sheets(ShName).Name & ".pdf"
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/11/09 11:51
- Visual Basic(VBA) wordのマクロで思うように行きません(ファイル削除ができない) 3 2023/09/12 08:34
- Visual Basic(VBA) マクロについて教えてください。 下記のマクロは以前教えて頂いたマクロです。 マクロを実行すると 指定 6 2024/01/17 17:50
- Excel(エクセル) 【マクロ】ファイル名の日付によって、保管するフォルダを、自動選択したい 4 2023/08/16 11:24
- Visual Basic(VBA) エクセルのマクロについて教えてください。 7 2023/07/04 09:18
- Visual Basic(VBA) VBA 請求書自動作成 3 2022/04/24 01:58
- Visual Basic(VBA) VBAに関して 2 2023/11/09 20:57
- Visual Basic(VBA) エクセルのマクロについて教えてください。 4 2023/07/03 09:11
- Visual Basic(VBA) VBAのユーザーフォームのテキストボックスに入力制限をしたい 6 2022/11/15 08:28
- Excel(エクセル) フォルダ内のワードファイルをPDFに一括変換するVBA 3 2023/06/09 16:51
このQ&Aを見た人はこんなQ&Aも見ています
-
「環境が人を育てる」って本当?環境によって人格や生き方は本当に変わるのか
環境が人生に与える影響は実際どれほどのものなのか、専門家の田宮由美さんに伺った。
-
VBAに関して
Visual Basic(VBA)
-
ExcelVBAのFindFirstエラーについて
Visual Basic(VBA)
-
Excel関数またはVBAでの質問になります
Visual Basic(VBA)
-
-
4
VBのWPFとはなんでしょうか?
Visual Basic(VBA)
-
5
以下のコードを実行しても、オブジェクト変数または、withブロック変数が設定されていませんとエラーが
Visual Basic(VBA)
-
6
Excelのマクロについて教えてください。
Visual Basic(VBA)
-
7
ExcelのVBAのことで質問です。 以下のコードを入れ、ボタンを押せば作動させると写真のように画面
Visual Basic(VBA)
-
8
引数に数値、文字列の混在
Visual Basic(VBA)
-
9
VBAのコードを教えてください
Visual Basic(VBA)
-
10
for 文の 繰り返し処理に使えるのかどうかについて
Visual Basic(VBA)
-
11
エクセルのマクロについて教えてください。
Visual Basic(VBA)
-
12
他人が作ったマクロの理解
Excel(エクセル)
-
13
VB.netのADOってなんですか?
Visual Basic(VBA)
-
14
VBのMDIとは何ですか?
Visual Basic(VBA)
-
15
エクセルの書式設定について教えてください。
Excel(エクセル)
-
16
ExcelのVBAコードについて教えてください。
Visual Basic(VBA)
-
17
エクセルVBAの配列について
Visual Basic(VBA)
-
18
Excelで「Ctrl+c」、「Ctrl+v」等をまとめた物
Visual Basic(VBA)
-
19
エクセルのマクロについて教えてください。
Visual Basic(VBA)
-
20
Excel-VBAのmsgBox()の不思議
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excel・Word リサーチ機能を無...
-
エクセルで特定の列が0表示の場...
-
特定のPCだけ動作しないVBAマク...
-
メッセージボックスのOKボタ...
-
Excel マクロ VBA プロシー...
-
一つのTeratermのマクロで複数...
-
エクセルに張り付けた写真のフ...
-
エクセルで別のセルにあるふり...
-
Excel2010でエンターキーにマク...
-
ExcelVBAでPDFを閉じるソース
-
VBAマクロ非表示が遅いので早く...
-
別シートに順番で貼り付け
-
Excelのマクロボタンをダブルク...
-
ExcelのVBA。public変数の値が...
-
MSアクセスのマクロ・モジュー...
-
アクセス マクロ クリップボ...
-
vba マクロでファイル名をつけ...
-
秀丸エディタでgrepを行うと前...
-
マクロで空白セルを詰めて別シ...
-
マクロ実行時、ユーザーフォー...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excel・Word リサーチ機能を無...
-
エクセルで特定の列が0表示の場...
-
特定のPCだけ動作しないVBAマク...
-
Excel マクロ VBA プロシー...
-
メッセージボックスのOKボタ...
-
一つのTeratermのマクロで複数...
-
ExcelのVBA。public変数の値が...
-
Excel VBAからAccessマクロを実...
-
EXCELのVBAでRange("A1:C4")を...
-
ExcelVBAでPDFを閉じるソース
-
エクセルに張り付けた写真のフ...
-
エクセルで別のセルにあるふり...
-
TERA TERMを隠す方法
-
2つのマクロでチェックボックス...
-
マクロ実行時、ユーザーフォー...
-
【マクロ】1つのマクロの中に...
-
ピボットテーブルでの毎回可変...
-
特定文字のある行の前に空白行...
-
エクセルのマクロについて教え...
-
wordを起動した際に特定のペー...
おすすめ情報