فتح ملف أكسيل من خلال الفيجوال بيسك

كود :

Dim ApExcel As Object 'To open Excel



Set ApExcel = CreateObject("Excel.application") 'Creates an object

ApExcel.Visible = True ' So you can see Excel

ApExcel.Workbooks.Add 'Adds a new book.

ApExcel.cells(1, 1).Formula = "HELLO" 'Add Text to a Cell

'You can use the line above, changing coordenates to go to any 

'cell and you can also add Formulas

ApExcel.Range("A1:Z1").BORDERS.Color = RGB(0, 0, 0) 'Use it to 

'change the borders.

ApExcel.Columns("A:AY").EntireColumn.AutoFit 'To adjust the 

'column's width.

ApExcel.Range("A:Z").Select 'To establish a selection

ApExcel.Selection.NumberFormat = "0" 'Adding different formats