VBA不打开外部工作簿时获取指定工作表名

987654321

条件：        1、不打开数据源工作簿        
        2、获取数据源1工作簿中Sheet1工作表的名称        
          即:行政部（这个在不同工作簿中，这个名称是不同的，但都是sheet1这张表
               
               
求解决方案，谢谢！               

limonet

openschema(20)

蓝桥玄霜

恐怕没有真正不打开工作簿而能获取工作表名的。
常用的GetObject可在后台打开。

ykcbf1100

此题稍有点冷门。

ykcbf1100

参与一下。。。

1. Sub ykcbf()   '//2024.5.31
   
2.     Application.ScreenUpdating = False
   
3.     p = ThisWorkbook.Path
   
4.     f = p & "\数据源1.xlsx"
   
5.     Set wb = Workbooks.Open(f, 0)
   
6.     For i = 1 To wb.Sheets.Count
   
7.         If i = 1 Then fn = wb.Sheets.Item(i).Name
   
8.     Next
   
9.     wb.Close 0
   
10.     Application.ScreenUpdating = True
    
11.     MsgBox "Sheet1表的表名为：" & fn
    
12. End Sub
    
13. 
    

复制代码

987654321

ykcbf1100 发表于 2024-5-31 16:51
此题稍有点冷门。

谢谢 ykcbf1100, 我想要弹出来的是“行政部”这样的表名，

lss001

…………………………

feilanga

没问题啊。分表你得先改名啊

lss001

Sub 不打开工作薄获取工作表名()
    Set catalog = CreateObject("ADOX.Catalog")
    ph = ActiveWorkbook.Path & "\数据源1.xlsx"
   catalog.ActiveConnection = "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties='Excel 12.0;HDR=Yes';Data Source=" & ph
    shName1 = catalog.Tables(0).Name '第一个工作表名
End Sub

ykcbf1100

987654321 发表于 2024-5-31 17:14
谢谢 ykcbf1100, 我想要弹出来的是“行政部”这样的表名，

行政部是在本工作簿中的表，不是源数据1工作簿中的表。这个你没搞清楚？
源数据1工作簿中有什么表，你自己也没搞清楚吧，真是服了你了。