in meinem Programm gibt es eine einfache Funktion, um den Inhalt einer DBF-Datei nach Excel zu exportieren.
Funktionierte problemlos, bis einer auf die Idee kam das 2x hintereinander zu machen, wobei beim 2.Aufruf die xls-Datei geöffnet ist.
Kann ich das irgendwie vorher prüfen bzw. verhindern?
Code: Alles auswählen
xls_datei:=XbpFileDialog():new():create():saveas(Hauptpfad+"\Export\Testdatei.xls")
if !empty(xls_datei)
oExcel := CreateObject("Excel.Application")
IF Empty( oExcel )
MsgBox( "Um diese Funktion zu nutzen muss auf Ihrem Rechner Excel installiert sein!","Problem" )
RETURN
ENDIF
//
oExcel:DisplayAlerts := .F.
oExcel:visible := .F.
oBook := oExcel:workbooks:Open(Hauptpfad+"\Daten\MyDBF.dbf")
//
oBook:SaveAs( xls_datei , xlWorkbookNormal )
usw.