FiveTech Software tech support forums

... esta a la derecha. La segunda opción me da error y no la puedo poner en marcha Encontré por el foro la siguiente instrucción oBook := oExcel:ActiveWorkbook:Sheets:Add( oExcel:ActiveWorkbook:Worksheets( oExcel:ActiveWorkbook:Worksheets:Count() ) ) Pero actúa como el primer caso

Hola, como puedo "bloquear" una o varias celdas de una hoja de excel, es decir que el usuario no pueda modificar dichas celdas pero si pueda abrir el archivo excel

oExcel:ActiveWorkbook:password="12345"

Con esto protejo todo el archivo, pero no es lo que necesito
Gracias

... := Alltrim(aInven->Descript) nRen:=nRen +1 IF nRen=57 nRen:=7 nCol:=nCol + 3 ENDIF Skip 1 Enddo objExcel:Get("ActiveWorkBook"):SaveAs(cFile) objExcel:WorkBooks:Close() objExcel:Quit() Se interrumpe y marca error en: objExcel:Cells(nRen,nCol):Value := Alltrim(aInven->Descript) ...

byron.hopp wrote:Dim sheet As Worksheet
Set sheet = ActiveWorkbook.Sheets.Add(After:=ActiveWorkbook.Worksheets(ActiveWorkbook.Worksheets.Count))

Try

Code: Select all  Expand view

oSheet := oExcel:ActiveWorkbook:Sheets:Add( oExcel:ActiveWorkbook:Worksheets( oExcel:ActiveWorkbook:Worksheets:Count() ) )

All, I am puzzeled on how to use some of the methods in Excel, because the parameter passing is unusual. Dim sheet As Worksheet Set sheet = ActiveWorkbook.Sheets.Add(After:=ActiveWorkbook.Worksheets(ActiveWorkbook.Worksheets.Count)) Is there a way to make this work in Harbour / Fivewin? Thanks, ...

hi, I know that GetExcelRange function works with this parameters ( cBook, cSheet, acRange, lOpened ) function defaults to ActiveWorkBook, ActiveSheet and UsedRange, if the corresponding parameters are not specified. I Have a lot of excel files (cBook) and inside there are 1 or n sheets ...

... forma este que si cerrarse. para crear uno: oExcel:=TOleAuto():New("Excel.Application") oExcel:WorkBooks:Add() oBook :=oExcel:Get("ActiveWorkBook") oSheet:=oExcel:Get("ActiveSheet") cTmpXls:=NombreTmp('XLS') oBook:SaveAs(cTmpXls,xlWorkbookNormal) // xlWorkbookNormal ...

... static procedure OnInitExcel(oExcel) /* */ SetWindowLong(oExcel:hWnd,-16,"L") oExcel:DisplayAlerts := .F. oExcel:ActiveWorkBook:Protect('',.f.,.f.) //Para poder manupilar el estado de la venta del libro oExcel:WindowState := -4137 //Se quitan los botones de maximizar, ...

SGS, veja o link https://msdn.microsoft.com/pt-br/librar ... 94819.aspx
tem um exemplo em VBA

algo do tipo
ActiveWorkbook.Close SaveChanges:=False

talvez ajude


e

http://www.pctoledo.com.br/forum/viewto ... =4&t=14925

oExcel:ActiveWorkBook:SaveAs(cARQ,50)

... static procedure OnInitExcel(oExcel) /* */ SetWindowLong(oExcel:hWnd,-16,"L") oExcel:DisplayAlerts := .F. oExcel:ActiveWorkBook:Protect('',.f.,.f.) //Para poder manupilar el estado de la venta del libro oExcel:WindowState := -4137 //Se quitan los botones de maximizar, ...

... the function returns the Excel Range object. Return value of NIL indicates failure. GetExcelRange() returns UsedRange from the ActiveSheet of the ActiveWorkBook if the user has already opened any. GetExcelRange( cExcelFile ) returns UsedRange of ActiveSheet of <cExcelFile> GetExcelRange( ...

Saludos. Creo un objeto oREPORTE:=TOleAuto():New("Excel.Application") oREPORTE:WorkBooks:Add() oBook:=oREPORTE:Get("ActiveWorkBook") oSheet:=oREPORTE:Get("ActiveSheet" ) voy formando mi cadena de texto para en su momento con el portapapeles pegar oClip:=TClipBoard():New() ...

... problema es que no encuentro cómo guardar (salvar) el libro permitiendo al usuario elegir donde guardarlo? Lo he intentado con oExcel:Get("ActiveWorkBook"):SaveAs() pero no da opción de elegir el path y el nombre. Saludos

... [in] BSTR ) STDCALL dispatch PROPERTYGET IDispatch ActiveSheet() STDCALL dispatch PROPERTYGET PTR ActiveWindow() STDCALL dispatch PROPERTYGET PTR ActiveWorkbook() STDCALL dispatch PROPERTYGET PTR AddIns() STDCALL dispatch PROPERTYGET PTR Assistant() STDCALL dispatch FUNC void Calculate() STDCALL ...

... que hacer varios cambios, como: // oHoja:= oExcel:Get( "ActiveSheet" ) cambiado por: oHoja:= oExcel:ActiveSheet // oExcel:Get( "ActiveWorkbook" ):Save() cambiado por: oExcel:ActiveWorkbook:Save() curDrive() cambiado por: hb_curDrive() GetCurDir() ahora devuelve también la ...