Visio按钮比较excel文件中的文本;错误438

Question

我试图做一个可视化图，你点击一个按钮，它搜索和excel文件的"位置"，一旦它找到excel文件中的位置，然后复制在一个URL，并继续打开该URL默认浏览器。我一直得到运行时错误438:对象不支持此属性或方法。什么好主意吗?

Option Compare Text
Private Sub Mail_Room_Click()

Dim XLApp As Excel.Application
Dim XLWB As Excel.Workbook
Set XLApp = New Excel.Application
Set XLWB = XLApp.Workbook.Open("C:printersschprint.xlsx")
Set XLWsht = XLWB.Sheets(1)
Dim URL As String
Dim Location As String
Location = "Mail Room"
URL = ""
For Each i In XLWsht.Range("D2:D11")
If StrComp(i.Cells.Value, Location) = 0 Then
    URL = i.Cells.Offset(7, 0).Value
    Exit For
    End If
    Next i

CreateObject("WScript.Shell").Run (URL)
End Sub

Answer 1

我想你只是在XLApp.WorkbookS.Open("C:printersschprint.xlsx")中缺少's'这应该能解决问题。