VBA: Call Shell med mellemrum i filnavnet fejler

prøv lige
Call Shell("Excel" & Filename, 1) hvor Filename er "'C:\Min Folder\minfil.xls'"

Det er mig bekendt ikke filnavnet, men derimod mellemrum i folder-navn som skabe problemet

rbj_fp: Virker ikke, for så bliver hele stien jo til "ExcelC:\Min Folder\minfil.xls" ;)

jensen363: Der er problemer med både fil og folder. Hvis FileName indeholder f.eks. "C:\folder\min fil.xls" opstår samme problem.

Ved ikke om dette virker i Access97 ... men til alm. inspiration ...

Private Sub GanttChartUpdate_Click()
  Dim stDocName As String
  Dim stLinkCriteria As String
  Dim FilPlacering As String
   
  FilPlacering = DLookup("[Excel_Filplacering]", "tblFilplacering")
   
    OpdaterAlt
       
    DoCmd.SetWarnings False
        DoCmd.RunSQL "DELETE *.* FROM tblGantt_OCX_Data"
    DoCmd.OpenQuery "qryOpdatérGanttData", acNormal, acEdit
        DoCmd.SetWarnings True

    DoCmd.TransferSpreadsheet acExport, 8, "tblGantt_OCX_Data", FilPlacering & "ExcelGantt.xls", True, "Rådata!A1:G7"
   
    runXL

End Sub

Sub runXL()
  Dim myXLWrkBk
  Dim FilPlacering As String
  On Error Resume Next

  FilPlacering = DLookup("[Excel_Filplacering]", "tblFilplacering")

  'Open connection to XL workbook and make visible.
    Set myXLWrkBk = GetObject(FilPlacering & "ExcelGantt.xls")
    myXLWrkBk.Application.Visible = True
    myXLWrkBk.Application.Windows("ExcelGantt").Visible = True
 

'Run procedure in ThisWorkBook folder.
    myXLWrkBk.Application.Run "ThisWorkBook.Auto_Aktiver"
   
End Sub

Dette burde virke:
Dim kommando As String
kommando = "c:\programmer\microsoft office\office10\Excel.exe /r ""C:\min mappe\test.xls"""
Call Shell(kommando)

jensen363: Der må være en lettere måde end at skulle til at lave Excel objecter og sådan noget.

rbj_fp: Desværre, samme resultat.

Du skal jo lige rette placering af excel.exe filen... Det virker fint for mig.

rbj_fp: Stien er selvfølgelig rettet, men derfor virker det stadig ikke. Excel kommer stadig med den nævnte fejl. Bruger du også Office97 !?

Bruger accessXP, men filen blev konverteret til Access 97 format, og den virkede stadigvæk...

Prøv denne:

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

Hvis du får en fejl "Object Is not found in This Library", mangler du en reference til Excel.

mugs: Det virker :)

Tak for hjælpen til jer alle.

Tak for point.