如何使用vb.net获取spreedsheet名称 [英] How to get the spreedsheet Names using vb.net

问题描述

朋友们，我想使用vb.net获取excel或任何其他文件的工作表名称。我写了



这里的代码是

Hi friends, I want to get the sheet names of excel or any other file using vb.net . I wrote

code here is

Dim excel As String = frmImportFormBSurveyedData.txtFilePath.Text

      Dim xl As New Excel.Application

      Dim xlsheet As Excel.Worksheet
      Dim xlwbook As Excel.Workbook

      xlwbook = xl.Workbooks.Open(excel)
      xlsheet = xlwbook.Sheets.Item(1)

      For Each sht In xlwbook.Worksheets
          lsbSheetName.Items.Add(sht.Name)


      Next

      xl.ActiveWorkbook.Close(False, Excel)
      xl.Quit()

      xlwbook = Nothing
      xl = Nothing

这是工作文件，但任何其他方式来获取工作表名称使用vb.net



请有人帮助我。



高级谢谢....

It's working file but any other way to get the sheet names using vb.net

please anyone help me.

advanced thanks....

推荐答案

阅读和使用OLEDB编写Excel [ ^ ]解释了如何做到这一点。这篇文章是C＃，但它应该很容易翻译成VB.NET。

Reading and Writing Excel using OLEDB[^] explains how to do it. The article is C# but it should be easy to translate to VB.NET.

tyr这个代码在vb.net中

tyr This code in vb.net

<pre lang="vb">Private Sub GetExcelSheetNames(ByVal fileName As String)
    Dim strconn As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & 
          fileName & ";Extended Properties=""Excel 12.0 Xml;HDR=YES"";"
    Dim conn As New OleDbConnection(strconn)

    conn.Open()

    Dim dtSheets As DataTable = 
              conn.GetOleDbSchemaTable(OleDbSchemaGuid.Tables, Nothing)
    Dim listSheet As New List(Of String)
    Dim drSheet As DataRow

    For Each drSheet In dtSheets.Rows
        listSheet.Add(drSheet("TABLE_NAME").ToString())
    Next

    //show sheetname in textbox where multiline is true
    For Each sheet As String In listSheet
        TextBox1.Text = TextBox1.Text & sheet & vbNewLine
    Next

    conn.Close()

End Sub

这篇关于如何使用vb.net获取spreedsheet名称的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！