for lnI = 1 to m.lnCols .Cells(1,laFieldNames[m.lnI,3]).value = laFieldNames[m.lnI,1] .columns[m.lnI].autofit() try if .columns[m.lnI].columnwidth < 50 ** To make sure long descriptions fit .columns[m.lnI].columnwidth = .columns[m.lnI].columnwidth * 5 endif catch to loRangeProblem * Let's ignore this error with the range and column width endtry nextand later
*#DEFINE xlDBF3 8 *#DEFINE xlDBF4 11 loExcel.ActiveWorkbook.saveas(m.tcDbfFile, 11)However, long columns are still truncated. The length of the info in the column is 175 chars, but my output file has only 110 chars. The other column also has just 112 chars, but it should be wider.