if lHasHeaders
aHead := oRange:Rows( 1 ):Value
if ValType( aHead ) == 'A'
aHead := ArrTranspose( aHead )[ 1 ]
endif
nRows--
oRange := oRange:OffSet( 1, 0 ):Resize( nRows )
endif
if lHasHeaders
aHead := xlRangeValue( oRange:Rows( 1 ) )[ 1 ]
nRows--
oRange := oRange:OffSet( 1, 0 ):Resize( nRows )
endif
nageswaragunupudi wrote:Can you please implement this change?
file fwh\source\function\dbffunc2.prg
function FW_ExcelToDBF(...)
Please locate this code:
- Code: Select all Expand view
if lHasHeaders
aHead := oRange:Rows( 1 ):Value
if ValType( aHead ) == 'A'
aHead := ArrTranspose( aHead )[ 1 ]
endif
nRows--
oRange := oRange:OffSet( 1, 0 ):Resize( nRows )
endif
Please replace this block with this code.
- Code: Select all Expand view
if lHasHeaders
aHead := xlRangeValue( oRange:Rows( 1 ) )[ 1 ]
nRows--
oRange := oRange:OffSet( 1, 0 ):Resize( nRows )
endif
After making this change test with both old and new versions of Harbour.
Return to FiveWin for Harbour/xHarbour
Users browsing this forum: No registered users and 55 guests