感谢您使用微软产品。

对于您的这个需求，您可以利用自动化操作Excel来实现。

请参考以下代码：

Private Sub Command1_Click()

       Dim ExcelApp As Object

       Dim sheet As Object

       Set ExcelApp = CreateObject("excel.application")

       'ExcelApp.Visible = True

       

       ExcelApp.Workbooks.Open ("c:\1.xls")

       For Each sheet In ExcelApp.Workbooks("1.xls").Worksheets

        MsgBox sheet.Name

       Next

       

       ExcelApp.Quit

  

       Set ExcelApp = Nothing

       Set sheet = Nothing

       End

End Sub

关于Excel自动化操作的更多例程，请参考以下文章：

ID: Q253235    FILE: OFFAUTMN.EXE Discusses Office 97 and 2000 Automation    [OffDev]

http://support.microsoft.com/support/kb/articles/q253/2/35.asp

 

-微软全球技术中心  桌面产品技术支持

立即参加微软认证的"最有价值专家"评选，赢取价值万元以上的丰富奖品！详情参见(http://www.csdn.net/expert/Topic/456/456919.shtm)

本贴子以"现状"提供且没有任何担保，同时也没有授予任何权利。具体事项可参见使用条款(http://support.microsoft.com/directory/worldwide/zh-cn/community/terms_chs.asp)。