There is no problem to be resolved.
We just need to be aware of the differences of behavior between VB vs. (x)Harbour and write our code accordingly.
Please use the sample code I provided above and that works well
Search found 1729 matches
- Mon Jan 06, 2025 9:04 am
- Forum: FiveWin for Harbour/xHarbour
- Topic: to Excel : using Array and "paste" it
- Replies: 6
- Views: 477
- Tue Dec 24, 2024 3:57 pm
- Forum: FiveWin for Harbour/xHarbour
- Topic: To all the FW family
- Replies: 10
- Views: 575
Re: To all the FW family
Wish all friends Merry Christmas and Happy and Prosperous New Year
- Tue Dec 24, 2024 8:02 am
- Forum: FiveWin for Harbour/xHarbour
- Topic: Open XLS without Excel
- Replies: 11
- Views: 839
Re: Open XLS without Excel
Hi Rao,
Thank you. However, this XLS has 494 columns and about 23,000 rows. I am looking to start reading row 2 and only retrieve about 80 columns of data so I can upload to SQL. Is there a way to read data row by row like below?
cValue01 := oSheet:Cells( nCurrentXlsRow, 2 ):Value
cValue02 ...
Thank you. However, this XLS has 494 columns and about 23,000 rows. I am looking to start reading row 2 and only retrieve about 80 columns of data so I can upload to SQL. Is there a way to read data row by row like below?
cValue01 := oSheet:Cells( nCurrentXlsRow, 2 ):Value
cValue02 ...
- Tue Dec 24, 2024 5:11 am
- Forum: FiveWin for Harbour/xHarbour
- Topic: New: Read/Edit/Save XLSX files without Excel/ADO
- Replies: 2
- Views: 250
Re: New: Read/Edit/Save XLSX files without Excel/ADO
Recommendations while using very large xlsx files:
In such cases, most of the times, we won't be interested in reading and browsing the entire table, but only extracting limited information required.
We may adopt this approach:
oXl := FW_OpenXlsx( cFileXlsx, [cSheet] )
? oXl:nRows, oXl:nCols
aData ...
In such cases, most of the times, we won't be interested in reading and browsing the entire table, but only extracting limited information required.
We may adopt this approach:
oXl := FW_OpenXlsx( cFileXlsx, [cSheet] )
? oXl:nRows, oXl:nCols
aData ...
- Tue Dec 24, 2024 4:32 am
- Forum: FiveWin for Harbour/xHarbour
- Topic: New: Read/Edit/Save XLSX files without Excel/ADO
- Replies: 2
- Views: 250
New: Read/Edit/Save XLSX files without Excel/ADO
Next version of FWH under release enable reading, modifying and also saving the changes (to another xlsx file) without Excel or ACE OLEDB installed on the PC.
Simple Usage:
FW_ShowXLSX( cFileXlsx, [cSheet] ) // --> oXlsx object
Examples:
FW_ShowXLSX( "customer.xlsx" )
https://imagizer ...
Simple Usage:
FW_ShowXLSX( cFileXlsx, [cSheet] ) // --> oXlsx object
Examples:
FW_ShowXLSX( "customer.xlsx" )
https://imagizer ...
- Sat Dec 21, 2024 11:53 am
- Forum: FiveWin for Harbour/xHarbour
- Topic: On every desktop, a web server at your fingertips
- Replies: 5
- Views: 402
- Sat Dec 14, 2024 4:09 pm
- Forum: FiveWin para Harbour/xHarbour
- Topic: Cambiar MsgYesNo
- Replies: 6
- Views: 554
Re: Cambiar MsgYesNo
ThanksInvestigando, un poco, se podría usar TaskDialog del API de Windows (ChatGPT), y pasandolo a Harbour:
- Sat Dec 14, 2024 6:42 am
- Forum: FiveWin for Harbour/xHarbour
- Topic: xHarbour to Harbour
- Replies: 14
- Views: 851
Re: xHarbour to Harbour
This is my personal opinion.
The conversion should not be difficult for those who already has been programming in both Harbour and xHarbour. Mr. Otto is one of them.
We know FWH software is written to work with both Harbour and xHarbour providing identical functionality with either compiler. It has ...
The conversion should not be difficult for those who already has been programming in both Harbour and xHarbour. Mr. Otto is one of them.
We know FWH software is written to work with both Harbour and xHarbour providing identical functionality with either compiler. It has ...
- Fri Dec 13, 2024 3:53 am
- Forum: FiveWin for Harbour/xHarbour
- Topic: xbrowse icon and filter
- Replies: 7
- Views: 385
Re: xbrowse icon and filter
#include "fivewin.ch"
function Main()
local aData, aclr := { "AR", "AB", "AC", "AO" }
aData := {{"Homers","Springfield",50,"AB"},;
{"Ceci", "Miami", 28,"AC"},;
{"Reg", "Scottsdale", 43,"AO"},;
{"David", "Hingham", 34,"AR"},;
{"Hugh", "Tarzana", 89,"AB"} }
XBROWSER aData SETUP ( ;
oBrw ...
function Main()
local aData, aclr := { "AR", "AB", "AC", "AO" }
aData := {{"Homers","Springfield",50,"AB"},;
{"Ceci", "Miami", 28,"AC"},;
{"Reg", "Scottsdale", 43,"AO"},;
{"David", "Hingham", 34,"AR"},;
{"Hugh", "Tarzana", 89,"AB"} }
XBROWSER aData SETUP ( ;
oBrw ...
- Thu Dec 12, 2024 4:55 pm
- Forum: FiveWin for Harbour/xHarbour
- Topic: xbrowse, ICO and line height
- Replies: 2
- Views: 300
Re: xbrowse, ICO and line height
yesSilvio.Falconi wrote::nRowHeight := your number
- Wed Dec 11, 2024 2:25 pm
- Forum: FiveWin for Harbour/xHarbour
- Topic: Open XLS without Excel
- Replies: 11
- Views: 839
Re: Open XLS without Excel
We are working on a new function
FW_ShowXLSX( cFileXlsx )
This is still needs to be finalized.
No libraries, drivers or OleDB providers are required.
This function directly reads from the xlsx file and extracts the data.
So this is guaranteed to work on an computer.
Example out put:
https ...
FW_ShowXLSX( cFileXlsx )
This is still needs to be finalized.
No libraries, drivers or OleDB providers are required.
This function directly reads from the xlsx file and extracts the data.
So this is guaranteed to work on an computer.
Example out put:
https ...
- Wed Dec 11, 2024 7:05 am
- Forum: FiveWin for Harbour/xHarbour
- Topic: Open XLS without Excel
- Replies: 11
- Views: 839
Re: Open XLS without Excel
I tried
oRs := FW_OpenADOExcelSheet( cSource, "Sheet1", "A1:SB65000", .T. )
And got the following errors
1. ADO ERROR UNKNOWN
2. Fail to open "XLS path + filename.XLSX"
By default, Microsoft Jet OLEDB is installed on every PC.
This default Jet OLEDB can open only "xls" files but not "xlsx ...
oRs := FW_OpenADOExcelSheet( cSource, "Sheet1", "A1:SB65000", .T. )
And got the following errors
1. ADO ERROR UNKNOWN
2. Fail to open "XLS path + filename.XLSX"
By default, Microsoft Jet OLEDB is installed on every PC.
This default Jet OLEDB can open only "xls" files but not "xlsx ...
- Tue Dec 10, 2024 2:45 pm
- Forum: FiveWin for Harbour/xHarbour
- Topic: Open XLS without Excel
- Replies: 11
- Views: 839
Re: Open XLS without Excel
Try opening an xlsx file with
Code: Select all | Expand
oRs := FW_OpenADOExcelSheet( cXlsxFile, [cSheet], [cRange], [lHeaders] )
XBROWSER oRs
- Tue Dec 10, 2024 1:59 pm
- Forum: FiveWin for Harbour/xHarbour
- Topic: Open XLS without Excel
- Replies: 11
- Views: 839
Re: Open XLS without Excel
They are for creating only. Not for readingCREATING XLSX FILES WITHOUT USING EXCEL APPLICATION.
- Mon Dec 09, 2024 3:41 pm
- Forum: FiveWin for Harbour/xHarbour
- Topic: create a circle colored in a dialog
- Replies: 5
- Views: 332
Re: create a circle colored in a dialog
#include "FiveWin.ch"
FUNCTION Main()
LOCAL oDlg
local aClrGrad[ 3 ]
aClrGrad[ 1 ] := { { 0.5, CLR_GREEN, CLR_HGREEN }, { 0.5, CLR_HGREEN, CLR_YELLOW }, "RING" }
aClrGrad[ 2 ] := { { 0.5, CLR_RED, CLR_HRED }, { 0.5, CLR_HRED, CLR_YELLOW }, "RING" }
aClrGrad[ 3 ] := { { 0.5, CLR_BLUE, CLR ...
FUNCTION Main()
LOCAL oDlg
local aClrGrad[ 3 ]
aClrGrad[ 1 ] := { { 0.5, CLR_GREEN, CLR_HGREEN }, { 0.5, CLR_HGREEN, CLR_YELLOW }, "RING" }
aClrGrad[ 2 ] := { { 0.5, CLR_RED, CLR_HRED }, { 0.5, CLR_HRED, CLR_YELLOW }, "RING" }
aClrGrad[ 3 ] := { { 0.5, CLR_BLUE, CLR ...