Inoffizielles deutsches Xbase-Forum

Hallo, ich meine ich hätte das irgendwo im Forum schonmal gesehen, finde es allerdings nicht mehr.

Ich übernehme die Daten einer DBF-Datei nach Excel, allerdings passt bei einigen Spalten die Breite nicht.
Das Festlegen der Spaltenbreite sollte entweder automatisch gehen (autofit ?) oder, es wäre auch kein Problem, bei den "nichtpassenden" Spalten die richtige Breite manuell festzulegen.

Code: Alles auswählen

PROCEDURE main
  LOCAL oExcel, oBook
  LOCAL cDir  := CurDrive()+":\"+CurDir()
  //
  oExcel := CreateObject("Excel.Application")
  IF Empty( oExcel )
    MsgBox( "Excel ist nicht installiert!" )
    RETURN
  ENDIF
  //
  oExcel:DisplayAlerts := .F.
  oExcel:visible       := .T.
  oBook  := oExcel:workbooks:Open(cDir+"\Testdatei.dbf")
  //
  oBook:SaveAs( cDir+"\Testdatei.xls" , xlWorkbookNormal )
  //
  oExcel:Quit()
  oExcel:Destroy()
  //
RETURN

Hallo,

versuch es mal hiermit:

Code: Alles auswählen

oSheet:Columns(1):AutoFit()

Freundliche Grüsse,

Georg

georg hat geschrieben:versuch es mal hiermit:
Code: Alles auswählen
oSheet:Columns(1):AutoFit()

klappt leider nicht. Ich erhalte eine Fehlermeldung "unknown Variable Operation oSheet"

Hi,

oSheet referenziert im genannten Beispiel die aktuelle Tabelle im XLS (== oBook) und muss vorher natürlich gesetzt werden ... den genauen Befehl weiß ich jetzt aber nicht auswendig, suche nach "oSheet := oBook"
ich meine ActiveSheet() oder so ...

das habe ich gefunden ...
oSheet := oBook:workbooks:ActiveSheet

brandelh hat geschrieben: das habe ich gefunden ...
oSheet := oBook:workbooks:ActiveSheet

funktioniert leider auch nicht.Ich bekomme die Fehlermeldung

Object has no member with this name
Operation workbooks

wenn ich es so versuche:

Code: Alles auswählen

oSheet := oBook:ActiveSheet

kommt keine Fehlermeldung, die Tabelle geht in auf, zuckt ohne daß sich etwas verändert und Excel beendet sich

Hallo,

folgender Code funktioniert bei mir fehlerfrei:

Code: Alles auswählen

  ::oBook  := ::oExcel:workbooks:Add()
  ::oSheet := ::oBook:ActiveSheet
  ::oSheet:columns(1):autoFit()

Bertram Hansen hat geschrieben:Hallo,

folgender Code funktioniert bei mir fehlerfrei:
Code: Alles auswählen
  ::oBook  := ::oExcel:workbooks:Add()
  ::oSheet := ::oBook:ActiveSheet
  ::oSheet:columns(1):autoFit()

JA Danke, so funktioniert es.

Inoffizielles deutsches Xbase-Forum

optimale Spaltenbreite in Excel [erledigt]

optimale Spaltenbreite in Excel [erledigt]

Re: optimale Spaltenbreite in Excel

Re: optimale Spaltenbreite in Excel

Re: optimale Spaltenbreite in Excel

Re: optimale Spaltenbreite in Excel

Re: optimale Spaltenbreite in Excel

Re: optimale Spaltenbreite in Excel