public main()中的path，为啥sub（）过程中调用output_path 提示路径找不到呢？

mznz · 发表于 2024-6-7 08:56

Output_Path = ThisWorkbook.Path & "\Paras001"
Set FSO = CreateObject("Scripting.FileSystemObject")
If FSO.FolderExists(Output_Path) = True Then
FSO.GetFolder(Output_Path).Delete
MkDir Output_Path
Else
MkDir Output_Path
End If

以上部分放到 public main()中，为啥sub（）过程中调用output_path 提示路径找不到呢？

kevinchengcw · 发表于 2024-6-7 09:21

有没有可能操作太快了，目录还没建好，就已经执行到后面代码了

ykcbf1100 · 发表于 2024-6-7 09:25

ykcbf1100 · 发表于 2024-6-7 09:29

其实，你都用fso了，也就不必用MkDir了，这样就好。
If Not fso.FolderExists(Output_Path) Then fso.CreateFolder Output_Path

mznz · 发表于 2024-6-7 14:21

ykcbf1100 发表于 2024-6-7 09:29
其实，你都用fso了，也就不必用MkDir了，这样就好。
If Not fso.FolderExists(Output_Path) Then fso.Crea ...

多谢大佬，我试一下~！

mznz · 发表于 2024-6-7 14:23

kevinchengcw 发表于 2024-6-7 09:21
有没有可能操作太快了，目录还没建好，就已经执行到后面代码了

有可能是这个问题，多谢大侠，我再看看~！

mznz · 发表于 2024-6-7 14:28

ykcbf1100 发表于 2024-6-7 09:29
其实，你都用fso了，也就不必用MkDir了，这样就好。
If Not fso.FolderExists(Output_Path) Then fso.Crea ...

还是不行，仍然提示找不到路径……

ykcbf1100 · 发表于 2024-6-7 14:31

mznz 发表于 2024-6-7 14:28
还是不行，仍然提示找不到路径……

你上附件吧。

mznz · 发表于 2024-6-17 16:15

统一回复一下：之前应该是按钮关联的宏不对，后来改成Application.Run "Main" 就可以执行过去了，sub函数的调用是在main()中实现的，多谢各位大佬的相助~！

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

[求助] public main()中的path，为啥sub（）过程中调用output_path 提示路径找不到呢？