|
|
| Excel VBA Macro ・ ブックシート ・ FAQ |
|
ファイル名に取引先名を入れて保存するには？
|
|
|
|
Question 57.5 |
|
 |
 |
|
|
すいません。初めてメールさせていただきます。ぜひともエクセルのマクロに関して 質問出せてください。
実は、下記のようなマクロプログラムを書きました。
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 & "\" & ファイル名
お願い
あなたは見落とされたようですが、メールによるご質問はウィルス対策のためお断りしています。そのかわり いろいろな質問窓口 を設けていますので、今後はご協力ください。
|
|
|
|
| |
|
|
