Now make XLSX class for read data but only data without styles
--
--
You received this message because you are subscribed to the Google
Groups "Harbour Users" group.
Unsubscribe: harbour-user...@googlegroups.com
Web: http://groups.google.com/group/harbour-users
---
You received this message because you are subscribed to the Google Groups "Harbour Users" group.
To unsubscribe from this group and stop receiving emails from it, send an email to harbour-user...@googlegroups.com.
To view this discussion on the web visit https://groups.google.com/d/msgid/harbour-users/ea7a82c0-bdee-4f39-bc33-c697af65f7ec%40googlegroups.com.
Hi SrdjanHave you updated your class?Verey thanks
De: "'Srdjan' via Harbour Users" <harbou...@googlegroups.com>
Para: "Harbour Users" <harbou...@googlegroups.com>
Enviados: Miércoles, 15 de Abril 2020 5:53:19
Asunto: [harbour-users] Read/write XLSX without OLENow make XLSX class for read data but only data without styles--
--
You received this message because you are subscribed to the Google
Groups "Harbour Users" group.
Unsubscribe: harbou...@googlegroups.com
Web: http://groups.google.com/group/harbour-users
---
You received this message because you are subscribed to the Google Groups "Harbour Users" group.
To unsubscribe from this group and stop receiving emails from it, send an email to harbou...@googlegroups.com.
aADD( ::aDrawinngsObjects, oDrawing )
aADD( ::aDrawingsObjects, oDrawing )
DO WHILE !EOF()
ii := 1
FOR ii := 1 TO iMax
cCell := Num2Cell(ii)+LTRIM(STR(nCount)) // A1 - ZZ1
xValue := FieldGet(ii)
oSheet1:Cell(cCell,xValue)
NEXT
nCount ++
oSheet:range( "A1:"+cEnde+LTRIM(STR(numRows)) ):value := aExcel
oExcel := WorkBook() :New(cExportTo)
c := DISKNAME() + hb_OSDriveSeparator() + hb_PS() + CURDIR()
DIRCHANGE( ::cTempDir )
FERASE( c + cSep + ::cName )
myzip( c + cSep + ::cName, "*.*", ::cTempDir )
DIRCHANGE( c )
hb_DirRemoveAll( ::cTempDir )
RETURN Self
DATA nMaxRow PROTECTED
DATA nMaxCol PROTECTED
oSheet1 := oExcel:WorkSheet( "Test1" )
ERROR BASE/1108 Argument Error: AT
#INCLUDE "hbclass.ch"
REQUEST HB_CODEPAGE_UTF8EX
REQUEST HB_GT_WIN_DEFAULT // Console
PROCEDURE MAIN( a )
LOCAL oExcel, oSheet1, oSheet2, nFont
hb_cdpSelect( 'UTF8EX' )
SETMODE( 25, 80 )
IF a == NIL
ALTD()
ENDIF
SET DATE FORMAT "dd.mm.yyyy"
oExcel := WorkBook() :New()
oExcel:Read( "sample.xlsx" )
oSheet1 := oExcel:WorkSheet( "Test1" )
? "A1=", oSheet1:Cell( "A1" ), "B1=", oSheet1:Cell( "B1" ), "C1=", oSheet1:Cell( "C1" )
? "A3=", oSheet1:Cell( "A3" ), "C3=", oSheet1:Cell( "C3" )
WAIT
RETURN
download new version
I change and upload new on 28.05.2020 6:02AM
--
--
You received this message because you are subscribed to the Google
Groups "Harbour Users" group.
Unsubscribe: harbour-user...@googlegroups.com
Web: http://groups.google.com/group/harbour-users
---
You received this message because you are subscribed to the Google Groups "Harbour Users" group.
To unsubscribe from this group and stop receiving emails from it, send an email to harbour-user...@googlegroups.com.
To view this discussion on the web visit https://groups.google.com/d/msgid/harbour-users/5e0d2d1e-20de-408e-ac30-1fb30a1651a3%40googlegroups.com.
It´s great jobHow i can download ?Is it a link ?ThanksBest Regards
El jue., 28 may. 2020 a las 9:10, 'Srđan' via Harbour Users (<harbou...@googlegroups.com>) escribió:
I change and upload new on 28.05.2020 6:02AM--
--
You received this message because you are subscribed to the Google
Groups "Harbour Users" group.
Unsubscribe: harbou...@googlegroups.com
Web: http://groups.google.com/group/harbour-users
---
You received this message because you are subscribed to the Google Groups "Harbour Users" group.
To unsubscribe from this group and stop receiving emails from it, send an email to harbou...@googlegroups.com.
Unsubscribe: harbour-user...@googlegroups.com
Web: http://groups.google.com/group/harbour-users
---
You received this message because you are subscribed to the Google Groups "Harbour Users" group.
To unsubscribe from this group and stop receiving emails from it, send an email to harbour-user...@googlegroups.com.
To view this discussion on the web visit https://groups.google.com/d/msgid/harbour-users/6c9c64d3-1254-4195-bfba-d41687819294%40googlegroups.com.
nRowLine := 1
GO TOP
DO WHILE !EOF()
ii := 1
FOR ii := 1
TO iMax
cField := aStructure[ ii ] [ DBS_NAME ]
cType := aStructure[ ii ] [ DBS_TYPE ]
nPosi := FIELDPOS( cField )
// made Function Public
cCell := ColumnIndexToColumnLetter(ii)+HB_NTOS(nRowLine)
xValue := FIELDGET( nPosi )
IF cType $ "CNDLM"
oSheet1:Cell( cCell, xValue )
ELSE
oSheet1:Cell( cCell, "unknown Type " + cType )
ENDIF
NEXT
nRowLine ++
IF ( nRowLine % nEvery ) = 0
nProz := CalcPos( nRowLine, nMax )
IF nProz > 100
nProz := 100
ENDIF
SetProperty( "ExportDbf", "ProgressBar_1", "Value", nProz )
ENDIF
SKIP
ENDDO
oExcel:Save()
hb_cdpSelect( cOldLang )
cOldLang := hb_cdpSelect( 'UTF8EX' )
SET DATE FORMAT "dd.mm.yyyy"
oExcel := WorkBook():New()
* oExcel:Read(cFile) // fail ... hm ... Path ?
* oExcel:Read( "sample.xlsx" ) // work ...
* oExcel:Read( "ARTIKEL.XLSX" ) // FAIL
oExcel:Read( "sokun.XLSX" ) // work ... hm
oSheet1 := oExcel:WorkSheet( "Test1" )
nRow := oSheet1:GetMaxRow()
nCol := oSheet1:GetMaxCol()
aData := oSheet1:GetArray()
msgInfo( "Row : "+LTRIM(STR(nRow))+" Col : "+LTRIM(STR(nCol)) )
hb_cdpSelect( cOldLang )
Error BASE/1132 Bound error array access Parameter : [ 1] = A { 6949 } [ 2] = N 6950
Called from WORKSHEET:READWORKSHEET(1076)
Called from WORKBOOK:READ(124)
Error BASE/1004 No exported method DEPTH Parameter : [ 1] = U NILi will try to make some Demos
Called from DEPTH(0)
Called from TXMLITERATOR:NEW(0)
Called from TXMLITERATORSCAN:NEW(0)
Called from WORKSHEET:READWORKSHEET(1044)
Called from WORKBOOK:READ(124)