根据工作表名称查找并打开工作簿

liyulan

各位大神

工作表名称查找并打开该工作簿，怎么写代码啊。在网上找了很久没有找到。

1. 根据工作表名称查找工作簿，然后打开；
2. 查找位置：在代码所在的工作簿目录下。

NadrsSaber

1. Option Explicit
   
2. 
   
3. Sub test()
   
4.     Dim str$
   
5.     Dim ws As Worksheet
   
6.     Set ws = ActiveSheet
   
7.     str = ThisWorkbook.Path & "" & ws.Name & ".xlsx"
   
8.     If Len(Dir(str)) = 0 Then
   
9.         MsgBox "没有找到文件!"
   
10.     Else
    
11.         Workbooks.Open str
    
12.     End If
    
13. End Sub

复制代码

liyulan

NadrsSaber 发表于 2020-2-25 16:27

运行了，但是有以下问题：
20200202工作簿明明是存在的，但是显示消息框“没有找到文件！”

3190496160

Sub 打开文件()
Application.ScreenUpdating = False
    Set sh = ThisWorkbook.ActiveSheet
    mc = Trim(sh.name) & ".xlsx"
    f = Dir(ThisWorkbook.Path & "\" & mc)
    If f = "" Then MsgBox "未找到文件": Exit Sub
    Set wb = Workbooks.Open(ThisWorkbook.Path & "\" & f, 0)
Application.ScreenUpdating = True
   
End Sub

kokokeke001

是不是后缀名问题，xlsx改成xls

liulang0808

liyulan 发表于 2020-2-25 16:35
运行了，但是有以下问题：
20200202工作簿明明是存在的，但是显示消息框“没有找到文件！”

str = ThisWorkbook.Path & "\" & ws.Name & ".xlsx"

NadrsSaber

liyulan 发表于 2020-2-25 16:35
运行了，但是有以下问题：
20200202工作簿明明是存在的，但是显示消息框“没有找到文件！”

Set ws = ActiveSheet
当前的激活表

liyulan

liulang0808 发表于 2020-2-25 16:46
str = ThisWorkbook.Path & "\" & ws.Name & ".xlsx"

可以正常运行了，谢谢版主。