.Net操作Excel实践

最新推荐文章于 2024-07-29 15:07:13 发布

weilu0328

最新推荐文章于 2024-07-29 15:07:13 发布

阅读量417

点赞数

分类专栏： ASP.NET以及VSTS 文章标签： excel .net object string file

本文链接：https://blog.csdn.net/weilu0328/article/details/2508187

版权

ASP.NET以及VSTS 专栏收录该内容

22 篇文章 0 订阅

订阅专栏

'Declare the object of Excel

       Dim exlBook As Excel.Workbook
        Dim exlSheet As Excel.Worksheet
        Dim exlApp As Excel.Application = New Excel.Application()

'Open the object of the excel file

exlBook = exlApp.Workbooks.Open(filepath, Type.Missing, Type.Missing, Type.Missing, Type.Missing, Type.Missing, Type.Missing, Type.Missing, Type.Missing, Type.Missing, Type.Missing, Type.Missing, Type.Missing, Type.Missing, Type.Missing)
exlSheet = DirectCast(exlBook.Worksheets(1), Excel.Worksheet)

'get the count of excel file usedRange rows

RecordCount = exlSheet.UsedRange.Rows.Count

'get the value of the current cell

Dim _strVendCode As String = exlSheet.UsedRange.Range("H" + row.ToString()).Value.ToString().Trim()

'Finally

If Not exlBook Is Nothing Then
                exlBook.Close()
                ReleaseComObject(exlBook)
            End If

exlApp.Quit()
exlApp.Workbooks.Close()

    '释放对象资源
            ReleaseComObject(exlSheet)
            ReleaseComObject(exlApp)
            exlSheet = Nothing
            exlBook = Nothing
            exlApp = Nothing

'强制回收内存
GC.Collect()

''' <summary>
    ''' release the object of the excel intantiate
    ''' </summary>
    ''' <param name="obj"></param>
    ''' <remarks></remarks>
    Protected Friend Sub ReleaseComObject(ByVal obj As Object)
        If Not obj Is Nothing Then
            System.Runtime.InteropServices.Marshal.ReleaseComObject(obj)
            obj = Nothing
        End If
    End Sub