Делаю выгрузку данных в эксель через OLE, всё выгружается замечательно. Только ширина столбцов везде одинаковая. Подскажите, плз, метод или свойство, которым можно принудительно установить ширину каждого столбца.

Columns("A:A").EntireColumn.AutoFit

Достаточно записать в Excel макрос, чтобы найти нужный метод...

Извинения автору за оффтоп, решил не создавать еще одну тему с таким- же названием
надо заменить ячейеки с 0 на дефисы, причем 0 встечаются в заголовках.

отлично работает, а когда пытаюсь заменить ячейки содержащие только 0 ничего не получается.

Подскажите как побороть можно.

Вполне рабочий код:


ексел, ужо сами создадите. )

Попробуйте поменять формат ячейки с общего и числового на текстовый.

#3 = 1 " xlWhole=1 xlPart=2
#4 = 2 " xlByRows=1 xlByColumns=2

?

Последнее помогло, спасибо
Подозревал что-то такое, даже под отладчиком в VB смотрел чему xlWhole равен. Оказалось ничему - поэтому не пробовал ;(

Наглость, конечно, однако... В этой связи вопросец имеется:
Нет ли в природе какого-нить парсера из VB-VBA макрокоманд и их параметров в ABAP?
Или, например, список методов и номеров констант, которые применимы в этих методах. Хотя бы самых необходимых.
У?

парсера vba в abap наверняка нет.. но идея хорошая
а константы ручками:

http://sapboard.ru/forum/viewtopic.php ... 0%ED%F2%FB

а так, это дело лежит в olb файлах(object library):
xl5en32.olb, msword.olb, msacc.olb, msppt.olb, msoutl.olb
их можно в студии #import-ом преобразовать в tlh и tli (type library header, implem-n),
в них объявление всего - классы, методы, константы.

Ыгыы... Гут.
Буду копать.
А, по МСДНу шариться - нету столько интернету. )

А если ячейки объеденины как выкрутитесь?

Если в одной строке - не страшно. В одном столбце - тоже.
Если несколько строк и столбцов, - то здесь удобнее перенос по словам применить, ИМХО. Или, пусть Эксел сам выкручивается.
Но я такого не делаю. Обьединять и форматировать из АВАРа.. - брррр, геморно. Достаточно выгрузить, показать, изменить и загрузить.
для отчетов есть обычный список и любимый WRITE: .

Необходимо в Excel заменить ggg на 555, причем ggg может стоять не всегда в конкретной ячейке и не в одном месте, может встретиться в любой ячейке листа, помогите преложить макрос на Abap

Cells.Replace What:="ggg", Replacement:="555", LookAt:=xlPart,
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False,
ReplaceFormat:=False

Перенос по словам здесь не поможет, так как он не раздвигает по высоте ячейки

наподобие такого
http://sapboard.ru/forum/viewtopic.php?t=9807 ? помню тоже намучился...