VB.Net程序设计:Excel的基本操作模式
发布时间:2020-12-17 00:23:38 所属栏目:大数据 来源:网络整理
导读:添加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.Rang
添加excel的引用
Dim xlApp As Excel.Application Dim 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.SaveAs xlBook.Close xlApp.Quit() xlSheet = Nothing xlBook = Nothing xlApp = Nothing
下面是网友提供的: http://topic.csdn.net/u/20110802/14/d5a5c1ff-c897-4544-b405-5ef362dc1028.html Imports System Imports System.Data Imports System.Configuration Imports System.Web Imports Microsoft.Office.Core Public 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,true,5," ",Excel.XlPlatform.xlWindows,"t ",false,Type.Missing,Type.Missing); 'wb = wbs.Open(FileName,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),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,_ Excel.XlSaveAsAccessMode.xlExclusive,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) wbs.Close() app.Quit() wb = Nothing wbs = Nothing app = Nothing GC.Collect() End Sub End Class (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |
相关内容
- PAT A1055 The World's Richest
- .NET Core 环境下使用命令行移除某个 nuget 包的具体方法
- Perl子例程括号中的美元字符是什么意思?
- 一、我来说LuCI: LuCI官方----4. CBI
- Lua移植到arm上 并实现在arm上 可以让lua脚本调c语言,C语言
- 如何轻松调整VB.NET控件
- delphi – 我得到RTTIMethod.Visibility = mvPublic用于私有
- Learning Perl: 1.3. How Can I Get Perl?
- php – 将通配符传递给Laravel 4中的路线
- Perl、PHP、Python、Java和Ruby的比较