vba 打开指定单元格里的文件夹和文件

dreamertina

小白请教，需求打开文件夹和文件（最好是能打开指定的sheet)
假如E盘“3年1班”文件夹中有《张丽丽.xlsx》这个文件(包含两个sheet：封面和简介）

我用了 编辑宏的方法

Sub 学生成绩()
Shell "explorer.exe " & "E:\3年1班", vbNormalFocus
Workbooks.Open "E:\3年1班\张丽丽.xlsx", vbNormalFocus
End Sub

现在遇到的问题是
1、我交换shell和workbooks这两行，都是打开文件夹在Excel文件的上面，能不能让Excel文件打开在文件夹的上面便于查看？

2、打开的张丽丽-封面sheet页，能不能指定打开简介sheet页？

3、【最困恼的问题】不愿意每次都去修改宏。
能不能把 “E:\3年1班” 存在C2单元格，“E:\3年1班\张丽丽.xlsx”存在D2。
C2，D2内容是可以变动了但都是路径，运行宏就能打开C2指定的文件夹，D2指定的文件。

4、D列存在多路径，如D3=E:\3年1班\王丽丽.xlsx，D4=E:\3年1班\李丽丽.xlsx，能不能一次性都打开？

请问要如何修改，谢谢。翻了些帖子，感觉好多句，实在看不懂。

opiona

你已有文件路径，干嘛还打开文件夹呢！？

1. <blockquote>Sub 学生成绩()

复制代码

dreamertina

opiona 发表于 2018-7-20 06:19
你已有文件路径，干嘛还打开文件夹呢！？

谢谢您的回复。
因为《张丽丽.xlsx》中会写包括了哪些文档或者压缩包等，我要打开文件夹看数量是否齐全了。

dreamertina

周末学习了一下，解决了问题3.
Sub 打开指定单元格内路径()
'
' 打开指定单元格内路径 宏
'
Dim dkwjj As Range
Set dkwjj = Range("C2")

Dim dkwj As Range
Set dkwj = Range("D2")

Shell "explorer.exe " & dkwjj, vbNormalFocus
Workbooks.Open (dkwj), vbNormalFocus


End Sub


或者
Sub 打开指定单元格内路径()
'
' 打开指定单元格内路径 宏
'
Dim dkwjj As Range
Set dkwjj = [C2]

Dim dkwj As Range
Set dkwj = [D2]

Shell "explorer.exe " & dkwjj, vbNormalFocus
Workbooks.Open (dkwj), vbNormalFocus


End Sub

dreamertina

百度问答查到 问题4
Dim fn
For Each fn In Range("D2:D9").Cells
    If fn<>"" Then WorkBooks.Open(fn)
Next fn

baihushan

感谢分享，学习一下