統合マクロでパスの取得方法
お世話になります。
集計ファイルでエリア・商品で集計をとっています。
一つのファイルにまとめたいのでエリアをシート名による串刺し
商品を統合を使って集計していますが 毎回統合ボタンを押すのが大変で
マクロを使い下記のコードを使っていますがファイルのパスで固定されているので
人に渡すとファイル名の変更、ユーザーの違いによりエラーになってしまいます。
現在開いているファイルの名前とパスをマクロに取り込み統合させる事は可能でしょうか
Sub Macro1()
'
' Macro1 Macro
' マクロ記録日 : 2009/9/29 ユーザー名 : user
'
'
Sheets("一般A").Select
Range("b6").Select
Selection.Consolidate Sources:=Array( _
"'C:\Documents and Settings\user\デスクトップ\[8期資料.xls]〇〇一般A'!R6C2:R64C9", _
"'C:\Documents and Settings\user\デスクトップ\[8期資料.xls]□□一般A'!R6C2:R64C9", _
"'C:\Documents and Settings\user\デスクトップ\[8期資料.xls]△△一般A'!R6C2:R64C9", _
"'C:\Documents and Settings\user\デスクトップ\[8期資料.xls]××一般A'!R6C2:R64C9", _
"'C:\Documents and Settings\user\デスクトップ\[8期資料.xls]●●一般A'!R6C2:R64C9", _
"'C:\Documents and Settings\user\デスクトップ\[8期資料.xls]■■一般A'!R6C2:R64C9", _
"'C:\Documents and Settings\user\デスクトップ\[8期資料.xls]▲▲一般A'!R6C2:R64C9", _
"'C:\Documents and Settings\user\デスクトップ\[8期資料.xls]++一般A'!R6C2:R64C9", _
"'C:\Documents and Settings\user\デスクトップ\[8期資料.xls]※※一般A'!R6C2:R64C9", _
"'C:\Documents and Settings\user\デスクトップ\[8期資料.xls]%%一般A'!R6C2:R64C9"), _
Function:=xlSum, TopRow:=False, LeftColumn:=False, CreateLinks:=False
Sheets("一般B").Select
Range("b6").Select
Selection.Consolidate Sources:=Array( _
"'C:\Documents and Settings\user\デスクトップ\[8期資料.xls]〇〇一般B'!R6C2:R64C9", _
"'C:\Documents and Settings\user\デスクトップ\[8期資料.xls]□□一般B'!R6C2:R64C9", _
"'C:\Documents and Settings\user\デスクトップ\[8期資料.xls]△△一般B'!R6C2:R64C9", _
・
・
・
・
End Sub
DIMとかActiveWorkbook.Pathとか組み込みましたが
うまく行かないです。
どうぞ助けてください。
補足
お返事をいただいてありがとうございます。 ご指摘の通り、ユーザー名に漢字を使っていました。 それで、1バイトのユーザー名を別途作って、そちらを 使って、同様に視聴してみたのですが、やはり 同じエラーメッセージがでました。 そこで、今度は、教えていただいた「C直下等にインストール」を試したいのですが、 「何を」C直下にインストールすればいいのかわかりません。。。 自分でインストールしたのは、FlashPlayerとMediaPlayer8です。 この二つを移動してみればよいのでしょうか? 的外れな質問をしていたら、本当にすみません。 もしお時間ありましたら、是非、ご教授いただきたく お願いいたします。