0

Excel内のファイルで指定されたフォルダーに、いくつかのタブをpdfドキュメントとして保存するコードを記述しようとしています。ドキュメント内のセルで、このファイルの保存場所を指定したいと思います。これが可能かどうかはわかりませんが、もしあれば助けになるでしょう！現在、コードの保存プロセス中に実行時エラー「1004」が発生しています。

はい、参照されているフォルダーが作成されています。

Sub asdf()

Dim Fname As String
Dim Fpath As String
Dim YrMth As String

Fname = Sheets("Sheet1").Range("A1").Text

YrMth = Sheets("Sheet1").Range("A2").Text & "\" & Sheets("Sheet1").Range("A3").Text

Fpath = "C:\Documents and Settings\My Documents\" & YrMth & "\Group\" & Fname & ".pdf"

ThisWorkbook.Sheets(Array("Sheet1", "Sheet2", "Sheet4")).Select

Application.DisplayAlerts = False

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
        Filename:=Fpath, _
        Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, _
        IgnorePrintAreas:=False, _
        OpenAfterPublish:=True

サブ終了

4

2 に答える 2

1

あなたのコードは機能しますが、指定したパスでは機能しません。

新しい文字列変数を宣言します。

dim myDocsPath as String

次を使用してパスを取得します。

myDocsPath = Environ$("USERPROFILE") & "\My Documents\"

次に、Fpath の定義を次のように変更します。

Fpath = myDocsPath & YrMth & "\Group\" & Fname & ".pdf"

の末尾を に変更するmyDocsPathと& "\My foo Documents\"、同じ 1004 エラーが発生します。

于 2013-06-17T20:50:22.343 に答える