---

Hej Alle !

Jeg skal have hjælp til makro/vba, der vha en kommandoknap i en formular åbner en bestemt excel-fil. Filen ligger på c:\excel\oversigt-edb.xls

Jeg har fået access til at åbne excel med nedenstående kode:

Private Sub Kommandoknap13_Click()
On Error GoTo Err_Kommandoknap13_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_Kommandoknap13_Click:
Exit Sub

Err_Kommandoknap13_Click:
MsgBox Err.Description
Resume Exit_Kommandoknap13_Click

End Sub

men jeg mangler lige det vigtigste.

Håber at nogle kan hjælpe mig.

/meiland

---

---

Hej supertekst !

Tak for dit svar. Desværre fungerer koden ikke helt efter hensigten. Excel startes og den åbner også et regneark. Desværre er det regnearket Person.xls

Min tilrettede kode er:

Private Sub kommandoknap19_click()
On Error GoTo Err_Kommandoknap19_Click
Dim oApp As Object
Set oApp = GetObject("f:\meiland\aflæsning-elmåler\el-priser.xls") '<<< Eksempel
oApp.Application.Visible = True '<<<
oApp.Parent.Windows(1).Visible = True 'False '<<<
oApp.Sheets(1).Activate '<<<

'Only XL 97 supports UserControl Property
On Error Resume Next
oApp.UserControl = True

Exit_Kommandoknap19_Click:
Exit Sub

Err_Kommandoknap19_Click:
MsgBox Err.Description
Resume Exit_Kommandoknap19_Click

End Sub

Til gengæld har jeg fået nedenstående kode til at virker:

Private Sub kommandoknap19_click()
On Error GoTo Err_Kommandoknap19_Click

Dim stAppName As String

stAppName = "excel.exe F:\meiland\aflæsning-elmåler\el-priser.xls"
Call Shell(stAppName, 1)

Exit_Kommandoknap19_Click:
Exit Sub

Err_Kommandoknap19_Click:
MsgBox Err.Description
Resume Exit_Kommandoknap19_Click

End Sub

Hvis man har mellemrum i filnavnet f.eks. F:\meiland\aflæsning af el-måler\el-priser.xls så mangler jeg et "samletegn" omkring filnavnet, ellers tror excel at det drejer sig om flere filer. Løsning ????????

---

OK - jeg kunne få det til at virke i Office97 - men dit sidste problem med filnavnet - prøv at oprette en konstant indeholdende filnavnet:

Const filnavn = "aflæsning af el-måler\el-priser.xls"

...
stAppName = "excel.exe F:\meiland\" & filnavn

- måske??

---

Så vidt jeg husker, så kan strings som filnavne med mellemrum angives således med firkant-paranteser ("samletegn"):

Eksempel:
stAppName = "[excel.exe c:\program files\test\test mellemrum.xls]"

mvh berpox

---

Her er to eksempler som virker på min maskine:

Private Sub Kommandoknap13_Click()
Dim excelFileName As String
'Den direkte måde
Shell ("Excel.exe " & """C:\Program\Excel\Excel Test.xls"""), vbMaximizedFocus

'Med string for filnavn
excelFileName = "C:\Program\Excel\Excel Test.xls"
Shell ("Excel.exe " & """" & excelFileName & """"), vbMaximizedFocus
End Sub

Dette spørgsmål er blevet annulleret, det er derfor ikke muligt for at tilføje flere kommentarer.