FiveTech Software tech support forums

... 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

Joao:

Excelente, eso me agrega la hoja, pero la pone al frente de la hoja activa, quiero que quede atrás de la hoja activa
He visto que Excel tiene el método oExcel:WorkSheets:AddAfter() pero me tira un error. alguna idea?

Saludos

deberias cambiarlo por:

local oExcel := CreateObject( "excel.application" )
local oBook := oExcel:Workbooks:Add()
local oSheet := oBook:Worksheets( 1 )

Saludos

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() ) )

... 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, Byron ...

... with service items, inventory, accounting, and of course workorders that are used to create invoices ( or estimates, counter sales, technician worksheets, etc ), and also to review service histories for anything that the business works upon. Other methods have to do with tax systems for clients, ...

... with service items, inventory, accounting, and of course workorders that are used to create invoices ( or estimates, counter sales, technician worksheets, etc ), and also to review service histories for anything that the business works upon. Other methods have to do with tax systems for clients, ...

James, I use "workorders" to create estimates, invoices, counter sales, and technician worksheets. To open a workorder, I use this call: oWorkorder := TWorkorder():New( cWorkID ) WIthin that method, everything is handled. Each workorder has a unique ...

Thanks

How do I specify only certain worksheets in the files ?

Regards
ACWoo
Using FWH1510

Hello, I tested it with oExcel = CREATEOBJECT( "Excel.Application" )oSheet:= oExcel:WorkSheets('MYPAGE')  but I get an error Error description: Error Excel.Application/16389 E_FAIL: WORKSHEETS Args: [ 1] = C MYPAGE on the line with oSheet:= oExcel:WorkSheets('MYPAGE')

... with sheet names. After selecting the sheet I want to use, the program use that sheet, and get the information of that sheet oSheet:= oExcel:WorkSheets(cSheetSelectedFromButton) regards

... TRY oExcel := CreateObject( "Excel.Application" ) CATCH RETURN END END nPage := 1 nRow := 1 oBook := oExcel:WorkBooks:Add() oAS := oBook:Worksheets(1) oAs:Name := 'REPORT' oAS:Cells:Font:Name := "Arial" oAS:Cells:Font:Size := 10 oAs:PageSetup:PrintGridLines := .F. oAs:PageSetup:Orientation ...

You can try something like this:

FOR nI := 1 TO oExcel:sheets():Count

do_whatever_you_want( oExcel:Worksheets( nI ):name )

NEXT

... function Main() local oExcel := CreateObject( "excel.application" ) local oBook := oExcel:Workbooks:Add() local oSheet := oBook:Worksheets( 1 ) oSheet:Range( "A1" ):Value = "Last Name" oSheet:Range( "B1" ):Value = "First Name" oSheet:Range( ...

... := CreateObject( "excel.application" ) local oBook := oExcel:Workbooks:Add() local oSheet oSheet:=oExcel:ActiveSheet oSheet:=oBook:Worksheets( 1 ) oSheet:Shapes:AddTextbox(1, 50, 125, 250, 130):TextFrame:Characters:Text = "EMPRESA PRINCIPAL" ESTO COMO LO PASO A FIVEWIN ...