游戏设置窗口模式:Excel VBA 高手进

来源:百度文库 编辑:高考问答 时间:2024/07/02 18:58:54
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