Warning: file_get_contents(/data/phpspider/zhask/data//catemap/1/vb.net/15.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181

Warning: file_get_contents(/data/phpspider/zhask/data//catemap/4/sql-server-2008/3.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
用VB.NET OpenXML读取Excel文件_Vb.net_Openxml_Vb.net 2010_Openxml Sdk_Xmlreader - Fatal编程技术网

用VB.NET OpenXML读取Excel文件

用VB.NET OpenXML读取Excel文件,vb.net,openxml,vb.net-2010,openxml-sdk,xmlreader,Vb.net,Openxml,Vb.net 2010,Openxml Sdk,Xmlreader,我一直在寻找一种有效读取Excel文件的方法,并找到了以下用于解析和读取大型电子表格的代码: 公共子处理() 问题是如何将reader.GetText()指定给字符串。传递的值是一个小整数,而实际单元格值是一个字符串。messagebox为每个填充的单元格触发一次,这告诉我代码正在查找包含值的单元格;但是,我无法提取单元格的实际“内部文本” 想法?建议?我找到了答案;我需要引用sharedstringtable并从中取出内部文本: Dim strDoc As String = "C:\D

我一直在寻找一种有效读取Excel文件的方法,并找到了以下用于解析和读取大型电子表格的代码:

公共子处理()

问题是如何将reader.GetText()指定给字符串。传递的值是一个小整数,而实际单元格值是一个字符串。messagebox为每个填充的单元格触发一次,这告诉我代码正在查找包含值的单元格;但是,我无法提取单元格的实际“内部文本”


想法?建议?

我找到了答案;我需要引用sharedstringtable并从中取出内部文本:

    Dim strDoc As String = "C:\Documents and Settings\Practice.xlsx"
    Dim txt As String

    Dim spreadsheetDocument As SpreadsheetDocument = spreadsheetDocument.Open(strDoc, False)

    Dim workbookPart As WorkbookPart = spreadsheetDocument.WorkbookPart
    Dim shareStringPart As SharedStringTablePart = workbookPart.SharedStringTablePart


    For Each Item As SharedStringItem In shareStringPart.SharedStringTable.Elements(Of SharedStringItem)()

        MessageBox.Show(Item.InnerText)

    Next

我找到了答案;我需要引用sharedstringtable并从中取出内部文本:

    Dim strDoc As String = "C:\Documents and Settings\Practice.xlsx"
    Dim txt As String

    Dim spreadsheetDocument As SpreadsheetDocument = spreadsheetDocument.Open(strDoc, False)

    Dim workbookPart As WorkbookPart = spreadsheetDocument.WorkbookPart
    Dim shareStringPart As SharedStringTablePart = workbookPart.SharedStringTablePart


    For Each Item As SharedStringItem In shareStringPart.SharedStringTable.Elements(Of SharedStringItem)()

        MessageBox.Show(Item.InnerText)

    Next
这篇文章似乎是这样的。([link]我的问题,尽管我仍然需要看看我正在尝试的东西是否可以用OpenXmlReader完成。任何指导都将不胜感激!这篇文章出现了。([link]我的问题,尽管我仍然需要看看我正在尝试的东西是否可以用OpenXmlReader完成。任何指导都将不胜感激!