Åbne Excel fra VB og indsætte værdier

Du kan bruge flg kode til at starte en excel session og tilrette og læse celler fra VB.

Private Sub Command1_Click()
    Dim ex As Excel.Application
    Set ex = New Excel.Application
   
    Dim work As Excel.Workbook
    Set work = ex.Workbooks.Open("c:\temp.xls")
   
    work.Worksheets("ark1").Range("a1").Value = "HUJIIIIIIIIIIIIIIIII"
   
    Set work = Nothing
    Set ex = Nothing
End Sub

For at dette virker skal du dog have en reference til "Microsoft Excel 9.0 Object Library" Istedet for 9.0 kan du selvfølgelig også bruge 10.0 eller 8.0

Kedde

Tak for hjælpen.
-SCB

Der manglede:
ex.Visible = True
Ellers kan man ikke se Excel
-SCB

Ja det er rigtigt, men jeg vidste ikke om man skulle kunne se excel. Det er mange gange praktisk at kunne opdatere uden at skulle vise programmet.

Kedde