戻る  □一般操作のサロン  □ 使用方法  □ 新着記事  □ 新規に質問する!  □ トピック一覧  □ 検索  □ 過去ログ
[ 親トピックをトピックトップへ ]
このトピックに書きこむ
Name/
E-Mail/

└>このツリーのレス記事をメールで受信しますか? YES/ NO/
Title/
URL/
Comment/ 通常モード->  図表モード-> (←の場合適当に改行を入れて下さい)
タグが使用できます。例 ⇒ <font color="blue">文字</font>
解決!!ありがとうございました! 解決       保留中です・・・ 保留        迷宮入りorほかあたって見ます・・ 迷宮入       すいませ〜ん。誰か〜! Help! ←※回答者専用
解決したらチェック       保留(コードテスト中など・・)         解決不可orレスが全く付かなくてほかのサイトに行くときなど・・
削除キー/
(半角8文字以内) 

このトピック参照回数 :
Re[11]: アクティブシートをPDF保存する方法について

    [195470] Re[11]: アクティブシートをPDF保存する方法について-

    解決!!ありがとうございました! / 記事引用/メール受信=OFF■

    □投稿者/ 初学者 -(2022/12/16(16:31))
    □U R L/

      半平太様
      お世話になっております。

      ご教示いただいた内容で実行したところ、無事保存できました。
      大変お手数をおかけしました。
      ご回答いただき誠にありがとうございます。




    [195469] Re[10]: アクティブシートをPDF保存する方法について-

    記事引用/メール受信=OFF■

    □投稿者/ 半平太 -(2022/12/16(16:23))
    □U R L/
      そちらの実態を知らないので、こちらでは分かりません
      
      >\\〜〜〜.co.jp\見積書\2022年度\〇〇グループ\個人フォルダ\〇〇\A\B\B\【御見積書】A1の値
      となるのであれば、
      
      >ActiveWorkbook.Path & "\B\" & name
        ↓
        ActiveWorkbook.Path & "\" & name
      
       に変えてみてください。
      




    [195468] Re[9]: アクティブシートをPDF保存する方法について-

    記事引用/メール受信=OFF■

    □投稿者/ 初学者 -(2022/12/16(15:36))
    □U R L/

      上記追記いたします。

      ActiveWorkbook.Path & "\B\" & name

      と記載して実行すると、実行時エラー'1004'
      ドキュメントを保存できませんでした。ドキュメントが開いているか、保存時にエラーが発生した可能性があります。と出力されてしまいます(最後の2行が黄色くなります)

      ご確認お願いいたします。




    [195467] Re[8]: アクティブシートをPDF保存する方法について-

    記事引用/メール受信=OFF■

    □投稿者/ 初学者 -(2022/12/16(15:30))
    □U R L/

      半平太様

      お世話になっております。
      申し訳ありません。フォルダ名を変更して質問してしまっていたため、間違えてしまいました。
      新しくフォルダを作成し、Aフォルダ内にBフォルダを作成、Bフォルダ内にExcelを映し、debug出力を行いました。

      \\〜〜〜.co.jp\見積書\2022年度\〇〇グループ\個人フォルダ\〇〇\A\B\B\【御見積書】A1の値
      となっております。

      大変お手数をおかけしてしまい申し訳ありません。




    [195466] Re[7]: アクティブシートをPDF保存する方法について-

    記事引用/メール受信=OFF■

    □投稿者/ 半平太 -(2022/12/16(15:12))
    □U R L/
      いや、そう言う意味ではなく、そちらの説明では
      >(Aフォルダ内のBフォルダ内にBook1があり、
      
      だったので、vでは整合性がないのではないか、と思っただけです。
      
      まぁ、話に整合性が無くても「実際のフォルダ」がvならそれでいいですが、
      こちらでは、実態が分かりませんので、そちらで確かめてください。
      
      存在しないパスなら、トラブって当然ですよね?(そこのところは、こちらでは分かりません)
      




    [195465] Re[6]: アクティブシートをPDF保存する方法について-

    記事引用/メール受信=OFF■

    □投稿者/ 初学者 -(2022/12/16(14:40))
    □U R L/

      半平太様
      お世話になっております。

      はい、「A」ではなく、「v」で表示されております。





    [195464] Re[5]: アクティブシートをPDF保存する方法について-

    記事引用/メール受信=OFF■

    □投稿者/ 半平太 -(2022/12/16(14:28))
    □U R L/
      ここまでのバスは合っていますね?                      特に ここが「A」じゃなく「v」ですが?
                                                                     ↓
      >\\〜〜〜.co.jp\見積書\2022年度\〇〇グループ\個人フォルダ\〇〇\v\B\
      
      




    [195463] Re[4]: アクティブシートをPDF保存する方法について-

    記事引用/メール受信=ON■

    □投稿者/ 初学者 -(2022/12/16(14:23))
    □U R L/

      半平太様
      お世話になっております。ご教示いただきありがとうございます。

      実行したところ、以下の表示が出ました。問題ないと思われる箇所に関して、変更させていただいております。

      \\〜〜〜.co.jp\見積書\2022年度\〇〇グループ\個人フォルダ\〇〇\v\B\【御見積書】A1の値

      お手数をおかけしますが、ご確認お願いいたします。




    [195462] Re[3]: アクティブシートをPDF保存する方法について-

    記事引用/メール受信=OFF■

    □投稿者/ 半平太 -(2022/12/16(13:32))
    □U R L/
      下の確認プログラムを実行して、イミディエイトウィンドウにどう表示されたか
      教えてください。
      
      何も手を入れないでコピペしてください。
      ただし、情報管理上問題がある単語は、仮りの単語に置き換えて頂いて結構です。
      
      Sub 確認()
          Dim name As String
          name = "【御見積書】" & Workbooks("Book1").Worksheets("Sheet1").Range("A1").Value
          
          Debug.Print ActiveWorkbook.Path & "\B\" & name
      End Sub


      この記事にはVBAのコードが含まれています。

      緑の太文字→注釈
      茶色の太文字→条件分岐
      赤の太文字→ループ
      青の太文字→その他




    [195461] Re[2]: アクティブシートをPDF保存する方法について-

    記事引用/メール受信=OFF■

    □投稿者/ 初学者 -(2022/12/16(10:37))
    □U R L/
      半平太 様
      
      ご回答いただきありがとうございます。
      申し訳ありません。今後コピペするよう気を付けます。
      
      ご教示いただいた内容について行いましたところ、実行時エラー'1004'
      ドキュメントを保存できませんでした。ドキュメントが開いているか、保存時にエラーが発生した可能性があります。と出力されてしまいます(最後の2行が黄色くなります)。\B\の部分をなくすと保存はできますが
      ・保存先がブックの一つ上位の格納先になってしまう
      ・PDFの名前にブックが格納されているフォルダ名が入ってしまう
      状態になります。
      
      本問題についても調べたのですが、解決することができず 恐れ入りますがご教示いただけないでしょうか。
      フォルダパスは毎回変わるため、可能であれば自動的に適当な格納先に保存されるようにしたいです。可能でしょうか…。
      
      お手数をおかけしますが、よろしくお願いいたします。
      
      Sub PDF作成()
      
          Dim name As String
          name = "【御見積書】" & Workbooks("Book1").Worksheets("Sheet1").Range("A1").Value
          ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
          Filename:=ActiveWorkbook.Path & "\B\" & name
          
      End Sub
      


      この記事にはVBAのコードが含まれています。

      緑の太文字→注釈
      茶色の太文字→条件分岐
      赤の太文字→ループ
      青の太文字→その他




    [195457] Re[1]: アクティブシートをPDF保存する方法について-

    記事引用/メール受信=OFF■

    □投稿者/ 半平太 -(2022/12/15(17:13))
    □U R L/
      提示されたコードは手打ちですよね?
      
      本物じゃないと、トラブルの原因は判断しにくいんですけども。。
      
              多分、かな?
                  ↓
      ActiveWorkbook.Path & "\B\" & name




    [195456] アクティブシートをPDF保存する方法について-

    ■親トピック/記事引用/メール受信=OFF■

    □投稿者/ 初学者 -(2022/12/15(16:26))
    □U R L/
      アクティブシートをブックと同じフォルダに格納されるようにPDF保存したいです。
      また、PDFの名前はセルの値と文字列を組み合わせたいです。
      
      現在以下のように書いたのですが、うまく保存されません。
      2点困っています。
      ・保存先がブックの一つ上位の格納先になってしまいます。
      ・PDFの名前にブックが格納されているフォルダ名が入ってしまう
      (Aフォルダ内のBフォルダ内にBook1があり、Bフォルダ内にPDFを作成したいがAフォルダ内に作成されてしまう。PDFの名前の先頭にAがつく)
      
      
      Sub PDF作成()
      
       dim name as string
       name = "【御見積書】"Workbooks("Book1").WorkSheets("Sheeet1").Range("A1").value
       ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
       filename:=ActiveWorkbook.Path & name 
      
      End Sub
      
      最後のfilename:=ActiveWorkbook.Path & name 
      の部分をfilename:= name
      のみにするとPDFの名前は問題ないにですが格納先がドキュメントになってしまいます。
      
      ご教示いただけますと幸いです。よろしくお願いいたします。


      この記事にはVBAのコードが含まれています。

      緑の太文字→注釈
      茶色の太文字→条件分岐
      赤の太文字→ループ
      青の太文字→その他



このトピック内容の全ページ数 / [0]

- Child Forum -
Edit:ゆう-G