VB遍历EXCEL中的sheet_金钟常鸣

个人资料

微博

正文字体大小：大中小

VB遍历EXCEL中的sheet

(2019-02-19 11:14:20)

标签：

分类： VB.NET

Dim xlApp As Object '定义excel应用程序

Dim printBOOK As Object '定义工作簿

xlApp = CreateObject("Excel.Application") '创建Excel应用程序对象

printBOOK = xlApp.workbooks.open(“D:\123.xlsx”)

For Each Sht In printBOOK.Worksheets

If Sht.Name = "data" Then

printBOOK.Sheets("data").Delete

msgbox( "正在删除旧data页...")

End If

For Each Sht In printBOOK.Worksheets

msgbox( "sheet名称为：" & Sht.Name )

阅读┊ 收藏 ┊ 喜欢 ▼ ┊打印┊举报/Report