' Imports 陈述式
' 匯入在所参考的专案和组件中定义的命名空间( Namespace ) 或程式设计项目。
Imports System.Runtime.InteropServices
' System.Runtime.InteropServices 命名空间
' 提供各种支援COM Interop 和平台叫用服务的成员。与Unmanaged 程式码互通。
PublicClass
Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles
' 取得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
' 取得Excel 档案中所有Sheet 名称
Dim ShtAry As Object = Get_Xls_Sht("C:/Book1.xls")
For Each Sht As Object In
MessageBox.Show(Sht)
Next
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="
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
EndClass
' 註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) = 阵列第一个元素