如何取出Excel数据库中Sheet的名称来
编号：QA003703
建立日期: 2000年12月25日 最后修改日期：2000年12月28日
所属类别：
Arthur Gao:
请问:使用Excel的什么属性或方法来取出Excel数据库中Sheet的名称来,即:我只关心数据库名称,而不知*.xls中sheet的名字和数目,我想通过其属性或方法循环来读取.如何实现？
回答:
Workbook对象的Sheets属性包括所有Sheet的信息。你可以这样：
For Each Sheet In ThisWorkbook.Sheets
MsgBox Sheet.Name
Next
Arthur Gao问：
我将你们提供的方法写进实例中却出现了几处错误，请指正并对我的实例进行修改，谢谢。
Private Sub Form_Load()
Dim ex As Excel.Application
Dim exwbook As Excel.Workbook
Dim exsheet As Excel.Worksheet
Dim sheet As Excel.Worksheet
Set ex = CreateObject("Excel.Application")
'ex.Visible = True
Set exwbook = ex.Workbooks.Open("D:\book1.xls")
Form1.AutoRedraw = True
For Each sheet In ThisWorkbook.Sheets '错误提示：（实时错误'1004'：对象'ThisWorkbook'的方法'_Global'失败）,若写成exwbook.sheets也不成。
Print sheet.name '注意：提示没有sheet的Name属性
Next
exwbook.Close
End Sub
答：
把出错的那句改为
For Each sheet In exwbook.Worksheets
我原来给出的是Excel的VBA的例子，在VB中要略做修改。
相关问题：
QA001313 "如何知道数据库中包括哪些表和字段"
此问题由李海回答。
| |
|
|
| |
|
|
