マクロの統合ソースを変更する

Question

マクロを作成しようとしていますが、すべて問題はありませんでしたが、マクロを使用してシートを統合するのに問題があります。それはうまくいったが、問題はコードである。別のシートのシートを同じブック（ファイル）にまとめるためだ。しかし、マクロでは、私のコンピュータ上のファイルアドレスを使用するので、ファイル名や場所を変更しても動作しません。私は本当に試してください。 シート「Analise de Estoque」のシート「Controle Estoque Fixo」を統合する必要があり、両方が同じファイルにあるため、ファイルソースを削除する必要があります。

ActiveSheet.Select 
ActiveSheet.Name = "Analise de Estoque" 
Range("A1").Select 
Selection.Consolidate Sources:= _ 
"'C:\Users\rapha\Desktop\Cerealista\25062016\[Controle de Estoque v2.xlsm]Controle Estoque Fixo'!C1:C4", Function:=xlSum, _ 
TopRow:=True, LeftColumn:=True, CreateLinks:=False 

Answer 1

ワークブックが開いている場合は、パスを指定する必要はありません。

ActiveSheet.Range("A1").Consolidate Sources:= _ 
         "'[Controle de Estoque v2.xlsm]Controle Estoque Fixo'!R1C3:R4C3", Function:=xlSum, _ 
         TopRow:=True, LeftColumn:=True, CreateLinks:=False 

すべてのワークシートがActiveWorkbookにある場合は、ブックを指定する必要はありません。

ActiveSheet.Range("A1").Consolidate Sources:= _ 
         "'Controle Estoque Fixo'!C1:C4", Function:=xlSum, _ 
         TopRow:=True, LeftColumn:=True, CreateLinks:=False 

あなたは範囲を（）を使用して、正しい構文を取得することができます（、、xlR1C1、真の）アドレス

ワークシート（ "Controle Estoque Fixo"）範囲（ "C1：C4"）。 ！.Address（、、xlR1C1、真）

'[Book1.xlsm] Controle Estoque Fixo' R1C3：R4C3