运行提示报错，请教大家。

snowfly1112 · 发表于 2019-8-22 16:13

这段代码提示报错，不知原因。
Sub 提取文件名称()

Dim sfp As String, sfn As String, k As Integer

sfp = "E:\V19\*.dwg"
sfn = Dir(sfp)
k = 0
      Do While sfp <> " "
         k = k + 1
         Range("A" & k).Value = sfn
         sfn = Dir
      Loop
End Sub
运行提示报错，不知什么原因，

maditate · 发表于 2019-8-22 16:16

sfp = "E:\V19\*.dwg"

后面的斜杠是不是写反了？

w609053988 · 发表于 2019-8-22 16:18

Do While sfp <> " "无限循环了，是不是写错了，应该判断sfn吧

maditate · 发表于 2019-8-22 16:18

我电脑上的路径斜杠都是反向的。
F:\照片/装修视频照片集/2017-7-20/

大灰狼1976 · 发表于 2019-8-22 16:18

sfp是个字符串，没有再给它赋值的语句，所以Do While sfp <> " "这句代码没有起作用，改成Do While sfn <> " "，还有，你的引号里面有个空格，要去掉。

tspliu · 发表于 2019-8-22 16:22

本帖最后由 tspliu 于 2019-8-22 16:37 编辑

你们回的好快啊。。。

maditate · 发表于 2019-8-22 16:29

测试了一下，目录分隔符斜杠正反好象都可以的。

sfp = "E:\V19\*.dwg" 这样行

sfp = "E:\V19/*.dwg" 这样也行。

microyip · 发表于 2019-8-22 16:30

五楼的很正确

snowfly1112 · 发表于 2019-8-22 16:58

本帖最后由 snowfly1112 于 2019-8-22 16:59 编辑

大灰狼1976 发表于 2019-8-22 16:18
sfp是个字符串，没有再给它赋值的语句，所以Do While sfp " "这句代码没有起作用，改成Do While sfn " " ...

谢谢，是这个问题。哎，两个错误！！

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

[求助] 运行提示报错，请教大家。