No.2ベストアンサー
- 回答日時:
こんにちは
>エクセルで今開いてるフォルダ
この表現は合っていますか?
今開いてるフォルダと言うのは複数ある可能性があり特定できません
GetSaveAsFilenameメソッドで名前を付けて保存でどうでしょう?
Sub example()
Dim pdf_File As Variant
Dim pdf_name As String
pdf_name = ActiveSheet.Range("A1").Text
pdf_File = Application.GetSaveAsFilename(InitialFileName:=pdf_name & ".PDF", FileFilter:="PDFファイル,*.pdf")
If pdf_File = False Then
Exit Sub
End If
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:=pdf_File
End Sub
面倒?
もし、今開いてるフォルダと言うのが特定できるなら
例えばVBA実行ブックの保存されているフォルダ
Sub PDFを同じフォルダに保存()
Dim フォルダパス As String
フォルダパス = ThisWorkbook.Path
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
FileName:=フォルダパス & "\" & ActiveSheet.Range("A1").Text & ".pdf"
End Sub
で保存できます
>名前をセルから
ファイル名に使えない文字列が含まれる場合がありますので注意が必要です
No.3
- 回答日時:
Qchan1962さんの後段のVBAコードに1票です。
ご質問者は、
Filename:=Left(ThisWorkbook.FullName, InStrRev(ThisWorkbook.FullName, ".")) & "pdf"
と記述しているところから推測すると、起動中のVBAのあるEXCELブックの保存先と同じフォルダにPDFを保存したいのだと思います。
ただ、掲出されたVBAだともともとのEXCELファイルの名前と同じ名前でPDFが保存されてしまいます。A1セルにPDFのファイル名があるとして、修正するとすれば、
Sub PDFを同じフォルダに保存()
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=Left(ThisWorkbook.FullName, InStrRev(ThisWorkbook.FullName, "\")) & ActiveSheet.Range("A1").Text
End Sub
となりますが、だとするとQchan1962さんの後段のVBAを用いればよいことは明らかです。
No.1
- 回答日時:
>前をセルからとりたいのですがどうすればいいですか⁇
補足要求です。
1.どのシートのどのセルですか。
2.そのセルに"あああ"と記入されていたら、"あああ.pdf"の名前で保存したいということでしょうか。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) 【マクロ】ファイル名の日付によって、保管するフォルダを、自動選択したい 4 2023/08/16 11:24
- Excel(エクセル) PDFファイルに日付を名前にして保存したい。 エクセル2019でワークシートに請求書のフォームを作り 2 2023/05/27 11:13
- Excel(エクセル) エクセル2019でPDFファイル名に枝番号をつけたい。 アクティブワークシートを印刷した後の処理とし 4 2023/06/06 21:00
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 1 2023/08/10 14:24
- Excel(エクセル) エクセルVBA、ファイル名をセルの値で保存の方法を教えてください。 おそれいります。こちらで数々のエ 6 2023/06/30 22:17
- Excel(エクセル) 【VBA】PDF出力に任意のファイル名前を付ける方法 3 2023/07/21 10:55
- Visual Basic(VBA) エクセルのマクロについて教えてください 物件ごとのフォルダを作成してます そのフォルダ内にサブフォル 2 2023/07/02 17:58
- Excel(エクセル) エクセルVBA、間違っているコード内容を正して頂けませんか? エクセルワークシートに納品書を作ったの 2 2023/08/02 21:13
- Excel(エクセル) フォルダ内のワードファイルをPDFに一括変換するVBA 3 2023/06/09 16:51
- Visual Basic(VBA) エクセルのマクロについて教えてください。 4 2023/07/03 09:11
このQ&Aを見た人はこんなQ&Aも見ています
-
「どうして捨てられないの?」前妻の物を捨てられない男性の心理って?
前妻の物を捨てられない理由に加え、捨てるための手段はあるのかを専門家に聞いてみた!
-
エクセルをPDFで保存し、ファイル名はA1セルを参照するVBAの記述を教えてください。
Excel(エクセル)
-
【VBA】マクロの入ったファイルと同じフォルダに,出力したファイルを保存するコードについて
Visual Basic(VBA)
-
【Excel】指定したセルの名前でPDFを保存する【VBA】
Visual Basic(VBA)
-
-
4
【VBA】PDF出力に任意のファイル名前を付ける方法
Excel(エクセル)
-
5
エクセル マクロを使って同じフォルダ内にPDF保存したい。
Excel(エクセル)
-
6
マクロ、PDFを任意のフォルダへ保存
Excel(エクセル)
-
7
Excelの選択範囲を特定のセル値をファイル名にしてPDFで保存する
Excel(エクセル)
-
8
日付を入力したセルをファイル名にして保存するには
Excel(エクセル)
-
9
エクセルマクロでPDF表示をしたい
PDF
-
10
エクセル マクロ 名前を付けて保存 PDF保存先指定 ファイル名任意+日付
Excel(エクセル)
-
11
ユーザーフォームに別シートからデータを反映させたい。
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
マクロ、PDFを任意のフォルダへ...
-
mhtファイルが開けないです
-
保存先を記憶する
-
ファイルの保存先を指定(固定...
-
ワードパットのフォントサイズ...
-
動くイラストを保存したい
-
サムネイルの保存場所
-
XPのデフォルトアイコンの保存場所
-
ジャンプリストでピン留の保存場所
-
ZIP,JPEGファイルをDLしても0K...
-
デスクトップやクイック起動の...
-
インターネットで閲覧した画像...
-
Windows Media Playerのファイ...
-
保存したWebページが見られなく...
-
画像保存方法
-
Sleipnir2.9.14の復元について...
-
ファイルの保存先限定
-
ネットで見た画像が保存?され...
-
デスクトップ保存だけ遅い
-
ウェブページの保存法
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
マクロ、PDFを任意のフォルダへ...
-
Thunderbird 添付ファイルの保...
-
ファイルが壊れて読み取れませ...
-
ジャンプリストでピン留の保存場所
-
ファイルの保存先を指定(固定...
-
SONY Music Center For PC に付...
-
ZIP,JPEGファイルをDLしても0K...
-
mhtファイルが開けないです
-
エクセル マクロ
-
保存先を記憶する
-
ワードパットのフォントサイズ...
-
EXCEL VBAでWEBページ保存2
-
サムネイルの保存場所
-
エクセル・ワードのデータや文...
-
インターネットで閲覧した画像...
-
保存したWebページが見られなく...
-
「名前を付けてページを保存」...
-
共有フォルダの情報がリアルタ...
-
OneDriveについて
-
デスクトップ保存だけ遅い
おすすめ情報