Trykknap til åbning af excelfil

Prøv at indsætte nedenstående kode på din kommandoknap (under hændelse ved klik):

Dim xls As New Excel.Application
xls.Visible = True
xls.Workbooks.Open Filename:="C:\...\..\filnavn.xls"

Der hvor der står prikker skal du blot skrive din egen sti til filen. PS ikke testet

Denne er testet og virker, husk at sætte en reff. til Microsoft Excel i din vba editor

Dim xls As New Excel.Application
xls.Visible = True
xls.Workbooks.Open Filename:="C:\test.xls"

Hej Anders

ved en autooprettelse af en trykknap til exel ligger fgl kode i vba

Private Sub Kommandoknap104_Click()
On Error GoTo Err_Kommandoknap104_Click

    Dim oApp As Object

    Set oApp = CreateObject("Excel.Application")
    oApp.Visible = True
    'Only XL 97 supports UserControl Property
    On Error Resume Next
    oApp.UserControl = True

Exit_Kommandoknap104_Click:
    Exit Sub

Err_Kommandoknap104_Click:
    MsgBox Err.Description
    Resume Exit_Kommandoknap104_Click
   
End Sub


Hvor er det så lige at jeg skal indsætte din kode for at få det til at du ?

Jeg er med det med at specificerer stien.

Hilsen MLL

Hej
Prøv at erstatter den kode jeg forslår med din egen, så tror jeg det virker. Den kode du har angivet er så vidt jeg kan vurdere noget kommandoknapguiden har skrevet.

Altså:

Private Sub Kommandoknap104_Click()
Dim xls As New Excel.Application
xls.Visible = True
xls.Workbooks.Open Filename:="C:\test.xls"
End Sub

'PS:husk at sætte en reff. til Microsoft Excel i din vba editor'

Hej Anders
Jeg skal nok have lidt hjælp til hvad du mener med dit
'PS:husk at sætte en reff. til Microsoft Excel i din vba editor'
Hilsen MLL

Okay, åben en formular i designvisning, klik på vabeditorikonet (programkode) på værktøjslinjen.

Aktiver menuen Tools, og klik på References. Nu åbnes en fildialog med en lister over alle tilgængelige reff. Her skal du finde Microsoft Excel versionsnr Objekt Libery. Når du har fundet den skal du blot sætte et flubeben ud for reff. så køre det.

Hej Anders
Det virker perfekt nu. Mange TAK for hjælpen
Kan du hjælp mig en anden gang ?
Ka jeg få din direkte mail ?

Hilsen MLL

Selv tak :o), husk at afslutte spørgsmålet.Du finder min mailadresse ved at klikke på mit brugernavn