Visio按鈕用於比較excel文件中的文本;錯誤438

Question

我試圖做一個visio圖表，你點擊一個按鈕，它會搜索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:\printers\schprint.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 'S'（ 「C：\打印機\ schprint.xlsx」） 這應該解決這個問題。