- 締切済み
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)にうまく代入されない状態です。 変数の宣言がまずいのでしょうか??? 初心者丸出しの書き方で恐縮ですが、どうかお願いいたします。
- morino9086
- お礼率100% (4/4)
- Visual Basic
- 回答数4
- ありがとう数29
- みんなの回答 (4)
- 専門家の回答
みんなの回答
- bin-chan
- ベストアンサー率33% (1403/4213)
> Mid(ユーザー名1, 27, 8) と固定して大丈夫ですか? Application.UserLibraryPathを\で分解して、2階層目がユーザ名、という理解で正解でしょうか? Dim ユーザー名1 As String Dim ユーザー名2 As String Dim strArrey() As String ユーザー名1 = Application.UserLibraryPath ’ユーザー名格納 strArrey()=Split(ユーザー名1, "\") ユーザー名2 = strArrey(2) ’ユーザー名切出
基本的すぎて、もしお気を悪くされたらすみません。 ChDir "C:\Documents and Settings\ユーザー名2\適当なフォルダ名" ActiveWorkbook.SaveAs Filename:="C:\Documents and Settings\ユーザー名2\適当なフォルダ名r\適当なファイル名.xls", FileFormat:= _ xlNormal に出てくる「ユーザー名2」って変数ですよね? もしかして、 ChDir "C:\Documents and Settings\" & ユーザー名2 & "\適当なフォルダ名" ActiveWorkbook.SaveAs Filename:="C:\Documents and Settings\" & ユーザー名2 & "\適当なフォルダ名r\適当なファイル名.xls", FileFormat:= _ xlNormal とすれば通る…なんてオチでは? 文字列中に直接変数名を埋め込んでもその部分が勝手に入れ替わったりはしないので、 【変数より前の文字列】,【変数】,【変数より後の文字列】をそれぞれ明示的に結合する必要があります。 とりあえずご参考まで。
お礼
ご指摘ありがとうございます。 解決しました。 変数に関して、スペースや&を書く必要があるということすらわかっていませんでした。 大変参考になりました。 本当にありがとうございました。
- imogasi
- ベストアンサー率27% (4737/17068)
>適当なフォルダ名r\ のrは何?ミスタイプ? msgboxで(またはCells(1,1)に代入して)"C:\Documents and Settings\ユーザー名2\適当なフォルダ名r\適当なファイル名.xls", を表示して、じっくりとチェックしてみては?
お礼
回答ありがとうございます。 >適当なフォルダ名r\ のrはサイトへの書き込みミスで、マクロには書いておりません。 ご指摘の通り、Midで切り出したユーザー名(文字列数8)と、実際のユーザー名(文字列数8)をMsgBox等でじっくり見たのですが、完全に同一の文字列でした。 社内の不特定多数の人間が使用するファイルを作成しておりまして、どうしてもユーザー名を変数に代入したいんですが・・・。 やはりマクロは難しいですね。
- n-jun
- ベストアンサー率33% (959/2873)
簡単に言うと、ログオンしたユーザーとは別のユーザーのフォルダに 入り込みたいと言う事でしょうか? (その場合、権限についてはちょっと無知っぽい私ですけど)
お礼
あ、そこまで大それたシロモノではありません。 変な質問の仕方でスイマセンでした。 私の部署の個人PCに、ユーザー名以外は誰にでも C:\Documents and Settings\ユーザー名2\会計システムのフォルダ名(会計システムのフォルダ名は全員同じです) 要は、ユーザー名以外は完全にフォルダパスが同様のフォルダが存在しております。 そして、部署の人間が質問のマクロ搭載のファイルを使って、そのフォルダに自動で保存するマクロを書きたかったのです。 もちろん手書きで個人毎のユーザー名をマクロに書き込めば作動しますが・・・。 もしわかるようであればご回答いただければと思います。
関連するQ&A
- C:\Documents and Settings\ユーザ名\WINDOWS
C:\\Documents and Settings\\ユーザ名\\にWINDOWSという空のフォルダがありますが、何に使われているのでしょうか?
- ベストアンサー
- Windows XP
- C:\Documents and Settings\<ユーザー名>\
C:\Documents and Settings\<ユーザー名>\ の後にあるファイルに、ユーザー名を入力せずに直接アクセスしたいのですが、どうすればできるでしょうか? 教えてください。
- ベストアンサー
- Windows XP
- documents and settingsにあるフォルダ名の変更
セットアップ時に長い名前をつけてしまったために documents and settingsにあるフォルダ名が 長くなってしまって困っています. 使用者名とユーザーアカウントを変更しても, ようこその名前は変わるものの, 肝心のマイコンピュータ>documents and settings の下にあるフォルダ名は変わりません. どうしたら変わるのでしょうか?
- ベストアンサー
- Windows XP
- C:\Documents and Settings\ユーザー名フォルダ のフォルダ名変更
windowsXPでのセットアップ時にユーザー名を間違えて登録してしまいました。 セットアップ後にログオンしてユーザー名とパソコンの使用者名は変更したのですが、 C:\Documents and Settings\ユーザー名フォルダの名前が間違って登録した時のままです。 このフォルダの名前を変更しようとしてもシステムフォルダで変更できません。 このフォルダの名前を変更する方法はありませんか?
- ベストアンサー
- Windows XP
- Documents and Settingsフォルダの下のユーザー名のかかれたフォルダの名前をかえるには
Documents and Settingsフォルダの下のユーザー名のかかれたフォルダの名前をかえるにはどうするんですか
- ベストアンサー
- Windows XP
- documents and settingsでユーザ名.○○が読み込まれます
突然Windowsの読み込まれる設定ファイルが変わってしまい困っています。 具体的な症状は次のとおりです。 documents and settingsの中に以下のようなフォルダが2つあります。 (1)ユーザ名 (2)ユーザ名.○○ 以前は(1)を読み込んでいたはずなのですが、今日になって(2)を読み込むようになってしまいました。 (1)を読むように戻したいのですが、分かる方が居られましたら教えていただけませんか?
- ベストアンサー
- Windows NT・2000
- Documents and Settingsフォルダ
WindowsXPの Documents and Settingsフォルダの下のフォルダに ユーザ名のフォルダがありますが、 コントロールパネル-ユーザアカウントでユーザ名を変更したときに、 そのフォルダの名前も新しいユーザ名にしたいのです。 右クリックで名前の変更も出来ません。 変更する方法はありますでしょうか? よろしくお願いします。
- 締切済み
- Windows系OS
- Documents and Settingsのフォルダ名
HDDを新規購入し、XP Home をインストールしました。 途中でコンピュータ名を入力するしたのですが、「Documents and Settings」に この名前のフォルダがなくて、「Owner」というフォルダになっています。 アカウント名もOwnerになっていたので、こちらはユーザアカウントから直しましたが Documents and Settingsのフォルダ名を変更するにはどうしたらいいでしょうか? 直接フォルダ名の変更はできませんでした。 HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\windows\CurentVersion\Explorer\DocFolderPaths ここで変えてもダメでした。 以前にインストールしたときは、初めに入力したコンピュータ名が そのままフォルダ名になったはずなのですが・・・
- 締切済み
- Windows XP
- Documents and settings ユーザー名の変更
Windows XP Pro sp2 を使っています。 Cドライブの中の Documents and settings 内にユーザー名のフォルダがありますが、OSを再インストールせずにこの名前を変更する方法はありませんでしょうか。
- ベストアンサー
- Windows系OS
- C:\Documents and Settings\フォルダに
C:\Documents and Settings(ユーザの情報等が保存されているフォルダ)にユーザ名.コンピュータ名がついたフォルダがあるのです。 Adminisrator これはあってOK All Users これもあってOK Yuuki(私のユーザです) これもあってOK なんですがこの基本3つの他に All Users.WINDOWS Yuuki.YUUKI-********T(コンピュータネーム) という不審な2つのフォルダがありました。 消そうにも消えず、UnLockeckerで使用中のプロセスを見てみると相当な数のプロセスが使っているようでした。 この2つのフォルダは消えないのでしょうか、そのうちのYuuki.YUUKI-~というフォルダが3G程HD容量を圧迫していてはっきり言って邪魔な状態です。。
- ベストアンサー
- Windows XP
お礼
ご回答ありがとうございます。 アドバイスいただいた内容でも解決できました。 VBAにはいろいろな書き方があることがわかり非常に参考になりました。 アドバイスいただいた方々に一歩でも近づけるようにがんばりたいと思います。 本当にありがとうございました。