[解決済み] VBAのエラーです。"コンパイルエラーです。期待される End Sub"
2022-02-11 14:22:07
質問
Filename属性に"GetFullNamePDF()"を渡そうとしていますが、以下のエラーが発生します: "コンパイルエラーです。Expected End Sub"
Sub PrintPDF()
Function GetFullNamePDF() As String
GetFullNameCSV = Replace(ThisWorkbook.FullName, ".xlsm", ".pdf")
End Function
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"GetFullNamePDF()", Quality:=xlQualityStandard, IncludeDocProperties _
:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
End Sub
私はVBAについて何も知らないので、上記のコードを 昨日の質問 が、その時はテストすることができませんでした。このエラーは関数と関係があると思われます。関数を追加せず、ファイルパス/名前をハードコーディングしてもコードは動作します。
このコードのアイデアは、PDFのパスとファイルの名前に、それ自身のファイル名を動的に使用することです。もし何か質問があれば、コメントください。
どのように解決するのですか?
プロシージャの中に関数を入れ子にすることはできません。上に移動させる必要があります。
Function GetFullNamePDF() As String
GetFullNameCSV = Replace(ThisWorkbook.FullName, ".xlsm", ".pdf")
'This should be
GetFullNamePDF = Replace(ThisWorkbook.FullName, ".xlsm", ".pdf")
End Function
Sub PrintPDF()
'Remove the quotes from GetFullNamePDF
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
GetFullNamePDF(), Quality:=xlQualityStandard, IncludeDocProperties _
:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
End Sub
関連
-
[解決済み] Excel/VB関数でエラーになる。"定数式が必要です"
-
[解決済み] どのようにvbaコードで "名前を付けて保存 "を行うには、datestampと私の現在のExcelワークブックを保存するには?
-
[解決済み] VBA+エクセル+トライキャッチ
-
[解決済み] EXCELの複数範囲-範囲ごとに異なる回答が必要
-
[解決済み】Excelで列全体に数式を適用するショートカット【終了しました
-
[解決済み】Excelで数式から空のセルを返す。
-
[解決済み】Excel VBAでSelectを使用しないようにする方法
-
[解決済み] Microsoft Excelは.csvファイルのダイアクリティクスを混乱させますか?
-
[解決済み] IF文: 条件が偽の場合にセルを空白にする方法("" は機能しません)
-
[解決済み] データ列全体の先頭または末尾の空白を削除する
最新
-
nginxです。[emerg] 0.0.0.0:80 への bind() に失敗しました (98: アドレスは既に使用中です)
-
htmlページでギリシャ文字を使うには
-
ピュアhtml+cssでの要素読み込み効果
-
純粋なhtml + cssで五輪を実現するサンプルコード
-
ナビゲーションバー・ドロップダウンメニューのHTML+CSSサンプルコード
-
タイピング効果を実現するピュアhtml+css
-
htmlの選択ボックスのプレースホルダー作成に関する質問
-
html css3 伸縮しない 画像表示効果
-
トップナビゲーションバーメニュー作成用HTML+CSS
-
html+css 実装 サイバーパンク風ボタン
おすすめ
-
[解決済み] アクセス改行が_x000D_になる
-
[解決済み] VBAでRangeクラスのSelectメソッドに失敗する
-
[解決済み] MS Excel で部分文字列を使用して文字列のセルインデックスを検索する
-
[解決済み] セルが文字列で始まる場合... 計算式
-
[解決済み] Excelで列のすべてのセルに同じテキストを追加する
-
[解決済み] 配列に対してfor eachループを使用するにはどうしたらよいですか?
-
[解決済み] Excel - 複数列の SUMIFS
-
[解決済み] Excel VBA Projectのパスワードを解読する方法はありますか?
-
[解決済み] Excel 2007で改行を含むCSVをインポートする
-
[解決済み] 一意な値を数える簡単なピボットテーブル