Из Ворда в Эксель / Microsoft Office

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Из Ворда в Эксель

25 сообщений из 49, страница 1 из 2

все

Из Ворда в Эксель

#36565131

Новенькая123

Гость

Привет всем! Совсем не знаю как быть... Есть в Ворде файл Export.doc - он меняется каждый месяц и в нем около 100000 записей, в общем больше чем может вместиться на листе экселя. Помогите, пожалуйста, написать макрос, который будет загонять из ворда данные на лист эксель, а когда лист1 закончится, то продлжит копировать эти данные на лист2. Пожалуйста!!!

...

Рейтинг:

0 / 0

07.04.2010, 11:04

| Ответить | Цитировать | Написать

Из Ворда в Эксель

#36565350

Serge 007

Участник

Откуда: www.excelworld.ru

Сообщения: 1 742

Рейтинг: 0 / 0

Новенькая123, скиньте данные в Акцесс.
Или установите Эксель 2007 - 2010.

...

Рейтинг:

0 / 0

07.04.2010, 11:58

| Ответить | Цитировать | Написать

Из Ворда в Эксель

#36565379

Новенькая123

Гость

Serge 007, спасибо что откликнулись! Там данные идут так что Дата на строчку выше остальных данных и мне приходится вначале макросом проставлять Дату на соответствующую строку вниз, а затем делать обработки, если я открою в акцессе, то получится что строка 1 содержит Дату, а строка 2 - остальные данные, затем 3 путсые и опять - Дата - Данные, это все копируется из левого приложения, а обрабатывать надо в экселе - там много операций и автофильтр и перевод из текста в число и ВПР используется и все надо сделать одной кнопкой - сделала все, но строк получается очень много и самое страшное почему нельзя использовать акцесс - дата на разных строчках, причем экспортируется в вворд интересно - в начале страницы - дата прямо в предыдущей строчке, дальше по листу - через строчку...
2007 офис не куплен...
Как быть... :-(

...

Рейтинг:

0 / 0

07.04.2010, 12:05

| Ответить | Цитировать | Написать

Из Ворда в Эксель

#36565403

Hugo121

Гость

Новенькая123, можете файл строк на надцать показать?

...

Рейтинг:

0 / 0

07.04.2010, 12:11

| Ответить | Цитировать | Написать

Из Ворда в Эксель

#36565418

Hugo121

Гость

Может быть сохранить из Ворда в текст (если можно), далее в тексте скриптом навести порядок - строк станет в 2 раза меньше, затем скриптом же можно грузить в Эксель, ну или уже импортом, как положено.

...

Рейтинг:

0 / 0

07.04.2010, 12:14

| Ответить | Цитировать | Написать

Из Ворда в Эксель

#36565421

Hugo121

Гость

нев 2, а в 4-5 раз меньше...

...

Рейтинг:

0 / 0

07.04.2010, 12:15

| Ответить | Цитировать | Написать

Из Ворда в Эксель

#36565479

Hugo121

Гость

Т.е. можно так текст преобразовать (если данные позволяют) -
читаем построчно,
если в начале строки дата - пишем в другой файл без перевода строки,
если пусто - пропускаем,
если есть данные и в начале не дата - пишем с переводом строки.
Можно ещё разделители между датой и данными поставить.
Наверное также можно и из Ворда читать, но я не знаю синтаксис.

...

Рейтинг:

0 / 0

07.04.2010, 12:26

| Ответить | Цитировать | Написать

Из Ворда в Эксель

#36565521

Serge 007

Участник

Откуда: www.excelworld.ru

Сообщения: 1 742

Рейтинг: 0 / 0

Новенькая1232007 офис не куплен...
Как быть... :-(
Зачем покупать?
http://the-universe.ru/soft/74-ofis-2007-skachat-word-2007-besplatno-rus-excel.html

...

Рейтинг:

0 / 0

07.04.2010, 12:35

| Ответить | Цитировать | Написать

Из Ворда в Эксель

#36565695

Новенькая123

Гость

Hugo121Т.е. можно так текст преобразовать (если данные позволяют) -
читаем построчно,
если в начале строки дата - пишем в другой файл без перевода строки,
если пусто - пропускаем,
если есть данные и в начале не дата - пишем с переводом строки.
Можно ещё разделители между датой и данными поставить.
Наверное также можно и из Ворда читать, но я не знаю синтаксис.

8-) я тоже не знаю как это делать... как макросом читать построчно...

...

Рейтинг:

0 / 0

07.04.2010, 13:18

| Ответить | Цитировать | Написать

Из Ворда в Эксель

#36565729

Новенькая123

Гость

Вот к примеру текстовый файл :
15.03.10
1010 ввпывп 2120

16.03.10

5262 ыываф 5458

17.03.18
4456 ваывп 5827

и так 100000 записей... как их преобразовать (это очень упрощенный вариант)

...

Рейтинг:

0 / 0

07.04.2010, 13:26

| Ответить | Цитировать | Написать

Из Ворда в Эксель

#36565807

Новенькая123

Гость

На второй строке после Даты 3 столбца, т.е. весь текст должен быть разбит на 3 столбца

...

Рейтинг:

0 / 0

07.04.2010, 13:48

| Ответить | Цитировать | Написать

Из Ворда в Эксель

#36565983

Hugo121

Гость

Новенькая123,
даты все в таком виде, нет случайно 1.04.10?
Если всё именно так, то должно получиться.
Вообще думаю можно сделать так:
1. запускаем *.vbs
2. диалог выбора вордовского файла.
3. скрипт сохраняет этот файл как word.txt
4. преобразует word.txt в excel.txt
5. открывает заранее приготовленный файл Экселя, который при открытии подгружает данные из excel.txt

Если данных всё же будет набираться больше 65656 строк, можно грузить данные непосредственно в Эксель, считая строки, но это будет дольше.
Можно этот скрипт и в Экселе разместить, и даже поставить его на выполнение при открытии файла.
Но я всё жду - может кто подскажет, как именно из Ворда данные выбирать построчно, какой синтаксис...

...

Рейтинг:

0 / 0

07.04.2010, 14:30

| Ответить | Цитировать | Написать

Из Ворда в Эксель

#36566098

Новенькая123

Гость

Hugo121Новенькая123,
даты все в таком виде, нет случайно 1.04.10?
Если всё именно так, то должно получиться.
Вообще думаю можно сделать так:
1. запускаем *.vbs
2. диалог выбора вордовского файла.
3. скрипт сохраняет этот файл как word.txt
4. преобразует word.txt в excel.txt
5. открывает заранее приготовленный файл Экселя, который при открытии подгружает данные из excel.txt

Если данных всё же будет набираться больше 65656 строк, можно грузить данные непосредственно в Эксель, считая строки, но это будет дольше.
Можно этот скрипт и в Экселе разместить, и даже поставить его на выполнение при открытии файла.
Но я всё жду - может кто подскажет, как именно из Ворда данные выбирать построчно, какой синтаксис...

Спасибо что не бросаете! Но я не поняла [1. запускаем *.vbs] - я так поняла что Сервис/Макрос/Редактор Visual Basiс, а дальше как - [2. диалог выбора вордовского файла.
] - что это? я пробовала там открыть вордовский файл - ошибку выдает... что-то совсем не понимаю... :-(((

...

Рейтинг:

0 / 0

07.04.2010, 14:54

| Ответить | Цитировать | Написать

Из Ворда в Эксель

#36566165

Hugo121

Гость

Новенькая123, нет, это я про скрипт wsh говорю.
Вот для начала - выбираете в запросе свой сохранённый уже txt, на выходе преобразованный C:\temp\_excel.txt
Сперва попробуйте на маленьком файле, чтобы оценить скорость работы.

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.

'# Диалог открытия файла
   Const ForReading   =  1 
   Const ForAppending   =  8 
   
Set objDialog = CreateObject("UserAccounts.CommonDialog") 
objDialog.Filter = "txt Files|*.txt" 
objDialog.InitialDir = "C:\" 
intResult = objDialog.ShowOpen 
 If intResult =  0  Then 
    Wscript.Quit 
Else 
    toFile =  objDialog.FileName 
End If 

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTS = objFSO.OpenTextFile(toFile, ForReading) 

Set objFile = objFSO.CreateTextFile("C:\temp\_excel.txt")
Set objfile = Nothing
Set objOTS = objFSO.OpenTextFile("C:\temp\_excel.txt", ForAppending)

   Do While objTS.AtEndOfStream <> True
      tmp = objTS.ReadLine()
   if len(tmp) >  7  then
		if isdate(left(tmp,  8 )) then
		objOTS.Write tmp & " "
		else
		  objOTS.WriteLine tmp
		end if
	end if
   Loop

'# очищаем память 
objTS.Close 'закрываем текстовый файл
objOTS.Close 'закрываем текстовый файл

Set objFSO = Nothing
Set objDialog = Nothing
Set objTS = Nothing
Set objOTS = Nothing

tmp = Empty
Wscript.Quit

...

Рейтинг:

0 / 0

07.04.2010, 15:17

| Ответить | Цитировать | Написать

Из Ворда в Эксель

#36566211

Новенькая123

Гость

Спасибо что не бросаете!!!
Но у меня в результате работы просто образовался пустой файл _excel.txt с размером 0
Все запускается в окне диалога выбираю export.txt и в результате появляется пустой _excel.txt ...

...

Рейтинг:

0 / 0

07.04.2010, 15:30

| Ответить | Цитировать | Написать

Из Ворда в Эксель

#36566222

Hugo121

Гость

Новенькая123,
я делал под Ваш пример, на нём работает.
Там проверяется длина строки, если больше 7, то если первых 8 символов дата, то пишется без перевода строки (с добавлением после строки пробела), иначе с переводом.
Результат:
из

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.

 15 . 03 . 10 
 1010  ввпывп  2120 

 16 . 03 . 10 

 5262  ыываф  5458 



 17 . 03 . 18 
 4456  ваывп  5827

получаем

Код: plaintext

1.
2.

 15 . 03 . 10   1010  ввпывп  2120 
 16 . 03 . 10   5262  ыываф  5458 
 17 . 03 . 18   4456  ваывп  5827

...

Рейтинг:

0 / 0

07.04.2010, 15:34

| Ответить | Цитировать | Написать

Из Ворда в Эксель

#36566234

Hugo121

Гость

Если вдруг бывают строки короче 8 символов, можно эту цифру и уменьшить до 1, т.е. поменять на

Код: plaintext

if len(tmp) >=  1  then

...

Рейтинг:

0 / 0

07.04.2010, 15:37

| Ответить | Цитировать | Написать

Из Ворда в Эксель

#36566285

Новенькая123

Гость

Hugo121Если вдруг бывают строки короче 8 символов, можно эту цифру и уменьшить до 1, т.е. поменять на

Код: plaintext

if len(tmp) >=  1  then

Только пожалуйста не бросайте меня!!! Ситуация - если я использую файл который Вы прислали в архиве, то он работает, но я не могу его редактировать, если я в тело модуля макроса вставляю скрипт который Вы прислали в форуме, то он выдает ошибку Run-time error '424' Object required и выделяет Wscript.Quit
ХОТЯ ДАННЫЕ ПРАВИЛЬНО СРАБАТЫВАЮТ!!!!
Спасибо огромное!!!
В общем я так понимаю на эту ошибку не стоит обрщать внимание!!! СПАСИБО ВАМ ОГРОМНОЕ!!!

...

Рейтинг:

0 / 0

07.04.2010, 15:51

| Ответить | Цитировать | Написать

Из Ворда в Эксель

#36566311

Hugo121

Гость

Новенькая123,
в макрос прямо 1:1 не пойдёт, там чуть подправить надо :) - вместо
Wscript.Quit
надо
Exit Sub
Ну и ещё переменные бы определить, ну это сильно желательно (в wsh им всё равно тип не задаётся, поэтому я не напрягался...)

...

Рейтинг:

0 / 0

07.04.2010, 15:57

| Ответить | Цитировать | Написать

Из Ворда в Эксель

#36566368

Hugo121

Гость

Пропустил - как это не можете редактировать? А блокнот?
Я кстати в блокноте и писал, в Notepad++

...

Рейтинг:

0 / 0

07.04.2010, 16:10

| Ответить | Цитировать | Написать

Из Ворда в Эксель

#36566403

Hugo121

Гость

Ещё - если

Код: plaintext

objOTS.Write tmp & " "

заменить на

Код: plaintext

objOTS.Write tmp & vbTAB

и файл сохранить даже тупо как C:\temp\_excel.txt.xls, то его можно открывать сразу в Экселе - дата будет в первом столбце, остальное во втором, его разбить стандартным способом. Или в скрипт встроить замену всех пробелов на vbTAB...
Хотя файл так и останется текстовым по содержанию...

...

Рейтинг:

0 / 0

07.04.2010, 16:19

| Ответить | Цитировать | Написать

Из Ворда в Эксель

#36566450

Новенькая123

Гость

Hugo121Ещё - если

Код: plaintext

objOTS.Write tmp & " "

заменить на

Код: plaintext

objOTS.Write tmp & vbTAB

...

Рейтинг:

0 / 0

07.04.2010, 16:31

| Ответить | Цитировать | Написать

Из Ворда в Эксель

#36566872

vlth

Участник

Сообщения: 478

Рейтинг: 0 / 0

Новенькая123Вот к примеру текстовый файл :
15.03.10
1010 ввпывп 2120

16.03.10

5262 ыываф 5458

17.03.18
4456 ваывп 5827

и так 100000 записей... как их преобразовать (это очень упрощенный вариант)
Скопировал эти записи в Word... Вот что получилось (если в реальном файле перевод строки иной, работать не будет):

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.

Sub FromWordToExcel()
Dim oWD As Object, oDoc As Object
Dim strT As String, i As Long, j As Byte, strA() As String, strB() As String
Dim WS As Worksheet, k As Byte, l As Long

Set oWD = CreateObject("Word.Application")
Set oDoc = oWD.Documents.Open _
    ("C:\...Путь...\Export.doc")
strT = oDoc.Content
Do While InStr(strT, Chr( 11 ) & Chr( 11 )) >  0 
    strT = Replace(strT, Chr( 11 ) & Chr( 11 ), Chr( 11 ))
Loop
oWD.Quit
Set oWD = Nothing: Set oDoc = Nothing
strA = Split(strT, Chr( 11 ))
Application.ScreenUpdating = False
For k =  1  To (UBound(strA) +  1 ) \ Application.Rows.Count +  1 
    l =  1 
    With ThisWorkbook.Worksheets(k)
        For i =  0  To UBound(strA)
            strB = Split(Replace(strA(i), vbCr, ""))
            For j =  0  To UBound(strB)
                .Cells(l, j +  1 ) = strB(j)
            Next j
            l = l +  1 
        Next i
    End With
Next k
Application.ScreenUpdating = True
End Sub

Насколько быстро это будет работать реально, на большом кол-ве строк, сказать затрудняюсь

...

Рейтинг:

0 / 0

07.04.2010, 18:44

| Ответить | Цитировать | Написать

Из Ворда в Эксель

#36567063

Hugo121

Гость

vlth, что-то у меня всё в кучку собрал:
15.03.101010 ввпывп 212016.03.105262 ыываф 545817.03.184456 ваывп 5827
А как в Ворде построчно пройтись, не подскажете?

...

Рейтинг:

0 / 0

07.04.2010, 20:30

| Ответить | Цитировать | Написать

Из Ворда в Эксель

#36567133

vlth

Участник

Сообщения: 478

Рейтинг: 0 / 0

Hugo121, проблема может быть в знаке перевода строки: при копировании записей с форума, я получил chr(11). Если вводит их вручную, через Enter, то само-собой, нужно chr(11) заменить на chr(13) (или vbcr).
Обратите внимание: я не использую возможности Ворд, а, получив содержимое файла в строковую переменную, закрываю его.
Навыков работы с Вордом у меня у самого нет

: я потратил сегодня довольно много времени, чтобы понять, как получить содержимое файла.

...

Рейтинг:

0 / 0

07.04.2010, 21:20

| Ответить | Цитировать | Написать

25 сообщений из 49, страница 1 из 2

все

Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Из Ворда в Эксель

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=61&msg=36565131&tid=2178254]:	0ms
get settings:	9ms
get forum list:	17ms
check forum access:	4ms
check topic access:	4ms
track hit:	85ms
get topic data:	11ms
get forum data:	3ms
get page messages:	69ms
get tp. blocked users:	1ms
others:	232ms

total:	435ms

	Необходимые cookie
	Cookie для сбора статистики
	Cookie для маркетинга и рекламы