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

有人能帮我如何在vba中初始化对象文件夹吗

ms-word vba .net

chens11111010001 · 技术社区 · 1 年前

我有个问题

案例1:

downloadFolder = "C:\Users\ACER\AppData\Local\Temp\"
If Not shellApp.Namespace(downloadFolder) Is Nothing Then
   
    MsgBox "Success"
Else
    MsgBox "Error: " & downloadFolder
End If`

===>>>>输出:“错误:C:\Users\ACER\AppData\Local\Temp”

案例2:

If Not shellApp.Namespace("C:\Users\ACER\AppData\Local\Temp\") Is Nothing Then
   
    MsgBox "Success"
Else
    MsgBox "Error: " & downloadFolder
End If`

===>>>>输出:“成功”

1 回复 | 直到 1 年前

Nelson 1 年前

shellApp。命名空间需要一个变量作为参数。如果“downloadFolder”被定义为字符串,则会发生此“错误”。

例如:

Dim downloadFolder as String 
downloadFolder = "C:\Users\ACER\AppData\Local\Temp\"

If Not shellApp.Namespace(downloadFolder) Is Nothing Then   
    MsgBox "Success"
Else
    MsgBox "Error: " & downloadFolder
End If

将返回“错误:C:\Users\ACER\AppData\Local\Temp”

为了避免这种情况,您可以将“downloadFolder”定义为变量:

Dim downloadFolder as Variant

或者将“downloadFolder”放在括号之间,如下所示:

If (Not shellApp.Namespace((downloadFolder)) Is Nothing) Then

推荐文章

MarkA · 在excel中使用VBA打开Word文档-Word保持最小化

1 年前

chens11111010001 · 有人能帮我如何在vba中初始化对象文件夹吗

1 年前

ApexPolenta · 如何获取Range。找到要停在范围的末尾吗?

2 年前

M4tee · 从使用C的Word文档中删除重复的节控件和文本内容控件#

2 年前

DatHFA · 从用户窗体在Word中创建页脚

2 年前

Viraj Shah · 使用Microsoft Word通配符匹配时间代码

2 年前

sheridan1685 · 使用Word VBA SaveAs2时文件名中出现的问号

2 年前

DinahMoeHumm · 检查一下单词。文档是邮件合并,如果是,请删除邮件合并

2 年前

Rahilly · 如何使用Word VBA将<eq></eq>标记之间的文本转换为公式?

2 年前

Al Grant · 在VBA中编辑HTML

2 年前