Exportar de excel a visual fox
Publicado por Pedro (4 intervenciones) el 08/09/2007 01:39:09
Hola tengo este codigo pero me marca error que no encuentra el archivo de pagos
no se que estoy haciendo mal
me urge exportar una hoja de excel a visual fox
pagos.xls a pagos.dbf
me pueden decir el error que estoy comentiend
oExcel = createObject('Excel.Application')
oWorkbooks = oExcel.Workbooks.open(pagos) aqui es donde me marca error
Son = oWorkbooks.ActiveSheet.UsedRange.Rows.Count
Son1 = oWorkbooks.ActiveSheet.UsedRange.Columns.Count
if son > 1
With oWorkbooks.ActiveSheet
&& FILA = FILAS DE EXCEL
&& COLUMNA = COLUMNAS DE EXCEL
For FILA = 2 to son
VALOR_DE_LA_CELDA = .cells(FILA,columna).value
SELE pagos
APPEND BLANK
REPLACE auto WITH auto
replace docto with docto
replace fec_venc with fec_venc
replace importe wiTH importe
Endfor
Endwith
ENDIF
no se que estoy haciendo mal
me urge exportar una hoja de excel a visual fox
pagos.xls a pagos.dbf
me pueden decir el error que estoy comentiend
oExcel = createObject('Excel.Application')
oWorkbooks = oExcel.Workbooks.open(pagos) aqui es donde me marca error
Son = oWorkbooks.ActiveSheet.UsedRange.Rows.Count
Son1 = oWorkbooks.ActiveSheet.UsedRange.Columns.Count
if son > 1
With oWorkbooks.ActiveSheet
&& FILA = FILAS DE EXCEL
&& COLUMNA = COLUMNAS DE EXCEL
For FILA = 2 to son
VALOR_DE_LA_CELDA = .cells(FILA,columna).value
SELE pagos
APPEND BLANK
REPLACE auto WITH auto
replace docto with docto
replace fec_venc with fec_venc
replace importe wiTH importe
Endfor
Endwith
ENDIF
Valora esta pregunta


0