Visual Basic

Imports CommonFunctions
Imports Microsoft.VisualBasic
Imports Microsoft.Office.Core
Imports System.Data
Imports System.Data.SqlClient
Imports System.IO
Partial Class FEMain_ContractAdmin_TestExcel2
    Inherits System.Web.UI.Page
    Dim objCF As New CommonFunctions

    Protected Sub btnKPI_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnKPI.Click

        Dim xlApp As Object
        Try
            xlApp = CreateObject("Excel.Application")
        Catch ex As Exception
            objCF.logError(System.IO.Path.GetFileName(System.Web.HttpContext.Current.Request.Url.AbsolutePath) & " :: " & System.Reflection.MethodBase.GetCurrentMethod().Name, ex.Message)
            Exit Sub
        End Try

        Dim xlWorkBook As Object
        Dim xlWorksheet As Object
        Dim misValue As Object = System.Reflection.Missing.Value

        xlWorkBook = xlApp.Workbooks.Add(misValue)
        xlWorksheet = xlWorkBook.Sheets("Sheet1")
        xlWorksheet.Cells(1, 1) = "Test 123456"

        Dim strSavePath As String
        Dim strFilename As String
        Dim strFullPath As String

        strSavePath = AppDomain.CurrentDomain.BaseDirectory & "Documents\KPI\Concerns\"

        'create kpi concern directory
        If (Not Directory.Exists(strSavePath)) Then
            Directory.CreateDirectory(strSavePath)
        End If
        strFilename = "Test_" & CStr(Date.Now.Year) & objCF.addZeros(CStr(Date.Now.Month), 2) & objCF.addZeros(CStr(Date.Now.Day), 2) & "_" & objCF.addZeros(CStr(Date.Now.Hour), 2) & objCF.addZeros(CStr(Date.Now.Minute), 2) & objCF.addZeros(CStr(Date.Now.Second), 2) & objCF.addZeros(CStr(Date.Now.Millisecond), 3) & ".xlsx"
        strFullPath = strSavePath & strFilename

        'save and close
        xlWorkBook.SaveAs(strSavePath & strFilename)
        xlWorkBook.Close(True, misValue, misValue)
        xlApp.Quit()

        'release COM objects
        Call objCF.releaseObject(xlWorksheet)
        Call objCF.releaseObject(xlWorkBook)
        Call objCF.releaseObject(xlApp)

        'show the hyperlink to the excel file
        hypKPI.Visible = True
        hypKPI.NavigateUrl = "~\Documents\KPI\Concerns\" & strFilename

    End Sub

End Class

Considerations for server-side Automation of Office[^]

Microsoft does not currently recommend, and does not support, Automation of Microsoft Office applications from any unattended, non-interactive client application or component (including ASP, ASP.NET, DCOM, and NT Services), because Office may exhibit unstable behavior and/or deadlock when Office is run in this environment.

• EPPlus[^];
• ClosedXML[^];
• ExcelDataReader[^];
• The OpenXML SDK[^];

DAH_bham wrote:

strFilename = "Test_" & CStr(Date.Now.Year) & objCF.addZeros(CStr(Date.Now.Month), 2) & objCF.addZeros(CStr(Date.Now.Day), 2) & "_" & objCF.addZeros(CStr(Date.Now.Hour), 2) & objCF.addZeros(CStr(Date.Now.Minute), 2) & objCF.addZeros(CStr(Date.Now.Second), 2) & objCF.addZeros(CStr(Date.Now.Millisecond), 3) & ".xlsx"

strFilename = String.Format("Test_{0:yyyyMMdd_HHmmssfff}.xlsx", Date.Now)

; Initialise
frm_Splash.bar_Loading.Width = 390
ffrm_Splash.bar_Loading.Maximum = 39
rm_Splash.bar_Loading.Style = ProgressBarStyle.Continuous
frm_Splash.bar_Loading.Enabled = True
frm_Splash.bar_Loading.Visible = True
frm_Splash.bar_Loading.Value = 0
ActionLevel = 0
; Working loop.
For I = 0 to 39
; ... working code here.
    ActionLevel += 1                   ; Advance Progress Bar.
    frm_Splash.bar_Loading.Value = ActionLevel
    Application.DoEvents()
Next

Member 12029698 wrote:

but would go to the default mydocuments with long filenames

fileToFind = """" & fileToFind & """"

Dim filePath As String = MovieURLTextBox.Text

       Try

           Process.Start("Explorer.exe", "/n,/e,/select, """ & filePath & """")
       Catch ex As Exception
           MessageBox.Show(ex.Message)
       End Try