vba下,如何在不打开文件的情况下,读取excel的工作表的名称,帮我写个函数也行啊

如题... 如题 展开
 我来答
百度网友e1af404
2015-03-09 · TA获得超过1.3万个赞
知道大有可为答主
回答量:1.1万
采纳率:59%
帮助的人:4058万
展开全部
不打开是不行的,至少得用代码打开。
sub test()
dim mary(1 to 1024,1 to 1),k as long,myFile as string
dim wb as workbook,sh as workSheet
myFile="D:\我的Excel文件.xls" '注:你文件的类型,可能是.xlsm或.xlsx格式,自行相应改动本行
k=0
set wb=workbooks.open(myfile)
for each sh in wb.worksheets
k=k+1
mary(k,1)=sh.name
next
wb.close 0
with activesheet
.[a1].resize(k,1)=mary
end with
end sub
BAIXINGR

2015-03-09 · TA获得超过3万个赞
知道大有可为答主
回答量:2.9万
采纳率:89%
帮助的人:8823万
展开全部
Sub AdoTs()

Dim cat
Dim cnn
Dim c

Set cnn = CreateObject("ADODB.Connection")
Set cat = CreateObject("ADOX.Catalog")
cnn.Open "provider=microsoft.jet.oledb.4.0;extended properties='Excel 8.0';Data Source = " _
& ThisWorkbook.Path & "\abc.xls"

Set cat.ActiveConnection = cnn
For Each c In cat.Tables
Debug.Print c.Name
Next c
Set c = Nothing
Set cat.ActiveConnection = Nothing
Set cat = Nothing
Set cnn = Nothing

End Sub
用这个代码试下
追问
你这个是不是在access下的,我要excel下的,最好在单元格中输出
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式