ファイル名に取引先名を入れて保存するには?

Question 57.5 Previous Next
すいません。初めてメールさせていただきます。ぜひともエクセルのマクロに関して 質問出せてください。
実は、下記のようなマクロプログラムを書きました。
Sub CS_Portfolio_Rollup作成実行マクロ01()
    Nen = Year(Date)
    tuki = Month(Date)
    Nentuki = Nen & tuki

    ここは、何らかのマクロ、 この下でファイルのセーブ

    ActiveWorkbook.SaveAs _
        Filename:="C:\SAS_Portfolio_Rollup\" & Nentuki & _
            "\Portfolio_Analysis.xls", _
        FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False
End Sub
しかし、できるものならファイル名に取引先の会社名を入れて、 Portfolio_Analysis(取引先の会社名).xls  のように指定したいのです。
もちろんこの取引先名は、いつも変わるので ここでマクロが使えたら、、、、、と思っています。
ぜひともやり方をお教えください。
Answer   Copyright (C) 2003.1.30 永井善王
ファイル名を変数で与えば実現しますよ。
取引先名の取得方法が示されていませんので、よく似たケースが
演算の終ったシートだけを別名ブックとして保存するには のページにありますから参考にして、インプットボックスで入力した名前を使うとすると、次のようになります。
    取引先名 = Application.InputBox(prompt:="取引先名を10文字以内で")
    ファイル名 = "Portfolio_Analysis(" & 取引先名 & ").xls"
    ActiveWorkbook.SaveAs _
        Filename:="C:\SAS_Portfolio_Rollup\" & Nentuki & "\" & ファイル名

お願い
あなたは見落とされたようですが、メールによるご質問はウィルス対策のためお断りしています。そのかわり
いろいろな質問窓口 を設けていますので、今後はご協力ください。

 

Excel VBA Macro