ThisWorkbook.Activate运行时错误1004
在下面的代码中，“FORMAT TEMPLATE”注释失败。 我得到一个运行时错误1004.我正在做的是 – 我正在closures以前的窗口（从复制模板），并将其粘贴到良好的工作簿。 我不认为我正在切换工作簿。
Sub BBUorders() 'OPEN TEMPLATE Dim sPath As String, sFile As String Dim wb As Workbook sPath = "C:\Users\douglas.futato\Desktop\" sFile = sPath & "BBU_CMD_TEMPLATE.xlsx" Set wb = Workbooks.Open(sFile) 'COPY TEMPLATE PASTE IN BBU DOC Dim tmplt As Workbook On Error Resume Next Set tmplt = Workbooks("BBU_CMD_TEMPLATE.xlsx") If tmplt Is Nothing Then MsgBox "Template file needs to be open..." Exit Sub End If On Error GoTo 0 With ThisWorkbook tmplt.ActiveSheet.Copy After:=.Sheets(.Sheets.Count) End With 'CLOSE TEMPLATE Windows("BBU_CMD_TEMPLATE.xlsx").Activate ActiveWindow.Close False 'FORMAT TEMPLATE --------- THIS IS WHERE IS BOMBS OUT ThisWorkbook.Activate Worksheets(“Sheet3”).Activate ActiveCell.Offset(-3, -8).Range("A1:H1").Select Selection.AutoFilter Cells.Replace What:="[BBU_CMD_TEMPLATE.xlsx]Price List", Replacement:=Sheet1.Name, LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False ActiveSheet.Range("$A$1:$H$61").AutoFilter Field:=6, Criteria1:="0" Rows("2:100").Select Selection.Delete Shift:=xlUp ActiveWindow.SmallScroll Down:=-18 ActiveSheet.Range("$A$1:$H$18").AutoFilter Field:=6 ActiveSheet.Range("$A$1:$H$18").AutoFilter Field:=7, Criteria1:="0" Selection.Delete Shift:=xlUp ActiveSheet.Range("$A$1:$H$17").AutoFilter Field:=7 Range("E2").Select ActiveCell.FormulaR1C1 = "=R[-1]C+1" Range("E2").Select Selection.AutoFill Destination:=Range("E2:E50"), Type:=xlFillDefault Range("E2:E21").Select Range("I1").Select ActiveSheet.Range("$A$1:$H$50").AutoFilter Field:=1, Criteria1:="=" Rows("8:100").Select Selection.Delete Shift:=xlUp Range("A2:H2").Select Range(Selection, Selection.End(xlDown)).Select Selection.Copy ActiveSheet.Range("$A$1:$H$7").AutoFilter Field:=1 Range("A1").Select End Sub 我注意到的是Worksheets(“Sheet3”).Activate
您是否尝试用Worksheets("Sheet3").Activatereplace它Worksheets("Sheet3").Activate
ActiveCell.Offset不应该包含负值。
如果你的活动单元格是（1，1），你会得到一个错误，因为
-3 – 1小于1，不是有效的行。 （与列相同）
我知道这不是最干净的代码，但我想出了如何使它运行。 我不得不添加工作表作为参考。 当我试图在新的工作表上工作时，这是默认的。 示例：工作表（“TEMPLATE”）。范围（“E45”）。select
Sub templateToBBU() 'OPEN TEMPLATE Dim sPath As String, sFile As String Dim wb As Workbook sPath = "C:\Users\douglas.futato\Desktop\" sFile = sPath & "BBU_CMD_TEMPLATE.xlsx" Set wb = Workbooks.Open(sFile) 'COPY TEMPLATE PASTE IN BBU DOC Dim tmplt As Workbook On Error Resume Next Set tmplt = Workbooks("BBU_CMD_TEMPLATE.xlsx") If tmplt Is Nothing Then MsgBox "Template file needs to be open..." Exit Sub End If On Error GoTo 0 With ThisWorkbook tmplt.ActiveSheet.Copy After:=.Sheets(.Sheets.Count) End With 'CLOSE TEMPLATE Windows("BBU_CMD_TEMPLATE.xlsx").Activate ActiveWindow.Close False End Sub Sub Macro1() Worksheets("TEMPLATE").Range("A1:H1").Select Selection.AutoFilter Worksheets("TEMPLATE").Cells.Replace What:= _ "C:\Users\douglas.futato\Desktop\[BBU_CMD_TEMPLATE.xlsx]Price List", _ Replacement:=Sheet1.Name, LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase _ :=False, SearchFormat:=False, ReplaceFormat:=False Worksheets("TEMPLATE").Range("$A$1:$H$61").AutoFilter Field:=6, Criteria1:="0" Worksheets("TEMPLATE").Rows("2:100").Select Selection.Delete Shift:=xlUp Worksheets("TEMPLATE").Range("$A$1:$H$18").AutoFilter Field:=6 Worksheets("TEMPLATE").Range("$A$1:$H$18").AutoFilter Field:=7, Criteria1:="0" Selection.Delete Shift:=xlUp Worksheets("TEMPLATE").Range("$A$1:$H$17").AutoFilter Field:=7 Worksheets("TEMPLATE").Range("E2").Select ActiveCell.FormulaR1C1 = "=R[-1]C+1" Worksheets("TEMPLATE").Range("E3").Select ActiveCell.FormulaR1C1 = "=R[-1]C+1" Worksheets("TEMPLATE").Range("E4").Select ActiveCell.FormulaR1C1 = "=R[-1]C+1" Worksheets("TEMPLATE").Range("E5").Select ActiveCell.FormulaR1C1 = "=R[-1]C+1" Worksheets("TEMPLATE").Range("E6").Select ActiveCell.FormulaR1C1 = "=R[-1]C+1" Worksheets("TEMPLATE").Range("E7").Select ActiveCell.FormulaR1C1 = "=R[-1]C+1" Worksheets("TEMPLATE").Range("E8").Select ActiveCell.FormulaR1C1 = "=R[-1]C+1" Worksheets("TEMPLATE").Range("E9").Select ActiveCell.FormulaR1C1 = "=R[-1]C+1" Worksheets("TEMPLATE").Range("E10").Select ActiveCell.FormulaR1C1 = "=R[-1]C+1" Worksheets("TEMPLATE").Range("E11").Select ActiveCell.FormulaR1C1 = "=R[-1]C+1" Worksheets("TEMPLATE").Range("E12").Select ActiveCell.FormulaR1C1 = "=R[-1]C+1" Worksheets("TEMPLATE").Range("E13").Select ActiveCell.FormulaR1C1 = "=R[-1]C+1" Worksheets("TEMPLATE").Range("E14").Select ActiveCell.FormulaR1C1 = "=R[-1]C+1" Worksheets("TEMPLATE").Range("E15").Select ActiveCell.FormulaR1C1 = "=R[-1]C+1" Worksheets("TEMPLATE").Range("E16").Select ActiveCell.FormulaR1C1 = "=R[-1]C+1" Worksheets("TEMPLATE").Range("E17").Select ActiveCell.FormulaR1C1 = "=R[-1]C+1" Worksheets("TEMPLATE").Range("E18").Select ActiveCell.FormulaR1C1 = "=R[-1]C+1" Worksheets("TEMPLATE").Range("E19").Select ActiveCell.FormulaR1C1 = "=R[-1]C+1" Worksheets("TEMPLATE").Range("E20").Select ActiveCell.FormulaR1C1 = "=R[-1]C+1" Worksheets("TEMPLATE").Range("E21").Select ActiveCell.FormulaR1C1 = "=R[-1]C+1" Worksheets("TEMPLATE").Range("E22").Select ActiveCell.FormulaR1C1 = "=R[-1]C+1" Worksheets("TEMPLATE").Range("E23").Select ActiveCell.FormulaR1C1 = "=R[-1]C+1" Worksheets("TEMPLATE").Range("E24").Select ActiveCell.FormulaR1C1 = "=R[-1]C+1" Worksheets("TEMPLATE").Range("E25").Select ActiveCell.FormulaR1C1 = "=R[-1]C+1" Worksheets("TEMPLATE").Range("E26").Select ActiveCell.FormulaR1C1 = "=R[-1]C+1" Worksheets("TEMPLATE").Range("E27").Select ActiveCell.FormulaR1C1 = "=R[-1]C+1" Worksheets("TEMPLATE").Range("E28").Select ActiveCell.FormulaR1C1 = "=R[-1]C+1" Worksheets("TEMPLATE").Range("E29").Select ActiveCell.FormulaR1C1 = "=R[-1]C+1" Worksheets("TEMPLATE").Range("E30").Select ActiveCell.FormulaR1C1 = "=R[-1]C+1" Worksheets("TEMPLATE").Range("E31").Select ActiveCell.FormulaR1C1 = "=R[-1]C+1" Worksheets("TEMPLATE").Range("E32").Select ActiveCell.FormulaR1C1 = "=R[-1]C+1" Worksheets("TEMPLATE").Range("E33").Select ActiveCell.FormulaR1C1 = "=R[-1]C+1" Worksheets("TEMPLATE").Range("E34").Select ActiveCell.FormulaR1C1 = "=R[-1]C+1" Worksheets("TEMPLATE").Range("E35").Select ActiveCell.FormulaR1C1 = "=R[-1]C+1" Worksheets("TEMPLATE").Range("E36").Select ActiveCell.FormulaR1C1 = "=R[-1]C+1" Worksheets("TEMPLATE").Range("E37").Select ActiveCell.FormulaR1C1 = "=R[-1]C+1" Worksheets("TEMPLATE").Range("E38").Select ActiveCell.FormulaR1C1 = "=R[-1]C+1" Worksheets("TEMPLATE").Range("E39").Select ActiveCell.FormulaR1C1 = "=R[-1]C+1" Worksheets("TEMPLATE").Range("E40").Select ActiveCell.FormulaR1C1 = "=R[-1]C+1" Worksheets("TEMPLATE").Range("E41").Select ActiveCell.FormulaR1C1 = "=R[-1]C+1" Worksheets("TEMPLATE").Range("E42").Select ActiveCell.FormulaR1C1 = "=R[-1]C+1" Worksheets("TEMPLATE").Range("E43").Select ActiveCell.FormulaR1C1 = "=R[-1]C+1" Worksheets("TEMPLATE").Range("E44").Select ActiveCell.FormulaR1C1 = "=R[-1]C+1" Worksheets("TEMPLATE").Range("E45").Select ActiveCell.FormulaR1C1 = "=R[-1]C+1" Worksheets("TEMPLATE").Range("E46").Select ActiveCell.FormulaR1C1 = "=R[-1]C+1" Worksheets("TEMPLATE").Range("E47").Select ActiveCell.FormulaR1C1 = "=R[-1]C+1" Worksheets("TEMPLATE").Range("E48").Select ActiveCell.FormulaR1C1 = "=R[-1]C+1" Worksheets("TEMPLATE").Range("E49").Select ActiveCell.FormulaR1C1 = "=R[-1]C+1" Worksheets("TEMPLATE").Range("E50").Select ActiveCell.FormulaR1C1 = "=R[-1]C+1" Worksheets("TEMPLATE").Range("E51").Select ActiveCell.FormulaR1C1 = "=R[-1]C+1" 'ST and Cust Mapping HERE Worksheets("TEMPLATE").Range("$A$1:$H$50").AutoFilter Field:=1, Criteria1:="=" Worksheets("TEMPLATE").Rows("8:100").Select Selection.Delete Shift:=xlUp Worksheets("TEMPLATE").Range("$A$1:$H$50").AutoFilter Field:=1 End Sub Sub Main() Call templateToBBU Call Macro1 End Sub