VB6.0 获取Excel文件工作表Sheet的名称

获取Excel文件工作表Sheet的名称

1     '产生Excel文档
 2     Dim xlapp, xlbook As Object
 3     Dim sSheetName As String
 4     Set xlapp = CreateObject("Excel.Application")  'Excel对象
 5     Set xlbook = xlapp.Workbooks.Open(Me.txtFileName.Text) '打开已经存在的EXCEL文件
 6     xlapp.Visible = False '设置EXCEL对象可见（或不可见）
 7     xlapp.DisplayAlerts = False
 8     sSheetName = xlbook.Worksheets(1).Name '获取工作表的名称
 9     
10     '释放资源
11     xlbook.Close
12     xlapp.Quit      

如果您看了本篇博客,觉得对您有所收获，请点击右下角的

[推荐]

如果您想转载本博客，

请注明出处

如果您对本文有意见或者建议，欢迎留言

感谢您的阅读，请关注我的后续博客