宜しくお願い致します。
あるサイトを参考に自分の設定を下記情報に設定しました。
保存の画面が出るのですが、【OK】しても実際にはデスクトップには保存されません。
ちゃんとデスクトップに保存をするにはどうしたら良いでしょうか?
VBAの知識はなく、さっぱりわかりません。
どうぞご教授をお願い致します。
Sub SaveFileSample011()
Dim SaveFileName
Dim wScriptHost As Object, strInitDir As String
'カレントディレクトリをデスクトップに変更
a = Range("a2").Value
b = Range("c9").Value
Set wScriptHost = CreateObject("WScript.Shell")
ChDir wScriptHost.SpecialFolders("Desktop")
SaveFileName = Application.GetSaveAsFilename(a & "様" & b, "PDFとして保存,*.pdf")
If SaveFileName <> False Then
MsgBox "入力されたファイル名は、" & SaveFileName & " です。", vbInformation
Else
MsgBox "キャンセルがクリックされました。", vbInformation
End If
End Sub
No.1ベストアンサー
- 回答日時:
今のマクロで実現できているのは「保存用の名前を確認する」とこまでで,肝心の保存する動作がありません。
あとちなみに,ブックの「どのシートをPDFとして作成したい」のかも不明です。
とりあえず作成例:今のマクロに少し書き足して
sub macro1()
Dim SaveFileName
Dim wScriptHost As Object, strInitDir As String
dim a,b, mypath
'カレントディレクトリをデスクトップに変更 必要に応じてカレントドライブも変更する
a = Range("a2").Value
b = Range("c9").Value
Set wScriptHost = CreateObject("WScript.Shell")
mypath = wScriptHost.SpecialFolders("Desktop")
chdrive left(mypath ,1)
chdir mypath
’保存したいファイル名を設定している
SaveFileName = Application.GetSaveAsFilename(a & "様" & b, "PDFとして保存,*.pdf")
If SaveFileName <> False Then
MsgBox "入力されたファイル名は、" & SaveFileName & " です。", vbInformation
Else
MsgBox "キャンセルがクリックされました。", vbInformation
exit sub
End If
’実際にPDFとして保存する
worksheets("Sheet1").exportasfixedformat xltypepdf, savefilename, xlqualitystandard
end sub
keithin様
早々のご回答ありがとうございます。<(_ _)>
無事に保存が出来るようになりました。
自分で勉強して一から調べていたらどれだけ時間がかかったか・・・
と言うより、この結果にはたどり着けなかったと思います。
keithin様本当にありがとうございました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセルVBA、間違っているコード内容を正して頂けませんか? エクセルワークシートに納品書を作ったの 2 2023/08/02 21:13
- Visual Basic(VBA) エクセルのマクロについて教えてください。 3 2023/02/22 08:53
- Excel(エクセル) エクセルVBA、ファイル名をセルの値で保存の方法を教えてください。 おそれいります。こちらで数々のエ 6 2023/06/30 22:17
- Visual Basic(VBA) エクセルのマクロについて教えてください。 7 2023/07/04 09:18
- Visual Basic(VBA) エクセルのマクロを使ってメールを送る方法について教えてください 2 2022/03/29 01:36
- Visual Basic(VBA) InputBoxでキャンセルボタンを押したらファイル自体を閉じたい 3 2022/07/23 17:52
- Excel(エクセル) エクセル2019でPDFファイル名に枝番号をつけたい。 アクティブワークシートを印刷した後の処理とし 4 2023/06/06 21:00
- Excel(エクセル) 2つのVBAを一緒にしたら機能しなくなりました(エクセル) 7 2022/06/02 12:41
- Visual Basic(VBA) エクセルのマクロについて教えてください。 4 2023/07/03 09:11
- Visual Basic(VBA) 【Excel VBA】自動メール送信の機能追加 5 2022/09/29 12:53
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Googleドライブへの保存がWi-Fi...
-
Wordの自動保存が解除できません
-
サイト上の画像や背景等を保存...
-
FireFoxで動画を保存できない
-
エクセルをPDFで保存し、ファイ...
-
PDFの回転と保存
-
pixivで画像の保存てどうやるん...
-
エクセルマクロでPDF表示をしたい
-
「名前を付けてリンク先を保存」と「...
-
PCで保存したブックマークを、...
-
Excelの保存で" "を付けないよ...
-
DNAの保存温度
-
VBAでPDFを保存する
-
グーグルカレンダーの保存方法...
-
掲示板のログ(保存)
-
フォトショップでブラシで書い...
-
Webページと単一ファイルWebぺ...
-
『SoundEngine』のファイルの保...
-
Excel2007VBAを使ってPDF保存す...
-
ピアジェ 「保存」
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Googleドライブへの保存がWi-Fi...
-
エクセルをPDFで保存し、ファイ...
-
サイト上の画像や背景等を保存...
-
FireFoxで動画を保存できない
-
知恵袋を見ていたら、Googleド...
-
Wordの自動保存が解除できません
-
「名前を付けてリンク先を保存」と「...
-
フォトショップ(サブスク版)
-
PCR後の遺伝子の安定性について...
-
Excelの保存で" "を付けないよ...
-
法律上の「備置き」と「保存」...
-
【Word】自動的に上書き保存さ...
-
フォトショップでブラシで書い...
-
PDFの回転と保存
-
DNAの保存温度
-
Webページと単一ファイルWebぺ...
-
PCで保存したブックマークを、...
-
pixivで画像の保存てどうやるん...
-
エクセルをPDFにし複数のユーザ...
-
FirefoxからVideoDownloadHelpe...
おすすめ情報