Excel + FoxPro
Alexander Siegl
Ich möchte gerne in Excel eine Datei öffnen, diese bearbeiten und dann als
DB4 abspeichern.
Das ganze steuere ich über FoxPro.
Das einzige was noch nicht klappt, ist das abspeichern als DB4 Datei, mit
der SaveAs-Methode
Beispiel:
cObj = CreateObject("Excel.Applikation")
cObj.Workbooks.OpenText("C:\Foxpro\TEST.txt")
cObj.Cells.Select
cObj.Selection.Columns.Autofit
cObj.Range("A1").Select
.......
*!* Nun möchte ich dieses gerne im DB4-Format speichern
cObj.ActiveWorkbook.SaveAs("C:\FoxPro\xlTest.dbf")
*!* Speichern klappt, aber wenn ich diese xlTest.dbf in FoxPro öffnen
möchte, bekomm ich
*!* die Fehlermeldung "Keine gültige Tabelle"
Was muss ich als zusätzlichen Parameter eingeben, damit dies im DB4-Format
abgespeichert wird ????
(Beispiel wäre hilfreich)
Vielen Dank für Eure Hilfe
Alex
Wolfgang Schmale
Versuch doch mal:
ActiveWorkbook.SaveAs FileName:="C:\myDBF.dbf" , FileFormat:=xlDBF4
So habe ich das aus dem VBA-Editor übernommen. Das Problem an der Sache ist,
daß VFP keine "Named Parameters" kennt. Damit muß man die Reihenfolge der
Parameter genau einhalten. Also in der VBA-Excel-hilfe nachgeschaut und
folgende Syntax gefunden:
Ausdruck.SaveAs(cFilename, cFileFormat, Password, WriteResPassword,
ReadOnlyRecommended, CreateBackup, AccessMode, ConflictResolution, AddToMru,
TextCodePage, TextVisualLayout)
Für alle Parameter, die Du nicht brauchst kannst einfach 2 Kommata
hintereinander [,,] setzen. Das ist allerdings nur dann nötig, wenn weitere
Parameter, die weiter hinten in der Liste stehen benötigt werden.
Dein Beispiel würde also lauten:
cObj.ActiveWorkbook.SaveAs("C:\FoxPro\xlTest.dbf","xlDBF4")
Eine andere Möglichkeit ist in Excel ein Makro für diese Aufgabe
aufzuzeichnen, daß dann bei Bedarf wie ein normaler VBA-Befehl aufgerufen
wird.
Hoffe, daß ich etwas zu "Vernebelung" des Problems beigetragen habe.
--
Mit freundlichen Grüßen
Wolfgang Schmale
Anders Altberg
#DEFINE xlDBF4 11
cObj.ActiveWorkbook.SaveAs("C:\FoxPro\xlTest.dbf",xlDBF4)
-Anders
"Wolfgang Schmale" <w_sc...@owl-online.de> wrote in message
news:8vp04d$sde$1...@riker.addcom.de...
Alexander Siegl
mit #Define hat es geklappt !
Danke !
Alex
"Anders Altberg" <pra...@telia.com> schrieb im Newsbeitrag
news:#c1nNNxVAHA.248@cppssbbsa03...