VBAで保存の際にファイル名を指定したいのですが

質問

VBAで保存をするときにファイル名をしていしたいのですが、
ファイル名を現在ログインしているユーザー名とコンピュータ名でつけて、Cドライブ直下に保存したいと思っています。
可能でしょうか。

回答No.1

keithin · ベストアンサー

とりあえずご質問の直接の回答として：
sub macro1()
　dim o as object
　set o = createobject("WScript.Network")

　activeworkbook.saveas filename:="c:\" & o.computername & "_" & o.username
　set o = nothing
end sub

で。
ご利用のウィンドウズのバージョンは幾つでしょうか。
状況に応じて、Ｃドライブ直下に保存するためのアクセス権限の問題を解決してから、実行してください。

またご利用のエクセルのバージョンは幾つですか。
どのファイル形式でブックを保存したいのですか。
そういった説明不足については、ご相談の核心ではありませんので特にご説明は割愛します。適切に自力で解決してください。