使用 EPPlus 将制表符分隔文件导出到 Excel

Question

我正在尝试将包含两列的制表符分隔文件导出到 Excel。我找不到说明如何使用 EPPlus 执行此操作的示例。我见过的大多数示例都与 LoadFromDatabase 有关。我的猜测是读取文件并将数据存储为数组或数组列表，然后执行 LoadFromArrays。

文件中的数据如下所示：

RFID评论 ABC245 设备添加到系统 BBT988 未找到设备 GBN471 设备售出

以下是我尝试编写代码来执行导出到 Excel。目前，我遇到了铸造错误并试图解决它。我正在寻找的是获得有关编写代码以执行操作的正确和有效方式的反馈。提前致谢！

Dim fLoc As String
fLoc = Server.MapPath(".")
Dim tFile As StreamReader
tFile = File.OpenText(fileLoc)
Dim writeLn As String
writeLn = tFile.ReadToEnd
Response.Write(writeLn)

fLoc = Server.MapPath(".") & "/maindirectory" & param1 & param2
tFile = File.OpenText(fileLoc)
writeLn = ""
writeLn = tFile.ReadToEnd 
writeLn = RTrim(writeLn)

Dim aList As New ArrayList
aList.Add(writeLn)

Dim attachment as String
attachment = "attachment; filename=" + "sheet.xlsx"
Dim xlPack As ExcelPackage = New ExcelPackage()
Dim ws As ExcelWorksheet = xlPack.Workbook.Worksheets.Add(sheet)
Dim ms As MemoryStream = New MemoryStream()

ws.Cells(1, 1).LoadFromArrays(aList)
xlPack.SaveAs(ms)
ms.WriteTo(Response.OutputStream)

Answer 1

使用ExcelTextFormat解析文件，如果需要，这还允许为column/cell格式化设置一些原始数据类型。例如，这个制表符分隔的数据：

Header 1    Header 2
0   03/22/2017 18:03
1   03/23/2017 18:03
2   03/24/2017 18:03
3   03/25/2017 18:03
4   03/26/2017 18:03

生成 Excel 文件：

Dim excelTextFormat = New ExcelTextFormat()
excelTextFormat.Delimiter = vbTab
excelTextFormat.DataTypes = New eDataTypes() _
{
    eDataTypes.Number, eDataTypes.DateTime
}

Using package = New ExcelPackage(New FileInfo(output))
    package.Workbook.Worksheets.Add("sheet1")
    Dim ws = package.Workbook.Worksheets(1)
    ws.Column(2).Style.Numberformat.Format = "mm/dd/yyyy"
    ws.Cells("A1").LoadFromText(input, excelTextFormat)
    package.Save()
End Using

输出：

使用 EPPlus 将制表符分隔文件导出到 Excel

Exporting tab delimited file to Excel with EPPlus

vb.net

arrays

excel

epplus