VBA 第一行崩溃 Set Var = Workbooks("name").Worksheets("name")

Question

下面是一个简单的代码，用于检查 2 个工作簿之间的更改。 1 是主工作簿，另一个是发送给我的更改列表。我实际上已经打开了两个，并且我确保它们在同一个实例中打开。代码存储在我的个人宏工作簿中，因此我可以检查多个文件。

我的代码确实在第一行就崩溃了。 Set cSheet Workbooks("CNO_CostGroups_v2.xlsx").Worksheets("CostCenters") 没有错误，没有消息，什么都没有。 Excel 只是进入无响应、崩溃并重新打开自动恢复版本中的所有内容。我已经使用键盘上的 F8 逐行执行了这段代码。 Excel 每次都崩溃，我无法通过这里。

这段代码在几周前编写时可以正常工作，之后又用了几次。我唯一的猜测是，也许我的 Excel 更新了，但没有真正的迹象表明它发生了。我不知道编写代码时可能是什么版本，但我的机器上现在是 64 位，版本 2002，内部版本 12527.21416。 I know I didn't change from 32 bit to 64 bit.

我的问题是我能做什么？我什至在 Immediate Window 中尝试了运行这段代码，它正确地 returns A1 ?Workbooks("CNO_CostGroups_v2.xlsx").Worksheets("CostCenters").Range("A1").Value 的值。是什么导致它崩溃？对我来说，这行似乎很简单，而且如您所见，所有变量都已适当声明。

Sub CheckForChanges()
Dim nSheet As Worksheet, cSheet As Worksheet, cIndexRng As Range, nHeadRng As Range, nIndexRng As Range
Dim C As Range, col1 As Long, col2 As Long, row1 As Long, row2 As Long

'Must have master version of cost center groups open
'Set intitial values
Set cSheet = Workbooks("CNO_CostGroups_v2.xlsx").Worksheets("CostCenters")
Set cIndexRng = cSheet.Range("P1", cSheet.Range("P1").End(xlDown))
Set nSheet = ActiveSheet
Set nHeadRng = nSheet.Range("A1", nSheet.Range("A1").End(xlToRight))
Set nIndexRng = nSheet.Range("P2", nSheet.Range("P2").End(xlDown)) 'Ensure This part is referencing the correct index column (currently in column P)
col1 = 1
col2 = nHeadRng.Count

'Check the file structures are the same
For Each C In nSheet.Range("A1", nSheet.Range("A1").End(xlToRight))
  If C.Value <> cSheet.Cells(1, col1).Value Then
    MsgBox ("Make sure you have open a current Cost Center file and that the column headers match")
    Exit Sub
  End If
  col1 = col1 + 1
Next C

'Begin checking file for changes. Needs updates in Yellow, new lines all together in Green
For Each C In nIndexRng
  row1 = C.Row
  If IsFound(C.Value, cIndexRng, row2) Then
    If row1 = row2 Then nSheet.Cells(row1, 16).Interior.Color = RGB(146, 208, 80)
    For col1 = 1 To col2
      If nSheet.Cells(row1, col1).Value <> cSheet.Cells(row2, col1).Value Then
        nSheet.Cells(row1, col1).Interior.Color = RGB(255, 255, 0)
      End If
    Next col1
  Else
    nSheet.Range(nSheet.Cells(row1, 1), nSheet.Cells(row1, col2)).Interior.Color = RGB(146, 208, 80)
  End If
Next C

End Sub

更新： 问题不在于坏名字。

Answer 1

尝试调暗工作簿：

Dim wb As Workbook
Dim cSheet As Worksheet, ' ...

Set wb = Workbooks("CNO_CostGroups_v2.xlsx")
Set cSheet = wb.Worksheets("CostCenters")

' snip

Answer 2

我不确定是什么原因导致的，但请尝试通过关闭一些功能来优化代码，并尝试声明变量以查看是否适合您。


'initialising the optimisation
Sub InitOptimisation()
    'optimising code by turning off few features
    Application.DisplayAlerts = False
    Application.CutCopyMode = False 'to disable the ants crawling
    Application.ScreenUpdating = False
    Application.Interactive = False
    Application.Calculation = xlCalculationManual
    Application.EnableEvents = False
End Sub

'turn on the optimisation again
Sub DestroyOptimisation()
    Application.DisplayAlerts = True
    Application.CutCopyMode = True 'to disable the ants crawling
    Application.ScreenUpdating = True
    Application.Interactive = True
    Application.Calculation = xlCalculationAutomatic
    Application.EnableEvents = True
End Sub

Sub calling()
Call InitOptimisation

Dim costGroup_wb As Workbook
Dim costCenter As Worksheet

Set costCenter = Workbooks("CNO_CostGroups_v2.xlsx").Worksheets("CostCenters")
'do your logic
Call DestroyOptimisation
End Sub

VBA 第一行崩溃 Set Var = Workbooks("name").Worksheets("name")

VBA Crashes on first line Set Var = Workbooks("name").Worksheets("name")

crash

excel

vba

excel-365