Копирование листа из книги excel, подстановка даты

@Smurf_AnyKey · Регистрация: 06.08.2019

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

Уважаемые знатоки!
Если это не сложно, то прошу помочь написать vbs скрипт, который выполнял бы следующую задачу:
Необходимо чтобы скрипт забирал значение листа из одной книги документа Excel (или первые 7 столбцов листа этого документа ), проставлял бы дату в 8-ом столбце из даты указанной в название этого документа Excel и сохранял бы его в новый документ с датой выставленной в файле

@slava_psk · 08.08.2019, 09:12

Дата в имени файла?

@Smurf_AnyKey · 12.08.2019, 11:07 **[ТС]**

Да. верно.

@ArtNord · 13.08.2019, 14:46

Как выглядят названия файлов? Названы все по одному шаблону?

Добавлено через 2 минуты
и ещё, vbs - это опечатка и имеется ввиду VBA или VBScript?

@Smurf_AnyKey · 14.08.2019, 10:05 **[ТС]**

Шаблонное название, только дата меняется
ПАО ARM - Отчет об уязвимостях (09-02-09 08-03-19).xls

Имеется в виду VBScript

@ArtNord · 14.08.2019, 10:42

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

Имеется в виду VBScript

Вам в другую ветку

Но с VB синтаксис схож, думаю подойдет:

Visual Basic
1
2
3
4
5
6
7
8
9
Sub Макрос1()
AllPuth = "Полный путь к файлу"
nDate = Mid(Dir(AllPuth), 41, 8)
 
Workbooks("Название книги.xls").Sheets("Лист").Range("A:G").Copy Workbooks("Куда надо.xls").Sheets("Лист").Cells(1, 1)
AllRows = Application.WorksheetFunction.CountA(Workbooks("Куда надо.xls").Sheets("Лист").Range("A:A"))
Workbooks("Куда надо.xls").Sheets("Лист").Range("H" & AllRows) = nDate
Workbooks("Куда надо.xls").Close SaveChanges = True, Filename = "Название " & nDate & ".xlsx"
End Sub

Добавлено через 51 секунду
Но я не тестил

@Smurf_AnyKey · 15.08.2019, 11:28 **[ТС]**

Спасибо за помощь.
Проверю.

Остап Бонд · 19.08.2019, 05:06

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

Вам в другую ветку
Но с VB синтаксис схож, думаю подойдет

Я думаю, что вряд ли?
vbs споткнётся на Workbooks?

Новые блоги и статьи Все статьи Все блоги /
Символьное дифференцирование igorrr37 13.02.2026 / * Логарифм записывается как: (x-2)log(x^2+2) - означает логарифм (x^2+2) по основанию (x-2). Унарный минус обозначается как ! в-строка - входное арифметическое выражение в инфиксной(обычной). . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .	И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»
SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .	Установка Qt-версии Lazarus IDE в Debian Trixie Xfce volvo 10.02.2026 В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .

@Smurf_AnyKey 0 / 0 / 0 Регистрация: 06.08.2019 Сообщений: 4

	Копирование листа из книги excel, подстановка даты 07.08.2019, 09:46. Показов 1435. Ответов 7 Метки vbscript (Все метки) Уважаемые знатоки! Если это не сложно, то прошу помочь написать vbs скрипт, который выполнял бы следующую задачу: Необходимо чтобы скрипт забирал значение листа из одной книги документа Excel (или первые 7 столбцов листа этого документа ), проставлял бы дату в 8-ом столбце из даты указанной в название этого документа Excel и сохранял бы его в новый документ с датой выставленной в файле 0

@slava_psk 692 / 489 / 251 Регистрация: 10.06.2016 Сообщений: 2,337
	08.08.2019, 09:12
	Дата в имени файла? 0

@Smurf_AnyKey 0 / 0 / 0 Регистрация: 06.08.2019 Сообщений: 4
	12.08.2019, 11:07 [ТС]
	Да. верно. 0

@ArtNord 371 / 269 / 93 Регистрация: 18.11.2015 Сообщений: 1,001
	13.08.2019, 14:46
	Как выглядят названия файлов? Названы все по одному шаблону? Добавлено через 2 минуты и ещё, vbs - это опечатка и имеется ввиду VBA или VBScript? 0

@Smurf_AnyKey 0 / 0 / 0 Регистрация: 06.08.2019 Сообщений: 4
	14.08.2019, 10:05 [ТС]
	Шаблонное название, только дата меняется ПАО ARM - Отчет об уязвимостях (09-02-09 08-03-19).xls Имеется в виду VBScript 0

@Smurf_AnyKey 0 / 0 / 0 Регистрация: 06.08.2019 Сообщений: 4
	15.08.2019, 11:28 [ТС]
	Спасибо за помощь. Проверю. 0