每次運行以下代碼時都會報告錯誤代碼：13 型別不匹配。
If Not Len(Dir(Me.ImageURL)) = 0 Then
Application.FollowHyperlink (Me.ImageURL)
End If
這僅在 Me.ImageURL 等于 Null 時發生。因此，我嘗試了以下但沒有成功。
If Not Len(Dir(Me.ImageURL)) = 0 And Not Nz(Me.ImageURL, "") = "" Then
Application.FollowHyperlink (Me.ImageURL)
End If
uj5u.com熱心網友回復：
忘記 If 陳述句。只需使用該Nz功能。
Application.FollowHyperlink Nz(Me.ImageURL, "")
如果您想知道，您的特定問題是Dir(Me.ImageURL). 我猜Dir無法處理 Null 值。
轉載請註明出處，本文鏈接：https://www.uj5u.com/yidong/360113.html
標籤：vba
上一篇：附加帶有條件的行