powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / HTML, JavaScript, VBScript, CSS [игнор отключен] [закрыт для гостей] / Копирование таблицы из Word в Excel
13 сообщений из 13, страница 1 из 1
Копирование таблицы из Word в Excel
    #38135594
saayer
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Всем доброго времени суток!

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

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

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


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

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

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


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

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

Странно, что не открылись файлы из архива. Прикрепил заново.
...
Рейтинг: 0 / 0
Копирование таблицы из Word в Excel
    #38135773
Фотография krvsa
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
saayerПрикрепил заново.
Т.е. про "другой раздел" не прокатило?
...
Рейтинг: 0 / 0
Копирование таблицы из Word в Excel
    #38135796
saayer
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
krvsasaayerПрикрепил заново.
Т.е. про "другой раздел" не прокатило?
Как-то не очень :) Всё-таки указанный раздел больше про VBA.
...
Рейтинг: 0 / 0
Копирование таблицы из Word в Excel
    #38135824
Фотография krvsa
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
saayerВсё-таки указанный раздел больше про VBA.
А тут клиентские скрипты. Работать с файлами не их задача...
...
Рейтинг: 0 / 0
Копирование таблицы из Word в Excel
    #38135867
Фотография user89
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
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
Копирование таблицы из Word в Excel
    #38135951
saayer
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
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
Копирование таблицы из Word в Excel
    #38135981
Фотография user89
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
saayer,

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

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

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

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

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

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

Попробую разобраться - основа есть.
Ещё раз огромное спасибо.
...
Рейтинг: 0 / 0
Копирование таблицы из Word в Excel
    #38136630
saayer
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Получилось реализовать одну также нужную мне вещь - сохранение в определенный файл 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
Копирование таблицы из Word в Excel
    #38136885
Фотография user89
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
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
13 сообщений из 13, страница 1 из 1
Форумы / HTML, JavaScript, VBScript, CSS [игнор отключен] [закрыт для гостей] / Копирование таблицы из Word в Excel
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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