* Требуемая ширина столбца в пунктах
Local lnNeedWidth
lnNeedWidth =  100 

* Нужный столбец
Local loRange
loRange = loExcel.Range("A:A")

* Необходимо корректно "войти в цикл".
* Сделать первый "фиктивный шаг" присвоив текущее значение
newValue = loRange.ColumnWidth()

do while .T.
        * Задаю новую ширину в символах
        loRange.ColumnWidth(newValue)

        * Определяю полученную ширину в символах
        widthSymbols = loRange.ColumnWidth()

        * Определяю полученную ширину в пунктах
        widthPoints = loRange.width()

        * Вычисляю новое значение ширины в символах
        newValue = lnNeedWidth * widthSymbols / widthPoints

    * Цикл выполняется до тех пор, пока ширина в пунктах не приблизится к нужному значению
    * Равенство может получится разве что случайно, а точность менее чем  1  пункт невозможна! Зацикливается
    * В среднем, получается около  3  итераций цикла
    if abs(lnNeedWidth - widthPoints) <=  1 
        exit
    endif

enddo