Копирование таблицы из Word (специальная вставка) в Excel

@StalkerIQ · Регистрация: 21.05.2013

Студворк — интернет-сервис помощи студентам

Добрый день есть bat файл с таким содержанием.

Windows Batch file
1
2
3
@ECHO ON
setlocal enabledelayedexpansion
for %%f in (C:\Rad\*.doc) do (start /w wscript.exe "C:\Rad\2.vbs" %%f)

И собственно VBS скрипт с содержанием таким.

Visual Basic
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
Option Explicit
 
Dim WordApp, Excel, Book, Sheet
 
Set WordApp = CreateObject("Word.Application")
WordApp.Visible=FALSE
 
WordApp.Documents.Open(WScript.Arguments.item(0))
 
WordApp.Documents(1).Select
WScript.Sleep 2000
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 = FALSE
 
Sheet.Range("A1").Select
 
 Sheet.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
 :=False, Transpose:=False
 
Sheet.Range("A1").Select
 
Excel.DisplayAlerts = False 
Excel.ActiveWorkbook.SaveAs WScript.Arguments.item(0)&".xls",-4143
 
Excel.Quit 
Set Excel = nothing

Он выдает ошибку на строке

Visual Basic
Sheet.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

(смотреть скриншот).
Если же убрать часть

Visual Basic
Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

то вставка произойдёт и в файле xls будет таблица но она будет с функцией\параметром (=ВНЕДРИТЬ) чего мне не нужно, если же убрать вообще всё и оставить только

Visual Basic
Sheet.Paste

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

@tisha_ · 16.12.2016, 09:20

ошибка Вам мягко намекает, что в vbs не используются ":=" и значения excel'евских xlPasteValues, xlNone неизвестно.

@StalkerIQ · 16.12.2016, 14:10 **[ТС]**

Хорошо могли бы вы написать как правильно сделать?

Добавлено через 11 минут
Похоже я забыл важную информацию из word файла я копирую (созданную там табличку средствами word) которая расположилась так 80% на первой странице и 20% на второй.

Добавлено через 4 часа 31 минуту
Не удивлён, что за 5 часов нет ответов +))) так как я сам сюда пишу уже после того как 2 дня к ряду перелопачивания интернета я не нашел ответа.
У меня был вариант сначала копировать в блокнот потом вставлять в excel, но там ещё хуже это я к тому, что может это наведёт вас на мысль что можно через костыль какой скопировать.

@tisha_ · 16.12.2016, 15:58

Сообщение от StalkerIQ

Не удивлён, что за 5 часов нет ответов +)))

Вы бы файл приложили с примером, т.к. у меня, например, на PasteSpecial вставка рисунка происходит, а просто на Paste, таблицы и выглядит при этом все достаточно прилично.

@StalkerIQ · 20.12.2016, 13:59 **[ТС]**

не могу пока что всё совершенно секретно. как подретуширую данные выложу

Новые блоги и статьи Все статьи Все блоги /
Как я обхитрил таблицу Word Alexander-7 21.03.2026 Когда мигает курсор у внешнего края таблицы, и нам надо перейти на новую строку, а при нажатии Enter создается новый ряд таблицы с ячейками, то мы вместо нервных нажатий Энтеров мы пишем любые буквы. . .	Krabik - рыболовный бот для WoW 3.3.5a AmbA 21.03.2026 без регистрации и смс. Это не торговля, приложение не содержит рекламы. Выполняет свою непосредственную задачу - автоматизацию рыбалки в WoW - и ничего более. Однако если админы будут против -. . .	Программный отбор значений справочника Maks 21.03.2026 Установка программного отбора значений справочника "Сотрудники" из модуля формы документа. В качестве фильтра для отбора служит предопределенное значение перечислений. Процедура. . .	Переходник USB-CAN-GPIO Eddy_Em 20.03.2026 Достаточно давно на работе возникла необходимость в переходнике CAN-USB с гальваноразвязкой, оный и был разработан. Однако, все меня терзала совесть, что аж 48-ногий МК используется так тупо: просто. . .
Оттенки серого Argus19 18.03.2026 Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .	SDL3 для Desktop (MinGW): Рисуем цветные прямоугольники с помощью рисовальщика SDL3 на Си и C++ 8Observer8 17.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-rectangles-sdl3-c. zip finish-rectangles-sdl3-cpp. zip	Символические и жёсткие ссылки в Linux. algri14 15.03.2026 Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая ссылка» (hard link),. . .	[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ФедосеевПавел 14.03.2026 Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .

@tisha_ 61 / 61 / 36 Регистрация: 16.09.2015 Сообщений: 296
	16.12.2016, 09:20
	ошибка Вам мягко намекает, что в vbs не используются ":=" и значения excel'евских xlPasteValues, xlNone неизвестно. 0

@StalkerIQ 22 / 20 / 3 Регистрация: 21.05.2013 Сообщений: 408
	16.12.2016, 14:10 [ТС]
	Хорошо могли бы вы написать как правильно сделать? Добавлено через 11 минут Похоже я забыл важную информацию из word файла я копирую (созданную там табличку средствами word) которая расположилась так 80% на первой странице и 20% на второй. Добавлено через 4 часа 31 минуту Не удивлён, что за 5 часов нет ответов +))) так как я сам сюда пишу уже после того как 2 дня к ряду перелопачивания интернета я не нашел ответа. У меня был вариант сначала копировать в блокнот потом вставлять в excel, но там ещё хуже это я к тому, что может это наведёт вас на мысль что можно через костыль какой скопировать. 0

@StalkerIQ 22 / 20 / 3 Регистрация: 21.05.2013 Сообщений: 408
	20.12.2016, 13:59 [ТС]
	не могу пока что всё совершенно секретно. как подретуширую данные выложу 0