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

<table><tr><td class="number">01</td><td class="content">[CODE language="vb"]Dim ApExcel As Object 'To open Excel</td></tr></table><table><tr><td class="number">02</td><td class="content">  </td></tr></table>
<table><tr><td class="number">03</td><td class="content">Set ApExcel = createObject("Excel.application") 'creates an object</td></tr></table>
<table><tr><td class="number">04</td><td class="content">ApExcel.Visible = True ' So you can see Excel</td></tr></table>
<table><tr><td class="number">05</td><td class="content">ApExcel.Workbooks.Add 'Adds a new book.</td></tr></table>
<table><tr><td class="number">06</td><td class="content">ApExcel.cells(1, 1).Formula = "HELLO"  'Add Text to a Cell</td></tr></table>
<table><tr><td class="number">07</td><td class="content">'You can use the line above, changing coordenates to go to any </td></tr></table>
<table><tr><td class="number">08</td><td class="content">'cell and you can also add Formulas</td></tr></table>
<table><tr><td class="number">09</td><td class="content">ApExcel.Range("A1:Z1").BORDERS.Color = RGB(0, 0, 0) 'Use it to </td></tr></table>
<table><tr><td class="number">10</td><td class="content">'change the borders.</td></tr></table>
<table><tr><td class="number">11</td><td class="content">ApExcel.Columns("A:AY").EntireColumn.AutoFit 'To adjust the </td></tr></table>
<table><tr><td class="number">12</td><td class="content">'column's width.</td></tr></table>
<table><tr><td class="number">13</td><td class="content">ApExcel.Range("A:Z").select 'To establish a selection</td></tr></table>
<table><tr><td class="number">14</td><td class="content">ApExcel.selection.NumberFormat = "0" 'Adding different formats[/CODE']</td></tr></table>