commodore.gen.tr

<%@ Import Namespace="Microsoft.Office.Interop.Excel" %>
<!DOCTYPE html>
<head>

</head>
<html>
<body>
    <%
        Try
            Dim ExcelUygulama As New Microsoft.Office.Interop.Excel.Application
            Dim ExcelProje As Microsoft.Office.Interop.Excel.Workbook
            Dim ExcelSayfa As Microsoft.Office.Interop.Excel.Worksheet
            Dim ExcelRange As Microsoft.Office.Interop.Excel.Range
            Dim missing As Object = System.Reflection.Missing.Value
            ExcelProje = ExcelUygulama.Workbooks.Open(Server.MapPath("./form.xlsx"))
            ExcelSayfa = ExcelProje.Worksheets(1)
            ExcelUygulama.Visible = False
            ExcelUygulama.AlertBeforeOverwriting = False

            ExcelRange = ExcelSayfa.Evaluate("J9")
            ExcelRange.Value2 = "Test"
            ExcelRange.Value = "Test"
            ExcelProje.Save()
            ExcelProje.Close()
            ExcelUygulama.Quit()
            Response.Write("<h1>KOD CALISTI</h1>")
        Catch ex As Exception
            Response.Write("<h1>HATA: " & ex.Message & "</h1>")
        End Try
        %>
</body>
</html>

xlApplication = CreateObject("Excel.Application")