統合マクロでパスの取得方法
お世話になります。
集計ファイルでエリア・商品で集計をとっています。
一つのファイルにまとめたいのでエリアをシート名による串刺し
商品を統合を使って集計していますが 毎回統合ボタンを押すのが大変で
マクロを使い下記のコードを使っていますがファイルのパスで固定されているので
人に渡すとファイル名の変更、ユーザーの違いによりエラーになってしまいます。
現在開いているファイルの名前とパスをマクロに取り込み統合させる事は可能でしょうか
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とか組み込みましたが
うまく行かないです。
どうぞ助けてください。
お礼
すいません。勘違いしていました。 サブフォルダは残りテキストファイルだけ消えました。ありがとうございました。
補足
回答ありがとうございます。 書き忘れていましたが、サブフォルダは消さずにテキストファイルだけ消えるようにしたいです。