更改macros上的合并源

我试图做一个macros，一切都很好，但我很难巩固使用macros的工作表。 它的工作，但问题是与代码，因为我合并一张表在另一个工作表，但在同一个工作簿（文件）。 但在macros上，它使用我的电脑上的文件地址，所以如果我改变文件名或地方，它不会工作。 请我真的尝试过。 所以，我需要在表格“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

如果工作簿已打开，则不必指定path。

 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 

您可以使用Range（）获得正确的语法。Address（，，xlR1C1，True）

工作表（“Controle Estoque Fixo”）范围（“C1：C4”）地址（，，xlR1C1，True）

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