vba如何打开指定文件夹，不是文件，是文件夹

yyf2001t · 发表于 2022-12-13 16:11

zhw79 发表于 2022-12-13 16:00
对话框打开前加着2句
ChDrive Mid(ThisWorkbook.Path, 1, 1)
ChDir ThisWorkbook.Path

Sub 打开当前合同文件夹()

Application.ScreenUpdating = False

Dim str, pathname1, pathname2 'As String

str = ActiveSheet.Name

a = ActiveSheet.Range("e4")

pathname1 = ThisWorkbook.Path & "\" & a & str

If str <> "合同模板" And a <> "" Then

ChDrive Mid(ThisWorkbook.Path, 1, 1)
ChDir ThisWorkbook.Path
Shell "Explorer.exe pathname1", vbNormalFocus

End If

Application.ScreenUpdating = True '开启屏幕刷新

End Sub

是放到上面代码的位置吗？没好用

yyf2001t · 发表于 2022-12-13 16:12

zhw79 发表于 2022-12-13 16:00
对话框打开前加着2句
ChDrive Mid(ThisWorkbook.Path, 1, 1)
ChDir ThisWorkbook.Path

没好用，我把这两行代码放到了 SHELL语句的前面对吧。

yyf2001t · 发表于 2022-12-14 07:45

大神们，有知道什么怎么写这个代码吗？我写的那个有什么问题吗？

zhw79 · 发表于 2022-12-14 08:26

Shell "Explorer.exe " & pathname1, vbNormalFocus

yyf2001t · 发表于 2022-12-14 08:33

zhw79 发表于 2022-12-14 08:26
Shell "Explorer.exe " & pathname1, vbNormalFocus

不好用，打开的是文档文件夹。。。

yyf2001t · 发表于 2022-12-14 08:36

我把打开文件夹的代码填加进去，重新发一下附件。大家看看什么原因。。。

zhw79 · 发表于 2022-12-14 08:43

zhw79 · 发表于 2022-12-14 08:44

本帖最后由 zhw79 于 2022-12-14 08:47 编辑

你还不明白吗，，你把变量当文字引号进去了，你就不能复制这段代码替换啊
Shell "Explorer.exe " & pathname1, vbNormalFocus

yyf2001t · 发表于 2022-12-14 09:05

本帖最后由 yyf2001t 于 2022-12-14 09:06 编辑

zhw79 发表于 2022-12-14 08:44
你还不明白吗，，你把变量当文字引号进去了，你就不能复制这段代码替换啊
Shell "Explorer.exe " & pathna ...

我刚才改过了，没成功，所以先回复了你。
刚才看到你最后回复的，我又复制粘贴进去，又好了。。。崩溃了。谢谢啦

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

[求助] vba如何打开指定文件夹，不是文件，是文件夹

评分