Visual Basic

Minenhle Ndlovu wrote:

here is giving me an error

Minenhle Ndlovu wrote:

How can i add the reference to my windows form here is my references

Bastard Programmer from Hell

        Dim oApp As New Excel.Application()
        Dim oBook As Excel.Workbook = oApp.Workbooks.Add
        Dim oSheet As Excel.Worksheet = oApp.ActiveSheet
        Dim chartRange As Excel.Range

        'hoofding
        chartRange = oSheet.Range("A1", "I1")
        chartRange.Merge()
        chartRange.FormulaR1C1 = "WorkBook"
        chartRange.Font.Bold = True
        chartRange.Font.Size = 20
        chartRange.HorizontalAlignment = 3
        'chartRange.VerticalAlignment = 3

        'Save the Workbook
        oBook.SaveAs(sSampleFolder & "V.F." & idvoorexcel & "-" & Label6.Text & ".xlsx")

        oSheet = Nothing
        oBook.Close(False)
        oBook = Nothing
        oApp.Quit()
        oApp = Nothing
        System.Threading.Thread.Sleep(3000)

    End If
Catch ex As Exception
    MsgBox("location : catch blok")
    oSheet = Nothing
    oBook = Nothing
End Try

Imports Microsoft.Office.Interop
Try

                Dim oApp As New Excel.Application()
                Dim oBook As Excel.Workbook = oApp.Workbooks.Add
                Dim oSheet As Excel.Worksheet = oApp.ActiveSheet
    
                chartRange = oSheet.range("A20", "G20")
                oSheet.Range("A20").Value = "blabla"
                chartRange.BorderAround(Excel.XlLineStyle.xlContinuous, _
                Excel.XlBorderWeight.xlMedium, Excel.XlColorIndex. _
          xlColorIndexAutomatic, Excel.XlColorIndex.xlColorIndexAutomatic)

                'Save the Workbook and quit Excel.
                oBook.SaveAs(sSampleFolder & "V.F." & idvoorexcel & "-" & Label6.Text & "-" & DateTime.Now.ToString("ddMMyyHHmmss") & ".xlsx")
                oSheet = Nothing
                NAR(oSheet)
                oBook.Close(False)
                NAR(oBook)
                oBook = Nothing
                oApp.Quit()
                NAR(oApp)
                oApp = Nothing
                System.Threading.Thread.Sleep(1500)
            End If
        Catch ex As Exception
            NAR(oSheet)
            oBook.Close(False)
            NAR(oBook)
            oSheet = Nothing
            oBook.Close(False)
            oBook = Nothing
            System.Threading.Thread.Sleep(1500)
            GC.Collect()
        End Try
    Private Sub NAR(ByVal o As Object)
        Try
            System.Runtime.InteropServices.Marshal.ReleaseComObject(o)
        Catch
        Finally
            o = Nothing
        End Try
    End Sub

Anu_Bala wrote:

any tutorial or article related to this concern.

Dave Kreskowiak wrote:

I don't know why you were down-voted