二胎孕38周临产征兆:Excel VBA 高手进

来源:百度文库 编辑:杭州交通信息网 时间:2024/04/27 23:16:24
Dim KFileSys, KFile, KFile1, KFileCol, KomiLists, KFolderExists, KFileExists
F4GISToReturn = "": KomiLists = ""

Set KFileSys = CreateObject("Scripting.FileSystemObject")

KFolderExists = KFileSys.FolderExists(folderspec)

运行到上一句时出现 对象变量或 With 块变量没有设置(错误 91)
此时察看
KFileSys内容为Nothing
请问这问题怎么解决阿?

Dim KFileSys, KFile, KFile1, KFileCol, KomiLists, KFolderExists, KFileExists
F4GISToReturn = "": KomiLists = ""
with

Set KFileSys = CreateObject("Scripting.FileSystemObject")

KFolderExists = KFileSys.FolderExists(folderspec)
end with