FiveTech Software tech support forums

A mi me ha funcionado poniendo así:

vconcepto:=strtran(alltrim(oHoja:Cells( nrow, 5 ):Value),chr(10),CRLF)

Espero que le sirva a quien lo necesite.

Un saludo

... y al pasarlo de la siguiente mamera a un campo memo en el fichero dbf lo hace obviando el intro (ALT+INTRO) vconcepto:=alltrim(oHoja:Cells( nrow, 5 ):Value) y queda así: "RETIRADA DE PAVIMENTO. Demolición del pavimento, capa de nivelación e impermeabilización existentes. ...

... "Excel.Application" ) oExcel:Visible := .T. // Muestra en pantalla la planilla Excel oBook := oExcel:Workbooks:Open( cFile ) oHoja := oExcel:Get( "ActiveSheet" ) nTotRowCount := oHoja:UsedRange:Rows:Count() * y me da el error: Error description: Error toleauto/65535 ...

... oExcel:sheets:Add() o también puedes después del oExcel:sheets:Add() moverla a la ultima posición: oExcel:sheets:Add() oHoja := oExcel:ActiveSheet() oHoja:Move(,oExcel:Workbooks:Sheets:Count()) //Ojo debe ser el segundo parámetro de Move

... ) RETURN(.F.) Endif oExcel := TOleAuto():New("Excel.Application") oExcel:WorkBooks:Add() oExcel:sheets("Hoja3"):Select() oHoja:=oExcel:ActiveSheet() oExcel:sheets:Add() Saludos Juan Jose

... objExcel = TOleAuto():New("Excel.Application") objExcel:Visible := .T. objExcel:Workbooks:Add() objExcel:Sheets("Hoja1") oHoja:=objExcel:ActiveSheet() oHoja:Shapes:AddPicture("C:\Prueba\logo.jpg",.t.,.t.,10,5,88,80) objExcel:Cells(1, 5):Font:bold := .T. objExcel:Cells(1, ...

Encontre esto en internet, parece que se hace asi:

oHoja:Range( oHoja:Cells( 1, 20 ) ):merge()

Probare con un ejemplo y les cuento, que logre. Sigo buscando.

... press a button, and than select the excell-sheet (in case if more than 1 sheet is open) that the program have to modify/use. Thanks Intenta asi... oHoja := oExcel:ActiveSheet() // SINO ESPECIFICAS QUE HOJA, TOMARA POR DEFECTO LA HOJA1 oExAngu:Sheets("COLUMNAS"):Select() // SELECCIONO ...

Noe:

Muchas gracias, parece que las líneas

nRows := oHoja:UsedRange:Rows:Count()
nCols := oHoja:UsedRange:Columns:Count()

Son las que me sacarán del problema.

Saludos

... archivo de excel y como cerrarlo Tengo esto: oExcel:=TOleAuto():New( "Excel.Application" ) oExcel:WorkBooks:Open('C:\tmp\agricola.xlsx') oHoja := oExcel:Get( "ActiveSheet" ) ... proceso oExcel:Quit() si lo habre, pero de alguna forma este que si cerrarse. para crear uno: oExcel:=TOleAuto():New("Excel.Application") ...

... los errores que da en los dos casos, y si es con los argumentos del error, mejor. En todo caso hay un error en el codigo aqui porque, a no ser que oHoja retome valor, en la linea se usa antes de que tome valor.: oExcel:oHoja("Hoja1") ; oHoja:=oExcel:ActiveSheet()

... en mi computadora, pero en la del cliente no. Alguna idea? Dejo trozo de código. Saludos y gracias. Ruben Dario Fernández Me da error en oExcel:oHoja("Hoja1") y oHoja:Cells:Font:Name := "Arial" Esto funciona bien en Excel 32 bits. oExcel := ExcelObj()If oExcel == ...

... abrir archivos de excel y poder leer su informacion, usando oExcel :=TOleAuto():New("Excel.Application") oExcel:WorkBooks:Open(cFilePol) oHoja :=oExcel:Get("ActiveSheet") pero no se cual de estas 3 instrucciones tarda demasiado, una vez abierto ya es muya rapida su lectura. ...

... ) // Así también funciona oExcel := TOleAuto():New( "Excel.Application" ) oExcel:WorkBooks:Open(ALLTRIM(oDdf:FIL)) oHoja := oExcel:Get( "ActiveSheet" ) Fijate que me marca este error Path and name: P:\Fuentes\xHarbour\NomEle\BIN\NomEle.Exe (32 bits) Size: ...

... al leer un campo numérico que tiene 6 decimales, solo me guarda el valor en la variable redondeado a 2 decimales, ejemplo : nNec:=0.000000 nNec:=oHoja:Cells(nRow, 11):Value // En esta posición hay un valor en el Excel de : 3.105674768 ? nNec Me retorna 3.11, no conserva los decimales, gracias ...