Visual Basic

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.

 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        Dim xlApp As Excel.Application
        Dim xlWorkBook As Excel.Workbook
        Dim xlWorkSheet As Excel.Worksheet
        Dim misValue As Object = System.Reflection.Missing.Value
        Dim i As Integer
        Dim j As Integer

        xlApp = New Excel.Application
        xlWorkBook = xlApp.Workbooks.Add(misValue)
        xlWorkSheet = xlWorkBook.Sheets("Sheet1")

        For i = 0 To dgvData.RowCount - 2
            For j = 0 To dgvData.ColumnCount - 1
                xlWorkSheet.Cells(i + 1, j + 1) = dgvData(j, i).Value.ToString()
            Next
        Next

        xlWorkSheet.Columns.AutoFit()
        xlWorkSheet.Rows.AutoFit()
        xlWorkSheet.SaveAs("C:\xxx\xxx.xlsx")
        xlWorkBook.Close()
        xlApp.Quit()

        releaseObject(xlApp)
        releaseObject(xlWorkBook)
        releaseObject(xlWorkSheet)

        MessageBox.Show("xxx C:\xxx\xxx.xlsx", "xxx", MessageBoxButtons.OK, MessageBoxIcon.Information)

    End Sub

    Private Sub releaseObject(ByVal obj As Object)
        Try
            System.Runtime.InteropServices.Marshal.ReleaseComObject(obj)
            obj = Nothing
        Catch ex As Exception
            obj = Nothing
        Finally
            GC.Collect()
        End Try
    End Sub
End Class

Member 14179211 wrote:

I been trying this for long period.

RedPandinus wrote:

How to add 3 IF conditions to below code part ?

Private Sub btnSave_Click(sender As System.Object, e As System.EventArgs) Handles btnSave.Click
     
        If txtFullname.Text = "" Or IsNothing(txtFullname.Text) Or txtFullname.Text.Length = 0 Then
            MessageBox.Show("test", "Warning",
                            MessageBoxButtons.OK, MessageBoxIcon.Warning)
            txtFullname.Focus()
            Exit Sub
        End If
    
        If NewData Then
       
            strSQL = _
                " SELECT Count(tblContact.Fullname) AS CountFullname FROM tblContact " & _
                " WHERE Fullname = " & "'" & txtFullname.Text & "'"
            If DuplicateName(strSQL) Then
                MessageBox.Show("Test", "Warning",
                                MessageBoxButtons.OK, MessageBoxIcon.Warning)
                txtFullname.Focus()
                Exit Sub
            End If

Richard MacCutchan wrote:

what will happen if the user types "MyName; Drop Table tblContact; --"?

MyName'; Drop Table tblContact; --