vba打开文件 一直提示错误

Sub s()
On Error Resume Next
Dim pth$, fn$, wb As Workbook
pth = "F:\XXX\2017工作" '在这里输入要打开的工作簿的完整路径
fn = "XXXX-X看板管理.xlsm" '在这里输入要打开的工作簿的文件名，包括扩展名
Set wb = Application.Workbooks.Open(pth & fn)
If wb Is Nothing Then MsgBox ("文件打开失败，请检查" & pth & fn & "是否存在！"):
Private Sub CommandButton1_Click()
Dim a, b, c
For a = 2 To WorksheetFunction.CountA(Sheet8.Columns(1))
For c = 1 To 558 Step 3
For b = 7 To WorksheetFunction.CountA(Sheet3.Columns(c))
If Sheet8.Cells(a, 1) = Sheet3.Cells(b, c) Then
Sheet3.Cells(b, c + 1) = ""
Sheet3.Cells(b, c + 2) = Date
End If
Next
Next
Sheet8.Cells(a, 1) = ""
Next
For a = 2 To WorksheetFunction.CountA(Sheet8.Columns(4))
For c = 1 To 558 Step 3
For b = 7 To WorksheetFunction.CountA(Sheet3.Columns(c))
If Sheet8.Cells(a, 4) = Sheet3.Cells(b, c) Then
Sheet3.Cells(b, c + 1) = Sheet8.Cells(a, 4)
Sheet3.Cells(b, c + 2) = Date
End If
Next
Next
Sheet8.Cells(a, 4) = ""
Next
End Sub

wb.Close True '如果无需保存，本参数用false
End Sub

相关了解……