You signed in with another tab or window. Reload to refresh your session.You signed out in another tab or window. Reload to refresh your session.You switched accounts on another tab or window. Reload to refresh your session.Dismiss alert
Good evening.
Today, I again have to fill an Excel file with numbers from DBF. The code works somewhat in R38 but raises an error in R42.
The problem in R38 is again the codepage. Even when explicitly set to 1251, it changes the text inside the cells that I didn't change with the code explicitly.
I switched to R42, as there were some improvements there. Now, the file doesn't even open properly. I get Error 8 about BestFit (Field BESTFIT does not accept null values) while opening the file. I didn't even start working with it. I attached the file and the XML specifically. I tried resaving the original workbook with Excel or LibreOffice, but with the same result.
The sample code is below. Here, I just add one value.
lcFile = "Шаблон_ЗПЗ.xlsx"
SET CLASSLIB TO "vfpxworkbookxlsx" ADDITIVE
loExcel = CREATEOBJECT("vfpxworkbookxlsx")
loExcel.DefaultFont = "Times New Roman"
loExcel.DefaultFontSize = 12
loExcel.Codepage = 1251
lnWb = loExcel.openxlsxworkbook(lcFile)
col_start = ASC("D") - ASC("A") +1
test1 = 8
cur_cell_value = ALLTRIM(LOWER(CAST(loExcel.GetCellValue(lnWb, 2, 8, col_start+0) as C)))
IF cur_cell_value != "x" THEN
loExcel.SetCellValue(lnWb, 2, 8, col_start+0, test1)
ENDIF
loExcel.SaveWorkbookAs(lnWb, TempBaseDir + "test.xlsx")
RELEASE loExcel, lnWb
Good evening.
Today, I again have to fill an Excel file with numbers from DBF. The code works somewhat in R38 but raises an error in R42.
The problem in R38 is again the codepage. Even when explicitly set to 1251, it changes the text inside the cells that I didn't change with the code explicitly.
I switched to R42, as there were some improvements there. Now, the file doesn't even open properly. I get Error 8 about BestFit (Field BESTFIT does not accept null values) while opening the file. I didn't even start working with it. I attached the file and the XML specifically. I tried resaving the original workbook with Excel or LibreOffice, but with the same result.
The sample code is below. Here, I just add one value.
Шаблон_ЗПЗ.xlsx
sheet1.xml
It seems that there is a similar issue #90, but I can't be sure
The text was updated successfully, but these errors were encountered: