5

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

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

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

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

Automation
The object invoked has disconnected from its clients.

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

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

我在 stackoverflow 和论坛上搜索并找到了这篇 Microsoft KB 文章

根据那里给出的建议,我尝试使我的代码完全合格(例如使用Dim app As Applicationand 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
4

2 回答 2

1

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

wb.Sheets("nameOfWorksheet").Activate

或者

Worksheets("nameOfWorksheet").Activate

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

于 2013-04-04T15:57:51.810 回答
0

我有同样的问题,但我很难找到一个好的解决方案。我的代码出现这个(令人沮丧的)错误的主要问题之一是我End在一个代码块的末尾有一个表单的一部分,我将其替换为Me.Hide.

另一件有帮助的事情是测试我声明的全局变量(作为代表应用程序和工作簿的模块的一部分)是否Nothing在使用它们的代码中。

换句话说:

If app Is Nothing Then
    Set app = Excel.Application
End If

也许你的 wb 变量也是一样的。在使用工作簿和工作表对象之前在代码中放置断点以单步执行它们以查看哪个是违规行可能会很好。

否则,请查看此 Microsoft 文章以了解有关此问题的一些信息。

我希望这有帮助。

PS。我的代码是从 Excel 2003 升级而来的,它在旧版本中一直有效,没有这个错误。

于 2013-07-10T08:32:04.523 回答