| Вопрос: doc -> txt -> xls? | Добавлено: 13.08.05 12:41 |
Автор вопроса:  vladimir
|
| Подскажите, плиз, как из книги exel с помощью VBA открыть документ (.doc) в word, сохранить его в текстовом файле (.txt), а затем открыть в exel в кодировке DOS-кирилик для последующей обработки, или может есть еще какой способ загрузить документ word в exel в такой кодировке. Вставка объекта не помогает, документы (.doc) exel не хочет открывать. |
| Ответы | Всего ответов: 5 |
|
Номер ответа: 1 Автор ответа:  GSerg Вопросов: 0 Ответов: 1876 
|
Профиль | Цитата | #1 | Добавлено: 13.08.05 13:54 |
|
with createobject("word.application"
with .documents.open("c:\file.doc"
.saveas "c:\file.txt", 4 .close false end with .quit false end with workbooks.open "c:\file.txt" |
||
|
Номер ответа: 2 Автор ответа: vladimir Вопросов: 2 Ответов: 1 |
Профиль | Цитата | #2 | Добавлено: 14.08.05 13:21 |
Спасибо, но я кое-что уже нашел на форуме:
 im f As Variant
f = Application.GetOpenFilename("Документы Word (*.doc),*.doc"
If VarType(f) = vbString Then With CreateObject("Word.Application"
With .documents.Open(f) .Range.Copy With ThisWorkbook.Worksheets.Add .Paste .Cells(1, 1), False End With End With .Quit False End With End If Вроде работает, но все равно спасибо. |
||
|
Номер ответа: 3 Автор ответа: mc-blackICQ: 308-534-060 Вопросов: 20 Ответов: 1860 |
Web-сайт: Профиль | Цитата | #3 | Добавлено: 14.08.05 14:13 |
|
Вот и порешли всё
|
||
|
Номер ответа: 4 Автор ответа: mc-blackICQ: 308-534-060 Вопросов: 20 Ответов: 1860 |
Web-сайт: Профиль | Цитата | #4 | Добавлено: 14.08.05 14:13 |
|
Вот и порешали всё
|
||
|
Номер ответа: 5 Автор ответа: mc-blackICQ: 308-534-060 Вопросов: 20 Ответов: 1860 |
Web-сайт: Профиль | Цитата | #5 | Добавлено: 14.08.05 14:14 |
|
Вот и порешали всё
|
||
Страница: 1 |