VB.Net获取Excel中Sheet的名称

' Imports 陈述式

' 匯入在所参考的专案和组件中定义的命名空间( Namespace ) 或程式设计项目。

Imports System.Runtime.InteropServices

' System.Runtime.InteropServices 命名空间

' 提供各种支援COM Interop 和平台叫用服务的成员。与Unmanaged 程式码互通。

Public Class Form1

Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click

' 取得 Excel 档案中第一个 Sheet 名称

MessageBox.Show(Get_Xls_1st_Sht("C:/Book1.xls"))

End Sub

Private Sub Button2_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button2.Click

' 取得 Excel 档案中所有 Sheet 名称

Dim ShtAry As Object = Get_Xls_Sht("C:/Book1.xls")

For Each Sht As Object In ShtAry

MessageBox.Show(Sht)

End Sub

Private Function Get_Xls_Sht(ByVal XlsFile As String) As Object ' 取得 Excel 档案中第一个 Sheet 名称

Dim cnXls As Object = Activator.CreateInstance(Type.GetTypeFromProgID("ADODB.Connection"))

cnXls.Open("Provider=MSDASQL.1;DRIVER={Microsoft Excel Driver (*.xls)};DBQ=" & XlsFile)

Get_Xls_Sht = cnXls.OpenSchema(4).GetRows(-1, 1, 2) ' 传回一个二维阵列。

Marshal.ReleaseComObject(cnXls)

End Function

Private Function Get_Xls_1st_Sht(ByVal XlsFile As String) As String ' 取得 Excel 档案中所有 Sheet 名称

Dim cnXls As Object = Activator.CreateInstance(Type.GetTypeFromProgID("ADODB.Connection")) ' 註1

cnXls.Open("Provider=MSDASQL.1;DRIVER={Microsoft Excel Driver (*.xls)};DBQ=" & XlsFile) ' 註2

Get_Xls_1st_Sht = cnXls.OpenSchema(4).GetRows(-1, 1, 2)(0, 0) ' 註3

Marshal.ReleaseComObject(cnXls) ' 释放 COM 物件所使用的资源

End Function

End Class

' 註1 :

' ADODB.Connection 为 ADO 连线物件之 ProgID

' Type.GetTypeFromProgID 方法: 根据 ProgID 取得物件的型别

' 註2 :

' Open 方法 (ADO 连接) : 开启对资料源的连接。

' 语法: connection.Open ConnectionString

' 註3 :

' OpenSchema 方法 (ADO) : 从提供者取得资料库结构描述资讯。

' 语法: recordset = connection.OpenSchema(QueryType)

' 4 = adSchemaColumns

' GetRows 方法 (ADO) : 从 Recordset 物件中取得多个资料录，将其放入阵列中。

' 语法: Array = recordset.GetRows(Rows, Start, Fields)

' Rows 选择性参数。表示要取得资料录个数的 Long 运算式。

' -1 = adGetRowsRest (预设值)。

' Start 选择性参数。评定 GetRows 动作应该开始之资料录书籤。

' 1 = adBookmarkFirst 由第一笔资料录开始。

' Fields 选择性参数。表示单一资料栏名称或序数位置，或资料栏名称阵列或序数位置号码。

' 2 = Table_Name

' GetRows 会传回一个二维阵列。

' (0, 0) = 阵列第一个元素

VB.Net获取Excel中Sheet的名称相关推荐

获取Excel中sheet页的name，并对不同sheet 页进行处理
1.梳理流程思路首先导入需要调用的模块其次,打开工作簿,获取工作簿的sheet页名字读取不同sheet页,做不同的处理将处理完成的结果,保存下来 2.具体代码实现 import pandas ...
vb.net获取服务器中所有数据库名称显示在list,vb listview显示数据库内容,该怎么解决...
当前位置:我的异常网» VB » vb listview显示数据库内容,该怎么解决 vb listview显示数据库内容,该怎么解决 www.myexceptions.net 网友分享于:2013- ...
使用vba获取excel每个sheet页的名称，并在目录页生成超级链接
使用 VBA 获取 Excel 中每个工作表的名称并在目录页中生成超级链接的步骤如下: 打开 Excel 工作簿,打开 VBA 编辑器.在 VBA 编辑器中,单击"插入"菜单,然后 ...
C# 获取Excel中的合并单元格
C# 获取Excel中的合并单元格我们在制作表格时,有时经常需要合并及取消合并一些单元格.在取消合并单元格时需要逐个查找及取消,比较麻烦.这里分享一个简单的方法来识别Excel中的合并单元格,识别这 ...
如何在没有导入excel的情况下获取excel中的测试数据
如何在没有导入excel的情况下获取excel中的测试数据 Set oExcel = CreateObject("excel.application") '创建excel对象 oE ...
Excel中sheet名字最大长度的坑
今天业务说导出一个多sheet的功能报错了: java.lang.RuntimeException: 导出数据出现异常:The workbook already contains a sheet na ...
java筛选表格,java怎么获取excel中的数据_java筛选excel数据
你好! 请教你个问题 java web程序如何将读取的excel表格里的数据插入到数据库,并显示在JSP页面上? 主要用poi.jar 包.包含两jar就可以了:poi-3.16.jar.poi-oo ...
Asp.net C# 遍历Excel中的表格名称
Asp.net C# 遍历Excel中的表格名称 string strConn = "Provider=Microsoft.Jet.OLEDB.4.0;" + "Data ...
自动生成excel中sheet目录导航
自动生成excel中sheet目录导航: 1.alt+f11 2.插入-模版 Sub mulu() On Error GoTo Tuichu Dim i As Integer Dim ShtCount ...

VB.Net获取Excel中Sheet的名称

VB.Net获取Excel中Sheet的名称相关推荐

最新文章

热门文章