VB.Net创建的office类

最新推荐文章于 2024-07-17 15:19:19 发布

c_cwh

最新推荐文章于 2024-07-17 15:19:19 发布

阅读量645

点赞数

CC 4.0 BY-SA版权

分类专栏： VB.Net 文章标签： vb.net office exception function integer string

本文链接：https://blog.youkuaiyun.com/c_cwh/article/details/4633726

VB.Net 专栏收录该内容

2 篇文章

订阅专栏

这个VB.Net类库提供了创建、打开、保存、关闭Excel和Word文档的功能。包括创建工作簿、打开现有工作簿、保存工作簿、获取工作簿的行数和列数、释放应用程序资源等操作。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

Public Class Coffice
    Public xls As Excel.Application
    Public xlsworkbook As Excel.Workbook
    Public xlsworksheet As Excel.Worksheet

    Public doc As Word.Application
    Public document As Word.Document
    '************************************************************************************************************
    '创建工作簿，获得第一个工作表，为需要的操作做准备
    Public Function CreateXls(ByVal bool As Boolean) As Boolean
        Try
            xls = New Excel.Application
            xls.Visible = bool
            xls = CreateObject("excel.application")
            xlsworkbook = xls.Application.Workbooks.Add()
            xlsworksheet = xlsworkbook.Sheets(1)
        Catch ex As Exception
            MsgBox(ex.Message.ToString())
        End Try
    End Function
    '打开现有的工作簿，获得第一个工作表，为需要的操作做准备
    Public Function OpenXls(ByVal path As String, ByVal name As String, ByVal bool As Boolean) As Boolean
        Try
            xls = New Excel.Application
            xls.Visible = bool
            xls = CreateObject("excel.application")
            xlsworkbook = xls.Application.Workbooks.Open(path & name)
            xlsworksheet = xlsworkbook.Sheets(1)
        Catch ex As Exception
            MsgBox(ex.Message.ToString())
        End Try
    End Function
    '保存原有的工作簿
    Public Function SaveWorkbook() As Boolean
        Try
            'xlsworksheet.Save()
            xlsworkbook.Save()
        Catch ex As Exception
            MsgBox(ex.Message.ToString())
        End Try
    End Function
    '保存新创建的工作簿
    Public Function SaveWorkbook(ByVal path As String, ByVal name As String) As Boolean
        Try
            xlsworkbook.SaveAs(path & name)
        Catch ex As Exception
            MsgBox(ex.Message.ToString())
        End Try
    End Function
    '关闭工作簿
    Public Function CloseWorkbook() As Boolean
        Try
            xlsworkbook.Close()
            xls.Quit()
        Catch ex As Exception
            MsgBox(ex.Message.ToString())
        End Try
    End Function
    '获得工作簿行数，不能有空行
    Public Function GetRows(ByVal column As Integer, ByVal sheet As Excel.Worksheet) As Integer
        Dim row As Integer
        Try
            For row = 1 To 65536
                If sheet.Cells(row, column).value <> "" Then
                    GetRows = row
                Else
                    Exit For
                End If
            Next
        Catch ex As Exception
            MsgBox(ex.Message.ToString())
        End Try
    End Function
    '获得工作簿的列数，不能有空列
    Public Function GetColumns(ByVal row As Integer, ByVal sheet As Excel.Worksheet) As Integer
        Dim Column As Integer
        Try
            For Column = 1 To 255
                If sheet.Cells(row, Column).value <> "" Then
                    GetColumns = Column
                Else
                    Exit For
                End If
            Next
        Catch ex As Exception
            MsgBox(ex.Message.ToString())
        End Try
    End Function
    '释放excel资源
    Public Function DisposExcel() As Boolean
        Try
            xlsworksheet = Nothing
            xlsworkbook = Nothing
            xls = Nothing
        Catch ex As Exception
            MsgBox(ex.Message.ToString())
        End Try
    End Function
    '************************************************************************************************************
    '创建一个word文档
    Public Function CreateDoc(ByVal bool As Boolean) As Boolean
        Try
            doc = New Word.Application
            doc.Visible = bool
            doc = CreateObject("word.application")
            document = doc.Documents.Add()
        Catch ex As Exception
            MsgBox(ex.Message.ToString())
        End Try
    End Function
    '打开一个word文档
    Public Function OpenDoc(ByVal path As String, ByVal name As String, ByVal bool As Boolean) As Boolean
        Try
            doc = New Word.Application
            doc.Visible = bool
            doc = CreateObject("word.application")
            document = doc.Documents.Open(path & name)
        Catch ex As Exception
            MsgBox(ex.Message.ToString())
        End Try
    End Function
    '保存打开的文档
    Public Function SaveDocument() As Boolean
        Try
            document.Save()
        Catch ex As Exception
            MsgBox(ex.Message.ToString())
        End Try
    End Function
    '保存新创建的文档
    Public Function SaveDocument(ByVal path As String, ByVal name As String) As Boolean
        Try
            document.SaveAs(path & name)
        Catch ex As Exception
            MsgBox(ex.Message.ToString())
        End Try
    End Function
    '关闭文档
    Public Function CloseDocument() As Boolean
        Try
            document.Close()
            doc.Quit()
        Catch ex As Exception
            MsgBox(ex.Message.ToString())
        End Try
    End Function
    '释放word资源
    Public Function DisposWord() As Boolean
        Try
            doc = Nothing
            document = Nothing
        Catch ex As Exception
            MsgBox(ex.Message.ToString())
        End Try
    End Function
End Class