Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / HTML, JavaScript, VBScript, CSS [игнор отключен] [закрыт для гостей] / Копирование таблицы из Word в Excel / 13 сообщений из 13, страница 1 из 1
04.02.2013, 00:39
    #38135594
saayer
saayer
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Копирование таблицы из Word в Excel
Всем доброго времени суток!

Прошу помочь со скриптом (VBScript).
Ситуация следующая:
1) Есть файл doc или docx с таблицей внутри
2) Необходимо перенести таблицу из файла doc в xls и сохранить
Исходный файл Word и желаемый Excel прикрепляю к посту.

Заранее спасибо
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
04.02.2013, 08:31
    #38135672
krvsa
krvsa
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Копирование таблицы из Word в Excel
saayer , это тебе сюда
http://www.sql.ru/forum/actualtopics.aspx?bid=46
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
04.02.2013, 08:57
    #38135682
ПЕНСИОНЕРКА
ПЕНСИОНЕРКА
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Копирование таблицы из Word в Excel
saayer,

авторИсходный файл Word и желаемый Excel прикрепляю к посту.


Файлов не увидела -- только две пустышки
--количество листов в ворде
--ожна таблица или много
--есть ли особенности в данных

не все из ворда корректно откроется в екселе
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
04.02.2013, 10:36
    #38135771
saayer
saayer
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Копирование таблицы из Word в Excel
ПЕНСИОНЕРКАsaayer,

авторИсходный файл Word и желаемый Excel прикрепляю к посту.


Файлов не увидела -- только две пустышки
--количество листов в ворде
--ожна таблица или много
--есть ли особенности в данных

не все из ворда корректно откроется в екселе

Странно, что не открылись файлы из архива. Прикрепил заново.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
04.02.2013, 10:37
    #38135773
krvsa
krvsa
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Копирование таблицы из Word в Excel
saayerПрикрепил заново.
Т.е. про "другой раздел" не прокатило?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
04.02.2013, 10:54
    #38135796
saayer
saayer
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Копирование таблицы из Word в Excel
krvsasaayerПрикрепил заново.
Т.е. про "другой раздел" не прокатило?
Как-то не очень :) Всё-таки указанный раздел больше про VBA.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
04.02.2013, 11:08
    #38135824
krvsa
krvsa
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Копирование таблицы из Word в Excel
saayerВсё-таки указанный раздел больше про VBA.
А тут клиентские скрипты. Работать с файлами не их задача...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
04.02.2013, 11:33
    #38135867
user89
user89
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Копирование таблицы из Word в Excel
saayer,
 
Word2Excel.vbs
Код: vbnet
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.
Option Explicit

Dim WordApp, Excel, Book, Sheet

Set WordApp = CreateObject("Word.Application")
WordApp.Visible=True

WordApp.Documents.Open("c:\1\word.doc")

WordApp.Selection.Tables(1).Select
WordApp.Selection.Copy
 
Set WordApp = Nothing


Set Excel = CreateObject("Excel.Application")
Set Book = Excel.Workbooks.Add
Set Sheet = Book.Sheets(1)

Excel.visible = true

Sheet.Range("A1").Select
Sheet.Paste
Sheet.Range("A1").Select

Set Excel = nothing

...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
04.02.2013, 12:02
    #38135951
saayer
saayer
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Копирование таблицы из Word в Excel
user89saayer,
 
Word2Excel.vbs
Код: vbnet
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.
Option Explicit

Dim WordApp, Excel, Book, Sheet

Set WordApp = CreateObject("Word.Application")
WordApp.Visible=True

WordApp.Documents.Open("c:\1\word.doc")

WordApp.Selection.Tables(1).Select
WordApp.Selection.Copy
 
Set WordApp = Nothing


Set Excel = CreateObject("Excel.Application")
Set Book = Excel.Workbooks.Add
Set Sheet = Book.Sheets(1)

Excel.visible = true

Sheet.Range("A1").Select
Sheet.Paste
Sheet.Range("A1").Select

Set Excel = nothing



Огромное Вам спасибо.
И ещё вопросик: как можно реализовать не жесткий выбор файла Word, а выбор его из файловой системы ?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
04.02.2013, 12:14
    #38135981
user89
user89
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Копирование таблицы из Word в Excel
saayer,

на VBS - не знаю, возможно накатать свою Web-страницу, выбор файла через
Код: html
1.
<input type="file">

Далее прикрутить Word2Excel .

Всё это будет работать только в Internet Explorer.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
04.02.2013, 12:28
    #38136032
saayer
saayer
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Копирование таблицы из Word в Excel
user89saayer,

на VBS - не знаю, возможно накатать свою Web-страницу, выбор файла через
Код: html
1.
<input type="file">

Далее прикрутить Word2Excel .

Всё это будет работать только в Internet Explorer.

Попробую разобраться - основа есть.
Ещё раз огромное спасибо.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
04.02.2013, 16:40
    #38136630
saayer
saayer
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Копирование таблицы из Word в Excel
Получилось реализовать одну также нужную мне вещь - сохранение в определенный файл Excel
Код: vbnet
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.
Option Explicit
 
Dim WordApp, Excel, Book, Sheet

 
Set WordApp = CreateObject("Word.Application")
WordApp.Visible=true
 
WordApp.Documents.Open("c:\1\word.doc")
 
WordApp.Selection.Tables(1).Select
WordApp.Selection.Copy
WordApp.Quit
 
Set WordApp = Nothing
 
 
Set Excel = CreateObject("Excel.Application")
Set Book = Excel.Workbooks.Add
Set Sheet = Book.Sheets(1)
 
Excel.visible = true
 
Sheet.Range("A1").Select
Sheet.Paste
Sheet.Range("A1").Select

Excel.DisplayAlerts = False 
Excel.ActiveWorkbook.SaveAs "C:\excel.xls" 
Excel.Quit 
Set Excel = nothing



C выбором любого Word файла пока не разобрался. Всё ещё нужна помощь по данному вопросу.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
04.02.2013, 18:38
    #38136885
user89
user89
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Копирование таблицы из Word в Excel
saayer,
 
Как-то так...
Код: html
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.
43.
44.
45.
46.
47.
48.
<!DOCTYPE html>
<html>
<head>
<title>Word2Excel</title>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1251">
<script type='text/vbscript'>
Option Explicit
Sub MyProc()
  dim fn, WordApp, Excel, Book, Sheet
  fn = document.getElementById("txtFile").value
  if (Right(fn,4) <> ".doc") and (Right(fn,5) <> ".docx") then exit sub

  Set WordApp = CreateObject("Word.Application")
  WordApp.Visible=true
 
  WordApp.Documents.Open(fn)
 
  WordApp.Selection.Tables(1).Select
  WordApp.Selection.Copy
  WordApp.Quit
 
  Set WordApp = Nothing
 
 
  Set Excel = CreateObject("Excel.Application")
  Set Book = Excel.Workbooks.Add
  Set Sheet = Book.Sheets(1)
 
  Excel.visible = true
 
  Sheet.Range("A1").Select
  Sheet.Paste
  Sheet.Range("A1").Select

  Excel.DisplayAlerts = False 
  Excel.ActiveWorkbook.SaveAs "C:\excel.xls" 
  Excel.Quit 
  Set Excel = nothing  
End Sub
</script>
</head>
<body>
Выберите Word-файл:<br>
<input id="txtFile" type="file">
<br><br>
<input type="button" value="Поехали" onclick="MyProc()">
</body>
</html>

...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / HTML, JavaScript, VBScript, CSS [игнор отключен] [закрыт для гостей] / Копирование таблицы из Word в Excel / 13 сообщений из 13, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 417ms
Закрыть
start [/forum/topic.php?fid=22&mobile=1&tid=1448767]:
 0ms
get settings:
 26ms
get forum list:
 16ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 88ms
get topic data:
 7ms
get forum data:
 2ms
get page messages:
 52ms
get tp. blocked users:
 2ms
others: 218ms
total:  417ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]