Импорт данных

Пользователь

Сообщений: 5 Регистрация: 01.01.1970

15.10.2010 17:20:17

Из файла rtf импортирую данные в Excel. Однако в каждой ячейке вставляется символ (квадратик какой то) Подредактируйте макрос, чтобы при импорте квадрата этого не было. Заранее спасибо. Оба файла в приложении.

Прикрепленные файлы

post_164223.zip (25.92 КБ)

Hugo Пользователь Сообщений: 26326 Регистрация: 22.12.2012	#2 15.10.2010 17:34:29 Добавьте одну строку, должно быть так: ' Скопировать из Word в масссив Arr txt = wdDoc.Content txt = Replace(wdDoc.Range.Text, Chr(12), "") txt = Replace(wdDoc.Range.Text, Chr(7), "") Arr = Split(txt, vbCr) ' Заморозить Excel

Peshkov

Пользователь

Сообщений: 5 Регистрация: 01.01.1970

18.10.2010 06:50:01

{quote}{login=Hugo}{date=15.10.2010 05:34}{thema=}{post}Добавьте одну строку, должно быть так:

' Скопировать из Word в масссив Arr
txt = wdDoc.Content
txt = Replace(wdDoc.Range.Text, Chr(12), "")
txt = Replace(wdDoc.Range.Text, Chr(7), "")
Arr = Split(txt, vbCr)
' Заморозить Excel{/post}{/quote}

Не совсем силен в макросах. Подскажите, пожалуйста, куда именно нужно вставить, в какую часть уже готового макроса?

KuklP Пользователь Сообщений: 14868 Регистрация: 21.12.2012 E-mail и реквизиты в профиле.	#4 18.10.2010 07:16:34 Игорь Вам и привел ту часть, куда надо вставить. Только строка: txt = Replace(wdDoc.Range.Text, Chr(12), "") там лишняя. Прикрепленные файлы post_164932.xls (38.5 КБ) Я сам - дурнее всякого примера! ...

Hugo Пользователь Сообщений: 26326 Регистрация: 22.12.2012	#5 18.10.2010 09:12:13 Не проверял, есть ли там символы Chr(12). Но если нет, тогда просто поменяйте 12 на 7.

Peshkov Пользователь Сообщений: 5 Регистрация: 01.01.1970	#6 18.10.2010 09:35:16 Спасибо огромное!

GM51 Гость	#7 18.10.2010 09:40:25 {quote}{login=Peshkov}{date=15.10.2010 05:20}{thema=Импорт данных}{post}Из файла rtf импортирую данные в Excel. Однако в каждой ячейке вставляется символ (квадратик какой то) Подредактируйте макрос, чтобы при импорте квадрата этого не было. Заранее спасибо. Оба файла в приложении.{/post}{/quote} txt = wdDoc.Content txt = Replace(wdDoc.Range.Text, Chr(12), "") txt = Replace(wdDoc.Range.Text, Chr(10), "") 'вставка строки txt = Replace(wdDoc.Range.Text, Chr(7), "")

Читают тему