ich möchte Daten aus Excel in eine Dbf übernehmen. Aber ich erhalten die Fehlermeldung
oSheetDat - unbekannte variable
Code: Alles auswählen
#include "activex.ch"
#include "excel.ch"
Function ExcelImport(oParent)
LOCAL oExcel, aExcelWerte:={}, cFile:=""
cFile:=FileDlg(oParent)
If empty(cFile)
Return Nil
Endif
// Erzeugen eines "Excel.Application"-Objektes
oExcel := CreateObject("Excel.Application")
IF Empty( oExcel )
MsgBox( "Excel ist nicht installiert" )
RETURN Nil
ENDIF
// Vermeiden von Nachrichten wie "Die Datei
// existiert bereits". Sicherstellen, dass
// die Excel-Anwendung sichtbar ist.
oExcel:DisplayAlerts := .F.
oExcel:visible := .T.
aExcelWerte:=oSheetDat:Range("A2:D54")
msgbox(var2lchar(aExcelWerte))
Return Nil