VB.Net程序设计：Excel的基本操作模式

大佬教程收集整理的这篇文章主要介绍了VB.Net程序设计：Excel的基本操作模式，大佬教程大佬觉得挺不错的，现在分享给大家，也给大家做个参考。

添加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

大佬总结

以上是大佬教程为你收集整理的VB.Net程序设计：Excel的基本操作模式全部内容，希望文章能够帮你解决VB.Net程序设计：Excel的基本操作模式所遇到的程序开发问题。

如果觉得大佬教程网站内容还不错，欢迎将大佬教程推荐给程序员好友。

本图文内容来源于网友网络收集整理提供，作为学习参考使用，版权属于原作者。
如您有任何意见或建议可联系处理。小编QQ：384754419，请注明来意。