VB.Net程序设计:Excel的基本操作模式
来源:互联网 发布:如何当一个网络写手 编辑:程序博客网 时间:2024/06/05 18:06
添加excel的引用
Dim xlApp As Excel.ApplicationDim xlBook As Excel.Workbook Dim xlSheet As Excel.Worksheet Dim myRange As Excel.Range xlApp = New Excel.Application xlBook = xlApp.Workbooks.Add xlSheet = xlBook.Worksheets.Item(1) xlSheet.Range("F5")="Date:" & Today.Date'...xlBook.Save 'or xlBook.SaveAsxlBook.ClosexlApp.Quit()xlSheet = NothingxlBook = NothingxlApp = Nothing
下面是网友提供的:
http://topic.csdn.net/u/20110802/14/d5a5c1ff-c897-4544-b405-5ef362dc1028.html
Imports SystemImports System.DataImports System.ConfigurationImports System.WebImports Microsoft.Office.CorePublic Class ExcelEdit Public mFilename As String Public app As Excel.Application Public wbs As Excel.Workbooks Public wb As Excel.Workbook Public wss As Excel.Worksheets Public ws As Excel.Worksheet Public Sub New() End Sub Public Sub Create() '创建一个Excel对象 app = New Excel.Application wbs = app.Workbooks wb = wbs.Add(True) End Sub Public Sub Open(ByVal FileName As String) '打开一个Excel文件 app = New Excel.Application wbs = app.Workbooks wb = wbs.Add(FileName) 'wb = wbs.Open(FileName, 0, true, 5, " ", " ", true, Excel.XlPlatform.xlWindows, "\t ", false, false, 0, true,Type.Missing,Type.Missing); 'wb = wbs.Open(FileName,Type.Missing,Type.Missing,Type.Missing,Type.Missing,Type.Missing,Type.Missing,Excel.XlPlatform.xlWindows,Type.Missing,Type.Missing,Type.Missing,Type.Missing,Type.Missing,Type.Missing,Type.Missing); mFilename = FileName End Sub Public Function GetSheet(ByVal SheetName As String) As Excel.Worksheet '获取一个工作表 Dim s As Excel.Worksheet = DirectCast(wb.Worksheets(SheetName), Excel.Worksheet) Return s End Function Public Function AddSheet(ByVal SheetName As String) As Excel.Worksheet '添加一个工作表 Dim s As Excel.Worksheet = DirectCast(wb.Worksheets.Add(Type.Missing, Type.Missing, Type.Missing, Type.Missing), Excel.Worksheet) s.Name = SheetName Return s End Function Public Sub InsertCurve(ByVal ws As String, ByVal Points As Point()) '添加一条曲线 If Points.Length = 0 Then Return With GetSheet(ws).Shapes.BuildFreeform(MsoEditingType.msoEditingAuto, Points(0).X, Points(0).Y) Dim i As Integer For i = 1 To Points.Length - 1 .AddNodes(MsoSegmentType.msoSegmentCurve, MsoEditingType.msoEditingAuto, Points(i).X, Points(i).Y) Next .ConvertToShape.Select() End With End Sub Public Function Save() As Boolean '保存文档 If mFilename = "" Then Return False Else Try wb.Save() Return True Catch ex As Exception Return False End Try End If End Function Public Function SaveAs(ByVal FileName As Object) As Boolean '文档另存为 Try wb.SaveAs(FileName, Type.Missing, Type.Missing, Type.Missing, Type.Missing, Type.Missing, _ Excel.XlSaveAsAccessMode.xlExclusive, Type.Missing, Type.Missing, Type.Missing, Type.Missing, Type.Missing) Return True Catch ex As Exception Return False End Try End Function Public Sub Close() '关闭一个Excel对象,销毁对象 'wb.Save(); wb.Close(Type.Missing, Type.Missing, Type.Missing) wbs.Close() app.Quit() wb = Nothing wbs = Nothing app = Nothing GC.Collect() End SubEnd Class
- VB.Net程序设计:Excel的基本操作模式
- VB.Net程序设计:Excel的基本操作模式
- VB.Net程序设计:XPTable基本操作代码段(备忘录)
- vb.net 操作EXCEL
- VB.NET EXCEL操作
- VB.NET操作Excel
- VB.Net程序设计:Excel对单元格尺寸的定义.
- Excel操作类(VB.NET)
- vb.net操作excel文件
- vb.net操作excel汇集
- vb.net操作excel文件
- vb.net操作Excel常用命令
- VB.Net程序设计:ListBox拖动排序两个ListBox的操作
- vb.net注册表基本操作
- VB.Net程序设计:拖放Datagridview到另外一个Datagridview基本操作
- vb.net对excel的操作------感谢:就爱小毛虫
- [VB.NET源码]读写Excel的操作应用
- 在VB.NET中执行基本的数组操作
- Java关键字new和newInstance的区别方法
- 研发人员欠缺的“不要脸”文化
- DBUtil教程(一)概述
- 微软为什么要在中国消灭ie6?
- 内存数据库fastdb的使用研究报告
- VB.Net程序设计:Excel的基本操作模式
- Android 学习意外第六季——android DDMS中的 logCat中文乱码
- c语言结构体边界对齐
- PHP 转码
- Spring事务管理高级应用难点剖析
- 递归查询文件名.vbs
- C# log4net的使用。(转)
- 十道海量数据处理面试题与十个方法大总结
- TEST