ID非公開

2021/5/8 12:48

22回答

VBA初心者なので教えて頂きたいです。

画像

Visual Basic51閲覧xmlns="http://www.w3.org/2000/svg">250

ベストアンサー

1

1人がナイス!しています

ID非公開

質問者2021/5/9 10:03

ご回答ありがとうございます。 はい!その通りです。 シートの入力内容に合わせて原紙のエクセルファイルのファイル名を変更し別名として原紙ファイルをコピーして保存したいという内容になります。 原紙ファイルですが△△△のフォルダの中にExcelが直にはいっており、△△△には2021年のフォルダも格納されており、2021年のフォルダの中には更に月毎のフォルダが作成されております。 ㈱Aのボタンを押すと、原紙ファイルの名前をリストで選択した【新宿区】見積依頼書 ㈱Aという別名のファイルで2021年フォルダの中の4月フォルダの中に保存したいという内容になります。 初心者のため説明が至らず申し訳ございません。 ご確認の程宜しくお願い致します。

ThanksImg質問者からのお礼コメント

ご回答ありがとうございます。 作成頂いたVBAでやりたかったことが出来ました! ご対応頂きありがとうございます!! 何度調べてもわからなかったのでとても助かりました! 本当にありがとうございます! ベストアンサーにさせて頂きます。

お礼日時:5/9 18:42

その他の回答(1件)

1

セル位置が解りません A1: 2021年 B1: 4月 C1: 新宿区 のプルダウンあるとします。 FileCopyを使うのがいいと思います。 ボタンの表示内容から、ファイル名を決めています。両方共このマクロを登録して下さい。ボタンを使わないとエラーになります。 最後の、Openは必要なら入れでください。 Option Explicit ' Sub Macro1()     Dim PathName As String     Dim FileName As String '     PathName = "D:\Test\" & [A1] & "\" & [B1]     FileName = PathName & "\【" & [C1] & "】見積依頼書 " & _         ActiveSheet.Buttons(Application.Caller).Text & ".xlsx"     FileCopy PathName & "\【原紙】見積依頼書.xlsx", FileName     Workbooks.Open FileName End Sub

1人がナイス!しています

ID非公開

質問者2021/5/9 16:42

ご回答ありがとうございます。 試してみたところエラーになってしまいました。 原紙自体は2021年フォルダと同じ場所にExcelが直においてあり、 2021年フォルダの中に月のフォルダが入っているような状態なのですがその場合でも機能しますでしょうか? また名前を付けて保存するExcelは原紙なのですが、 マクロを組み込むExcelは原紙とは別Excelとなります。 お手数ではございますがご確認の程宜しくお願い致します。