FiveTech Software tech support forums

Mr. Rao,

I'm not use tdialog but I Use TFolderEx. TFolderEx each sheets is use tdialog. I just wanted to remind

My All tget controls of TFolderEx is perfectly works.

Best regards,

Exporting multiple tables to different Sheets/Tabs of one single ExcelBook: #include "fivewin.ch"REQUEST DBFCDXfunction Main()   local oXlsx   USE STATES SHARED NEW   USE WWONDERS SHARED NEW VIA "DBFCDX"   USE CUSTOMER ...

Some points: 1. I prefer adopting the sql approach than using ADOX. 2. We need to be aware of the limitations of creating Excel sheets using ADO. a) Whatever length we specify, all character columns are VarChar(255) b) Whatever numeric datatype, like int, numeric(w,d), etc we specify the ...

nageswaragunupudi wrote:I suggest creating one blank xlsx file and then copy it and use it to create our ado tables as sheets

Interesting .... Maybe code inside the sample ?

... own, without Excel. Or that may be very difficult. I suggest creating one blank xlsx file and then copy it and use it to create our ado tables as sheets

... delete them one by one. But if the file is large, it is VERY long. I can open a file in the program via ODBC and delete objects via a command like sheets(1):drawind:delete() . However, such a file opens VERY slowly via ODBC. Maybe someone has encountered something like this ?

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

No no he probado, pero supongo que antes del oExcel:sheets:Add() debes posicionarte en la última hoja, algo así: nultima := oExcel:Workbooks:Sheets:Count() oExcel:Sheets:Item(nultima):Select() oExcel:sheets:Add() o también puedes después del oExcel:sheets:Add() ...

... y me desplaza esta a la ultima posicion Hoja1, Hoja2, Hoja6, Hoja5, Hoja4, Hoja3 Existe alguna forma de que las hojas se añadan al final? como Sheets.Add After el codigo que utilizo es: oExcel := ExcelObj() // Inicio If oExcel == nil MsgInfo( "Excel no está instalado", "Informe" ...

... in the image you see I put the image below just to help me but in printing it is not printed also because in the printer I put the receipts as sheets of paper https://i.postimg.cc/m2yy8sn5/print.png I built a grid to understand what the exact position is compared to the one ...

Thanks Rao
This Works ,
is there a possibility to export more recordest in different Sheets of the same Excel file?
Maurizio

nageswaragunupudi wrote:GetExcelRange() can not open xls file, if it is already opened by any application other than Microsoft Excel.
Close Google Sheets and try.
Also give full path.

please I not open the xls file with another app
please do you see my test sample ?
the file orario.xlsx is on the root of exe

GetExcelRange() can not open xls file, if it is already opened by any application other than Microsoft Excel.
Close Google Sheets and try.
Also give full path.

... dbf with the corrected/linked header You can get a error if the exel file has more than 1 tab. I did not yet find a solution to select one of the sheets in exel if there are more than 1 #include "fivewin.ch"REQUEST DBFCDXfunction Main()   SET DATE BRITISH   SET CENTURY ON   SET ...

... cFile:="Prueba.xls" 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, ...