CSV（Comma-Separated Values）是以逗号间隔的文本文件，此类文件以纯文本形式存储表格数据。通常，CSV文件可以用MS Excel打开。

文本将介绍如何使用Spire.XLS将如下的CSV文件转换为Excel文件，PDF文件，以及导出数据到Datatable。

转CSV到Excel

//初始化Workbook对象
Workbook wb = new Workbook();
//加载CSV文件
wb.LoadFromFile("SampleCSVFile.csv", ",",1,1);
//将第一个工作表命名为“导入Excel”
wb.Worksheets[0].Name = "导入Excel";
//转换为Excel文件
wb.SaveToFile("toExcel.xlsx", ExcelVersion.Version2013);

'初始化Workbook对象
Dim wb As New Workbook()
'加载CSV文件
wb.LoadFromFile("SampleCSVFile.csv", ",", 1, 1)
'将第一个工作表命名为“导入Excel”
wb.Worksheets(0).Name = "导入Excel"
'转换为Excel文件
wb.SaveToFile("toExcel.xlsx", ExcelVersion.Version2013)

转CSV到PDF

//初始化Workbook对象
Workbook wb = new Workbook();
//加载CSV文件
wb.LoadFromFile("SampleCSVFile.csv", ",",1,1);
//将一个工作表的内容转换到一页PDF上
wb.ConverterSetting.SheetFitToPage = true;
//自动调整列宽使适应文字长度
Worksheet sheet = wb.Worksheets[0];
for (int i = 1; i < sheet.Columns.Length; i++)
    sheet.AutoFitColumn(i);
//保存为PDF文件
sheet.SaveToPdf("toPDF.pdf");

'初始化Workbook对象
Dim wb As New Workbook()
'加载CSV文件
wb.LoadFromFile("SampleCSVFile.csv", ",", 1, 1)
'将一个工作表的内容转换到一页PDF上
wb.ConverterSetting.SheetFitToPage = True
'自动调整列宽使适应文字长度
Dim sheet As Worksheet = wb.Worksheets(0)
For i As Integer = 1 To sheet.Columns.Length - 1
  sheet.AutoFitColumn(i)
'保存为PDF文件
sheet.SaveToPdf("toPDF.pdf")

将CSV数据导入Datatable

private void btnImport_Click(object sender, EventArgs e)
    //创建OpenFileDialog实例
    OpenFileDialog dialog = new OpenFileDialog();
    //设置过滤
    dialog.Filter = "CSV document(*.csv)|*.csv";
    //显示打开文件对话框
    DialogResult result = dialog.ShowDialog();
    if (result == DialogResult.OK)
        //获取CSV文件名
        string csvFile = dialog.FileName;
        //加载CSV文档到Workbook对象
        Workbook wb = new Workbook();
        wb.LoadFromFile(csvFile,",");
        //将第一个工作表导出为datatable
        System.Data.DataTable datatable = wb.Worksheets[0].ExportDataTable();
        //在DataGridViewer中显示数据
        this.dataGridView1.DataSource = datatable;
VB.NET
Private Sub btnImport_Click(sender As Object, e As EventArgs)
  '创建OpenFileDialog实例
  Dim dialog As New OpenFileDialog()
  '设置过滤
  dialog.Filter = "CSV document(*.csv)|*.csv"
  '显示打开文件对话框
  Dim result As DialogResult = dialog.ShowDialog()
  If result = DialogResult.OK Then
    '获取CSV文件名
    Dim csvFile As String = dialog.FileName
    '加载CSV文档到Workbook对象
    Dim wb As New Workbook()
    wb.LoadFromFile(csvFile, ",")
    '将第一个工作表导出为datatable
    Dim datatable As System.Data.DataTable = wb.Worksheets(0).ExportDataTable()
    '在DataGridViewer中显示数据
    Me.dataGridView1.DataSource = datatable
  End If
End Sub
邮箱：sales@e-iceblue.com   |  电话：028-81705109   |    微博：冰蓝科技   |   EN-US
技术支持 QQ：2100065966  2790765778  2181348176   |   在线编辑/WebAPI QQ：1902691957   |   购买咨询 QQ：3312989436

地址：成都市武侯区 九兴大道14号 凯乐国际3栋9楼