none
XAC, ; (semikolon) i kommandostreng

    Spørgsmål

  • Hejsa,

    Jeg roder med Excel og Querytables i C5 2012 via XAC.
    Men jeg har et problem med at parse ";" i en kommandostreng:
    SET &xlQTable = #Invoke(OBJ,&xlWs,'QueryTables.Add(Connection:="TEXT;+C:\\C5\\ExcelFil.txt",Destination:=Range("A1"))')

    Men da man kan fyre flere kommandoer af via ; i XAC, tror afvikleren af strengen slutter efter "TEXT
    Hvad gør jeg for at få den til at forstå mine hensigter. :-)

    Pft.
    Mvh.
    Mads

    15. august 2013 13:31

Svar

  • Så er der hul igennem. 
    Det var lidt for overdreven brug af "" . :-)

    SET &xlQtable = #Invoke(OBJ,&xlWs,'Querytables.Add(Connection:= #1, Destination:= #2 )',#S('TEXT:C:\\C5\\ExcelFil.txt'),#O(&xlRange))
    Så kører det. :)

    19. august 2013 09:33

Alle besvarelser

  • Nå nu kom jeg lidt videre.
    Men får en fejl når jeg prøver at add querytable.

    Koden er her:

    SET &xlRange = #PropGet(Obj,&xlWs,'Cells(#1,#2)',#I(1),#I(1))
    SET &xlQtables = #PropGet(Obj,&xlWs,'QueryTables')
    SET &xlQtable = #Invoke(OBJ,&xlQtables,'Add(Connection:= "#1", Destination:= #2 )',#S('""TEXT:C:\\C5\\ExcelFil.txt""'),#O(&xlRange))

    Det burde være det sammme som 
    SET &xlQtable = #Invoke(OBJ,&xlWs,'Querytables.Add(Connection:= "#1", Destination:= #2 )',#S('""TEXT:C:\\C5\\ExcelFil.txt""'),#O(&xlRange))


    Men begge dele virker meget ringe, nedenstående fejl kommer:

    XAC afviklingsfejl:
    Kald af: Add(Connection:= "#1", Destination:= #2 )
    Metode/Egenskab: 'Add'
    Ingen fejlinformation tilgængelig
    Error code: 0x80020009
    Error text: Exception occurred.
    6035

    16. august 2013 08:33
  • Så er der hul igennem. 
    Det var lidt for overdreven brug af "" . :-)

    SET &xlQtable = #Invoke(OBJ,&xlWs,'Querytables.Add(Connection:= #1, Destination:= #2 )',#S('TEXT:C:\\C5\\ExcelFil.txt'),#O(&xlRange))
    Så kører det. :)

    19. august 2013 09:33