C:\Documents and Settings\ユーザー名2\適当なフォルダ名へ保存したいのですが・・・。
C:\Documents and Settings内の個人毎のフォルダにファイルを保存したいのですがどうしてもうまくいきません。
どなたかわかる方、お力を貸していただけないでしょうか?
Dim ユーザー名1 As String
Dim ユーザー名2 As String
ユーザー名1 = Application.UserLibraryPath ’ユーザー名格納
ユーザー名2 = Mid(ユーザー名1, 27, 8) ’ユーザー名切出
ChDir "C:\Documents and Settings\ユーザー名2\適当なフォルダ名"
ActiveWorkbook.SaveAs Filename:="C:\Documents and Settings\ユーザー名2\適当なフォルダ名r\適当なファイル名.xls", FileFormat:= _
xlNormal
(変数:ユーザー名2)にうまく代入されない状態です。
変数の宣言がまずいのでしょうか???
初心者丸出しの書き方で恐縮ですが、どうかお願いいたします。
お礼
1週間前から出来上がっていて再起動しても変わらないのです。 ただ1週間くらいまえにユーザー名を変更したのでその影響だとは思いますが不思議です。