VB控制Excel工作薄实例精选一

最新推荐文章于 2020-12-14 18:30:07 发布

置顶

东方之珠

最新推荐文章于 2020-12-14 18:30:07 发布

阅读量1.5k

点赞数 1

分类专栏：基础知识文章标签： vb Excel 实例 basic

本文链接：https://blog.csdn.net/chenjl1031/article/details/8876284

版权

本文介绍了如何使用VB来控制Excel，包括获取工作薄中Sheet表的名称和数量，删除指定Sheet表，以及确定Sheet表内有效数据的行数和列数。

摘要由CSDN通过智能技术生成

1、获取Excel工作薄所有Sheet表名称、Sheet表的个数、删除指定Sheet表：

'先引用对象库：Microsoft Excel 11.0 Object Library
Option Explicit
Dim xlExcel As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet

Private Sub Command1_Click()
        On Error GoTo Errhandler
        CommonDialog1.Filter = "Excel(*.xls)|*.xls|AllFile(*.*)|*.*"
        CommonDialog1.FilterIndex = 1
        CommonDialog1.ShowOpen
        Set xlExcel = New Excel.Application
        xlExcel.Workbooks.Open CommonDialog1.FileName
        Set xlBook = xlExcel.Workbooks(CommonDialog1.FileTitle)
        Application.Visible = False
        Application.DisplayAlerts = False '不提示保存对话框
        Debug.Print xlBook.Worksheets.Count 'Sheet表的个数
        For Each xlSheet In xlBook.Worksheets
           Set xlSheet = xlBook.Worksheets(xlSheet.Name)
           Debug.Print xlSheet.Name '列出所有Sheet表
           If xl