Здравствуйте всем.
Просматривая форумы «Планета Excel» и дружественных ему ресурсов, читая статьи о написании программ для автоматизации Excel,
о становлении профессионалов на путь занятия любимым делом –Excel, я осознала насколько много ещё не знаю об Excel, макросах и VBA. При этом если о последних двух я кое-что слышала, кое-что мне когда-то демонстрировали, а использовать их я начала совсем –совсем недавно, то Excel давно и пылко люблю. До недавнего времени считала себя опытным пользователем, а теперь, после близкого знакомства с VBA и макросами даже и не знаю к какой категории пользователей себя отнести.. Новые знания, они как Солнце, так ярко сияют, теплым светом манят, а применять их ещё у меня еле-еле получается (или не получается вовсе).

Но собственно, я не о себе вам хотела рассказать. И не поэтому так назвала свой пост. Когда-то давно, в 2010г. на портале «Buhonline.ru” напечатали мою статью для начинающих бухгалтеров, в которой я рассказывала об использовании Excel при разработке форм для ведения бухгалтерского учета. Наверное, с практической точки зрения для профессиональных программистов моя статья ничего не даст, но в комментариях к ней разгорелась дискуссия об использовании Excel , и об Excel как таковом. До сих пор помню, что одна из форумчан сравнила
Excel …с велосипедом.

Итак, если Вам интересно мнение пользователей об Excel -форумчан Бухонлайна (бухгалтеров, экономистов, юристов) , то вот комментарии к статье http://www.buhonline.ru/forum/index?g=posts&t=14815
Спасибо за внимание.

Галина

Здравствуйте.
Подскажите, пожалуйста, макрос для переноса файла в формате rtf в Excel .

Вот в этом топике http://www.planetaexcel.ru/forum/index.php?PAGE_NAME=read&FID=8&TID=18960
я взяла макрос

мой компьютер ругается "run time error..." вроде бы на вот эту строку макроса (подсвечивает желтым).
Value = Application.Transpose(Arr)
Как поправить правильно эту строку я не знаю, поискала ещё в интернете.

Нашла вот такой макрос

Скрытый текст

Sub OpenRtfAndPasteToSheets() Dim wd As Object Dim ns As Worksheet On Error Resume Next 'запускаем Word Set wd = GetObject("", "Word.Application"   If Err.Number <> 0 Then Err.Clear Set wd = CreateObject("Word.Application"   If Err.Number <> 0 Then Exit Sub End If On Error GoTo BAD Do 'получаем имя файла f = Application.GetOpenFilename("Файлы RTF, *.rtf,Все файлы, *.*"   If TypeName(f) = "Boolean" Then Exit Do 'если Отмена, то выход 'откроем выбранный файл Set wdd = wd.Documents.Open(f) ' wd.Visible = True 'копируем содержимое всего документа t = wdd.Content.Copy 'создаем новый лист для этого документа Set ns = ActiveWorkbook.Worksheets.Add 'вставляем скопированные данные в новый лист ns.Paste Destination:=ns.Cells(1, 1) 'немного отформатируем ns.Cells.WrapText = False ns.Columns.AutoFit ns.Rows.AutoFit wdd.Close Loop wd.Quit Set wd = Nothing Exit Sub BAD: MsgBox Err.Description On Error Resume Next wd.Quit Set wd = Nothing End End Sub

Пробовала его запустить, безрезультатно.

Ещё один вопрос, макрос для rtf подойдет для txt ?
Спасибо заранее.