Membuat Nilai Cell Excel Menjadi Bold

Imports Excel = Microsoft.Office.Interop.Excel

Imports Microsoft.Office


Public Class Form2

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

        Dim appXL As Excel.Application = Nothing

        Dim wbXL As Excel.Workbook = Nothing

        Dim shXL As Excel.Worksheet = Nothing

        Dim raXL As Excel.Range = Nothing

        appXL = New Excel.Application

        wbXL = appXL.Workbooks.Open("D:\fileExcel\Latihan100.xlsx")

        shXL = wbXL.Sheets("Sheet1")


        raXL = shXL.Range("A1")

        raXL.Font.Bold = True



        appXL.UserControl = True

        appXL.Visible = True

        raXL = Nothing

        wbXL = Nothing

        shXL = Nothing

        appXL = Nothing

        Exit Sub


Err_Handler:

        MsgBox(Err.Description, vbCritical, )


    End Sub