[code] Dim csv As String = "C:\otomasyon"
Dim oExcel As Excel.Application = CreateObject("Excel.Application") 'bunu kullanmazsan
Excel nesnen oluşmaz.
Dim oBook As Excel.Workbook
Dim oSheet As Excel.Worksheet
oBook = oExcel.Workbooks.Open(csv & "\son form.xlsx") 'burada açılır dosya
oSheet = oBook.Worksheets("Sayfa1")
'oSheet.Range("A1:I1:J1:A2:B2:C2
2:E2:F2:G2:H2:J2").Font.Bold = True
'oSheet.Range("A2:B2:C2
2:E2:F2:G2:H2:J2").B