vb.net 教程 10-2 Excel操作2 Excel文件的保存

如果是一般的打开某个Excel文件修改后保存到原文件或者新的文件，在 Excel.Application.Quit() 前直接使用
Workbook.Save() 或 Workbook.SaveAs(文件名称) 就可以了。
但是对于要把数据（并非通过打开Excel文件获得的数据）保存成Excel文件，那么可以按照以下步骤：
1、新建了一个Application对象：
Dim xls As New Excel.Application
2、新建工作簿并添加到创建的Application对象：
Dim Wbook As Excel.Workbook
Wbook = xls.Workbooks.Add
3、使用原有的工作表，一般默认创建Wbook后会有sheet1、sheet2、sheet3三个工作表，可以使用上一节方法指定一个工作表写数据。
或者新建工作表：
Dim Wsheet As Excel.Worksheet
Wsheet = Wbook.Worksheets.Add
并按需要指定工作表名称，如不指定，那么新工作表默认名称为 Sheet4：
Wsheet.Name = "电脑销售表"
4、读取现有数据并写入单元格，需要注意的是Excel单元格的起始序号为1，而一般vb.net中数组等的起始序号为0：
Wsheet.Cells(i行号,列号).value = "值"
5、保存工作簿
Workbook.SaveAs(文件名称)
6、最后，别忘了关闭打开的 Excel：
Excel.Application.Quit()
具体代码如下：

    '另存为Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.ClickDim filename As StringDim sfd As New SaveFileDialog()sfd.Filter = "表格文件|*.xls;*.xlsx"If sfd.ShowDialog <> DialogResult.OK ThenExit SubElsefilename = sfd.FileNameEnd IfDim xls As New Excel.ApplicationDim Wbook As Excel.WorkbookWbook = xls.Workbooks.AddDim Wsheet As Excel.WorksheetWsheet = Wbook.Worksheets.AddWsheet.Name = "电脑销售表"If lvExcel.Columns.Count > 1 ThenFor i As Integer = 0 To lvExcel.Columns.Count - 1Wsheet.Cells(1, i + 1).value = lvExcel.Columns(i).TextNextEnd IfIf lvExcel.Items.Count > 0 ThenFor i As Integer = 0 To lvExcel.Items.Count - 1Dim pos As Integer = 0For Each subLvText As ListViewItem.ListViewSubItem In lvExcel.Items(i).SubItemspos += 1If subLvText.Text = "(空)" ThenWsheet.Cells(i + 2, pos).value = ""     '+2是因为excel表格第一行从1开始，而表头已经占了第一行，所以写入的数据从第2行开始。ElseWsheet.Cells(i + 2, pos).value = subLvText.TextEnd IfNextNextEnd IfWbook.SaveAs(filename)xls.Quit()MessageBox.Show("保存完毕")End Sub

保存的Excel文件如图：

由于.net平台下C#和vb.NET很相似，本文也可以为C#爱好者提供参考。

学习更多vb.net知识，请参看 vb.net 教程目录

vb.net 教程 10-2 Excel操作2 Excel文件的保存相关推荐

vb.net 教程 10-2 Excel操作1 Excel文件的打开
版权声明:本文为博主原创文章,转载请在显著位置标明本文出处以及作者网名,未经作者允许不得用于商业目的. 为了便于理解Excel操作,我做了一个示意图 1.打开Excel,相当于新建了一个Applica ...
excel上传java_java：Excel操作之Excel上传
1.导入我们需要的jar包. 2.创建servlet命名为UploadExcelServlet,url为UploadExcelServlet. 3.创建Excel的批量处理方法ExcelBatchUt ...
java中excel上传_java：Excel操作之Excel上传导入
1.导入我们需要的jar包. 2.创建servlet命名为UploadExcelServlet,url为UploadExcelServlet. 3.创建Excel的批量处理方法ExcelBatchUt ...
C#实战007:Excel操作-创建Excel并保存
这是通过Excel组件进行Excel文件创建并保存的方法,注释都写在程序中了. using System; using System.Collections.Generic; using System ...
C#实战011:Excel操作-获取Excel某一列数据并存入数组
操作Excel中的数据才是操作Excel的意义所在,不然前面忙活那么久就就没任何意义了,同样直接附上代码: using System; using System.Collections.Generic ...
C#实战012:Excel操作-获取Excel某一行数据并存入数组
前面获取了Excel某一列数据并存入数组,接着我们继续获取Excel某一行数据并存入数组,方法基本一致,就一点小小的改动,以下是完整的代码: using System; using System.Co ...
C#实战013:Excel操作-给Excel指定单元格赋值
可以获取数据,我们也需要可以修改或者赋值给指定的单元格,需要指定行.列以及要给的赋值 using System; using System.Collections.Generic; using Sys ...
Python代码读取Excel（.xlsx）文件并保存JSON文件
策划需求,要求统计所有xlsx文件中的数据.并将其统一处理归纳到一个文件中,方便阅读. 这时候Python相对C#来说,优势体现出来了.当然C#还是很强的,只是针对某些功能,选择合适的工具. 思路:读 ...
java poi row cell,使用POI进行Excel操作的总结一——创建Workbook，Sheet，Row以及Cell
前段时间,看在其他的网站上给出Excel文档的导入与导出操作,感觉很酷的样子,所以就学习了一下如何使用POI进行Excel的操作,现在对之前的学习过程进行一个总结. 一.现在普遍使用的Excel文档有 ...

vb.net 教程 10-2 Excel操作2 Excel文件的保存

vb.net 教程 10-2 Excel操作2 Excel文件的保存相关推荐

最新文章

热门文章