? vb.net亚博足球娱乐场注册--任意三数字加yabo.com直达官网之C#,VB.NET 如何将Excel转换为Text 亚博足球娱乐场注册,亚博娱乐全天彩,亚博官网赢钱不给
VB.net 2010 视频亚博足球娱乐场注册--任意三数字加yabo.com直达官网 VB.net 2010 视频亚博足球娱乐场注册--任意三数字加yabo.com直达官网 VB.net 2010 视频亚博足球娱乐场注册--任意三数字加yabo.com直达官网
SQL Server 2008 视频亚博足球娱乐场注册--任意三数字加yabo.com直达官网 c#入门经典亚博足球娱乐场注册--任意三数字加yabo.com直达官网 Visual Basic从门到精通视频亚博足球娱乐场注册--任意三数字加yabo.com直达官网
当前位置:
首页 > 编程开发 > VBnet >
  • vb.net亚博足球娱乐场注册--任意三数字加yabo.com直达官网之C#,VB.NET 如何将Excel转换为Text

  • 2019-06-19 16:28 来源:未知

在工作中,有时我们需要转换文档的格式,之前已经跟大家介绍过了如何将Excel转换为PDF。今天将与大家分享如何将Excel转换为Text。这次我使用的依然是免费版的Spire.XLS for .NET组件。

Free Spire.XLS for .NET组件可以使开发人员在任何.NET应用程序上创建、管理和操作Excel文档。即使不安装Microsoft Office,它也能将Excel转换为PDF,HTML,Image,CSV以及XML等。如需下载,请访问:https://www.e-iceblue.com/Download/download-excel-for-net-free.html

?

详细步骤:

步骤1:新建一个工作簿

Workbook workbook = new Workbook();

步骤2:加载需要转换的Excel文档

workbook.LoadFromFile(@"C:\Users\Administrator\Desktop\国家分布.xlsx");

步骤3:获取第一个工作表

Worksheet sheet = workbook.Worksheets[0];

步骤4:将第一个工作表保存为.txt文档格式

sheet.SaveToFile("ExceltoTxt.txt", " ", Encoding.UTF8);

?


以下是转换前和转换后的对比图:

??????????????????????????????????????????????????????????????????????????转换前

????????????????????????????????????????????????????????????????????转换后

??????????

?

C#完整代码:

复制代码
using Spire.Xls;
using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;

namespace excel_to_text
{
    class Program
    {
        static void Main(string[] args)
        {
            Workbook workbook = new Workbook();
            workbook.LoadFromFile(@"C:\Users\Administrator\Desktop\国家分布.xlsx");
            Worksheet sheet = workbook.Worksheets[0];
            sheet.SaveToFile("ExceltoTxt.txt", " ", Encoding.UTF8);

        }
    }
}
复制代码

?

VB.NET完整代码:

复制代码
Imports Spire.Xls
Imports System.Collections.Generic
Imports System.Linq
Imports System.Text

Namespace excel_to_text
    Class Program
        Private Shared Sub Main(args As String())
            Dim workbook As New Workbook()
            workbook.LoadFromFile("C:\Users\Administrator\Desktop\国家分布.xlsx")
            Dim sheet As Worksheet = workbook.Worksheets(0)
            sheet.SaveToFile("ExceltoTxt.txt", " ", Encoding.UTF8)

        End Sub
    End Class
End Namespace
复制代码


感谢您的浏览。

相关亚博足球娱乐场注册--任意三数字加yabo.com直达官网