Venus AUEB Forum

Code: Select all

Imports Microsoft.Office.Interop

        Dim xlApp As Excel.Application
        Dim xlWorkbook As Excel.Workbook
        Dim xlSheet As Excel.Worksheet
        Dim xlRng As Excel.Range


        xlApp = New Excel.Application
        xlApp.Visible = False

        Dim oldCI As System.Globalization.CultureInfo = System.Threading.Thread.CurrentThread.CurrentCulture
        System.Threading.Thread.CurrentThread.CurrentCulture = New System.Globalization.CultureInfo("en-US")

        xlWorkbook = xlApp.Workbooks.Open("C:\Documents and Settings\Template.xls")
        System.Threading.Thread.CurrentThread.CurrentCulture = oldCI

        xlSheet = xlWorkbook.ActiveSheet

        xlRng = xlSheet.Range("A8")
        xlRng.Value = 10


        xlApp.ActiveWorkbook.Save()
        xlRng = Nothing
        xlSheet = Nothing
        xlWorkbook = Nothing
        xlApp.Application.Quit()
        'System.Runtime.InteropServices.Marshal.ReleaseComObject(xlApp)
        xlApp = Nothing