如何从一个 xls 文件中读取数据并将其写入另一个 xls 文件答案

【问题标题】：How to read data from one xls file and write it into another xls file如何从一个 xls 文件中读取数据并将其写入另一个 xls 文件
【发布时间】：2011-06-16 15:15:25
【问题描述】：

我有一张名为“Electricity”的 dev.xls 文件。在我的 vb.net winform 应用程序中，我想读取所有这些数据并将其写入另一个 xls 文件（Test.xls），工作表名称为“Electricity_Processed”。

寻找一种不使用其他 dll 或 Interop 的方法来做到这一点

有什么建议吗？

【问题讨论】：

这不是您第三次或第四次问大致相同的问题吗？对您之前的问题的这个答案没有让您继续前进吗？ stackoverflow.com/questions/6308205/…
有没有我可以在不使用其他 dll 或 Interop 的情况下解决这个问题
我的意思是逐个单元格读取并写入相应的单元格。

标签： .net vb.net

【解决方案1】：

您可以使用OleDb，它支持Excel文件的读写。 Google with the keywords OleDb and Excel has tons of results，还有一篇关于这个主题的 Microsoft 知识库文章：

How To Use ADO.NET to Retrieve and Modify Records in an Excel Workbook With Visual Basic .NET

基本上，您可以使用简单的SELECT 语句读取数据，使用INSERT 语句写入数据。 Excel 工作表表示为表格，因此您可以使用CREATE TABLE 创建您的Electricity_Processed 工作表。

【讨论】：

【解决方案2】：

更严肃的答案是使用后期绑定。但是后期绑定需要在运行程序的系统上安装 MS Excel。：

Option Strict Off

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim xl As Object = CreateObject("Excel.Application")
    xl.visible = True
    xl.Workbooks.Open("C:\junk\junk.xls")
    Dim sht1 As Object = xl.Sheets(1) '1-based
    Dim rng As Object = sht1.Range("A2", "A2") 'get the cell
    MsgBox(rng.Value) 'show the value
    Dim rng2 As Object = sht1.Range("B3", "B3") 'get the cell
    rng2.Value = "Hello" 'set the value
  End Sub
End Class

【讨论】：

【解决方案3】：

没有 DLL 或互操作？我想您可以编写自己的 XLS 解析器 :-) XLS 格式在此处描述：http://www.wotsit.org/list.asp?fc=6

【讨论】：