代码之家 › 专栏 › 技术社区 › Xev

运行时错误91:对象变量或未设置块

macros vba excel

Xev · 技术社区 · 2 年前

这个宏以前没有问题,但突然出现了一个错误,说“运行时错误91:对象变量或未设置块”。。谁能帮帮我吗。非常感谢。

Dim zipFile As Variant 
Dim extractFolder As Variant 
Dim test As Object 
zipFile = Range("C1").Value
extractFolder = "<filepath>" 
Set test = CreateObject("Shell.Application")
test.Namespace (extractFolder).CopyHere test.Namespace(zipFile).Items

错误指向这一行:

test.Namespace(extractFolder).CopyHere test.Namespace(zipFile).Items

0 回复 | 直到 2 年前

FaneDuru 2 年前

请尝试使用:

test.Namespace((extractFolder)).CopyHere test.Namespace((zipFile)).Items

应该行得通。它还将通过以下方式发挥作用:

test.NameSpace("" & extractFolder & "").CopyHere test.NameSpace("" & zipFile & "").items

推荐文章

CPS · 当变量值为空时,在另一个变量中赋值

2 年前

xris23 · 通过VBA选择命名范围,让用户直接编辑单元格

2 年前

Stormer · 从Access格式化Excel单元格无效

2 年前

j johns · 通过VBA将ascii art添加到命令提示符

2 年前

BinaryCat · Excel-将单元格转换为具有成对数据的行

2 年前

Waleed · 以下拆分函数的(0)表示什么?

2 年前

judo_ürgens · vlookup和sumif(每个项目的总利润)

2 年前

Louay Alkhawam · 在任意多个列中计算包含子字符串*[橙色]*的行,而不重复计算?

2 年前

smrmodel78 · VBA创建表格未选择正确的范围

2 年前

HouÅ¡tí · 如何检测鼠标释放

2 年前