VBA内容运行错误是什么问题，麻烦大神们帮忙看看

平常人欢欢 · 发表于 2018-8-20 16:56

Public Sub kkkk()
Dim F As Integer
F = ThisWorkbook.Path & " \员工花名册.xlsx"
If Len(Dir(F)) > 0 Then
MsgBox "文件已存在"
End If
MsgBox "文件不存在"
End Sub
各位大神，标注红字的这行有问题不能运行，请问这行是怎么了？为什么不能运行？

abc123281 · 发表于 2018-8-20 21:14

变量F数据类型定义错误  应该是字符型不是整数型

更正如下

Sub test()
Dim F$
F = ThisWorkbook.Path & "\员工花名册.xlsx"
If Len(Dir(F)) > 0 Then
  MsgBox "文件已存在"
Else
  MsgBox "文件不存在"
End If
End Sub

		自动登录	找回密码
密码			免费注册