如何使excel vba代码完全合格/如何规避运行时错误？

Question

我正在编写一些VBA代码,在打开excel文件时动态设置某些图表的属性,比如数据范围.这是因为我用来从我的.Net项目导出Excel的库不完全支持图表属性.

我在这个文件中有4张图表和1张数据表.

但是,在第一次打开文件时,会显示以下错误:

Run-Time Error: '-2147417848 (80010108)':

Automation
The object invoked has disconnected from its clients.

(另外,在第一次打开时,会显示一条警告,说该文件可能不安全,我手动必须允许打开,但我不确定这是否与此问题有任何关系)

此文件的后续打开不会触发错误.

我搜索了stackoverflow和论坛,发现了这篇Microsoft知识库文章

基于那里给出的建议,我试图使我的代码完全合格(例如使用Dim app As Application和Dim wb As Workbook).但是,这并没有解决我的问题.

违规行标有**

我的问题是:

1. 我没有让我的代码的某些部分完全合格吗？
2. 是否有任何其他可能的原因导致此错误,如果是,它们如何解决？

我的代码(在ThisWorkbook对象中):

Option Explicit
Private Sub Workbook_Open()

Dim app As Application
Set app = Excel.Application
Dim wb As Workbook
Set wb = app.ThisWorkbook

Dim lastRow As Long, lastRowString As String
lastRow = wb.Sheets("NameOfDatasheet").UsedRange.Row - 1 + Sheets("NameOfDatasheet").UsedRange.Rows.Count 'Worksheets("NameOfDatasheet").Range("A2:G41").AutoFilter field:=1, Criteria1:="<>"

With wb.Charts("NameOfChart1")
.SetSourceData Source:=wb.Sheets("NameOfDatasheet").Range("A2:A" & lastRow & ",D2:E" & lastRow)
'Styling type 1
.SeriesCollection(1).Border.Color = RGB(255, 0, 0)
.SeriesCollection(1).MarkerForegroundColor = RGB(255, 0, 0)
.SeriesCollection(1).MarkerBackgroundColor = RGB(255, 0, 0)
.SeriesCollection(1).MarkerStyle = xlMarkerStyleCircle
.SeriesCollection(1).MarkerSize = 5
'Styling type 2
.SeriesCollection(2).Border.Color = RGB(0, 0, 255)
.SeriesCollection(2).MarkerForegroundColor = RGB(0, 0, 255)
.SeriesCollection(2).MarkerBackgroundColor = RGB(0, 0, 255)
.SeriesCollection(2).MarkerStyle = xlMarkerStyleNone
.SeriesCollection(2).MarkerSize = 5
End With

With wb.Charts("NameOfChart2")
.SetSourceData Source:=wb.Sheets("NameOfDatasheet").Range("A2:A" & lastRow & ",H2:I" & lastRow)
'Styling type 1
.SeriesCollection(1).Border.Color = RGB(255, 0, 0)
.SeriesCollection(1).MarkerForegroundColor = RGB(255, 0, 0)
.SeriesCollection(1).MarkerBackgroundColor = RGB(255, 0, 0)
.SeriesCollection(1).MarkerStyle = xlMarkerStyleCircle
.SeriesCollection(1).MarkerSize = 5
'Styling type 2
.SeriesCollection(2).Border.Color = RGB(0, 0, 255)
.SeriesCollection(2).MarkerForegroundColor = RGB(0, 0, 255)
.SeriesCollection(2).MarkerBackgroundColor = RGB(0, 0, 255)
.SeriesCollection(2).MarkerStyle = xlMarkerStyleNone
.SeriesCollection(2).MarkerSize = 5
End With

Dim MaxVal As Variant, MinVal As Variant

With wb.Charts("NameOfChart3")
.SetSourceData Source:=wb.Sheets("NameOfDatasheet").Range("A2:A" & lastRow & ",F2:F" & lastRow)
MaxVal = app.Max(wb.Sheets("NameOfDatasheet").Range("G2:G" & lastRow))
MinVal = app.Min(wb.Sheets("NameOfDatasheet").Range("G2:G" & lastRow))
If (MinVal = MaxVal) Then
    MinVal = 0
End If
MaxVal = MaxVal + 0.1
MinVal = MinVal - 0.1
.Axes(xlValue).MinimumScale = MinVal
.Axes(xlValue).MaximumScale = MaxVal
End With

With wb.Charts("NameOfChart4")
**.SetSourceData Source:=wb.Sheets("NameOfDatasheet").Range("A2:A" & lastRow & ",B2:B" & lastRow)**
MaxVal = app.Max(wb.Sheets("NameOfDatasheet").Range("C2:C" & lastRow))
MinVal = app.Min(wb.Sheets("NameOfDatasheet").Range("C2:C" & lastRow))
If (MinVal = MaxVal) Then
    MinVal = 0
End If
MaxVal = MaxVal + 0.1
MinVal = MinVal - 0.1
.Axes(xlValue).MinimumScale = MinVal
.Axes(xlValue).MaximumScale = MaxVal
End With

End Sub

Answer 1

有几件事需要考虑...为什么不使用内置的 Worksheets 对象，它比 Sheets 集合更干净？此外，如果问题中的工作表不是“第一个”，则必须先调用“激活”，然后才能访问字段。（根据 Excel 的版本，在任何情况下都可能需要激活它，所以我建议无论如何都这样做）你可以这样做：

wb.Sheets("nameOfWorksheet").Activate

或者

Worksheets("nameOfWorksheet").Activate

这里请注意，您会对集合进行大量重复调用。您不能指望编译器为您优化它。每个 collection.get()，尤其是字符串解析为索引号的方法都会消耗周期。最好获取引用并通过该指针访问工作表，并在完成后释放它。