• 15 апреля стартует «Курс «SQL-injection Master» ©» от команды The Codeby

    За 3 месяца вы пройдете путь от начальных навыков работы с SQL-запросами к базам данных до продвинутых техник. Научитесь находить уязвимости связанные с базами данных, и внедрять произвольный SQL-код в уязвимые приложения.

    На последнюю неделю приходится экзамен, где нужно будет показать свои навыки, взломав ряд уязвимых учебных сайтов, и добыть флаги. Успешно сдавшие экзамен получат сертификат.

    Запись на курс до 25 апреля. Получить промодоступ ...

Vba для Excel

  • Автор темы fnos
  • Дата начала
Статус
Закрыто для дальнейших ответов.
F

fnos

Здравствуйте,

1) Есть какое-то количество файлов одного и того же шаблона. То есть, расположение ячеек и все остальное - одинаковое,
все названия полей одни и те же. Только цифры разные.

2) На их основе нужно автоматически сформировать один файл, который бы содержал большую часть информации
из отдельных файлов, сведенную вместе.
Фактически нужно автоматизировать копи-паст.

Вобщем, наверняка это можно сделать. Только вот я VBA не пользовал вообще...
С чего тут начать?
Что почитать?

Спасибо!
 
G

Gamlet


Тут по примерчикам посмотри. Если опыт программинга есть-разберешся, если нет-выложи подходящий исходник, я помогу переделать.
 
F

fnos

Спасибо,

Скажите, при использовании известной ф-ии для чтения данных из закрытых файлов:

'=============================================================
Function GetValue(path, file, sheet, ref)
Dim arg As String

If Right(path, 1) <> "\" Then path = path & "\"
If Dir(path & file) = "" Then
GetValue = "нет"
Exit Function
End If


arg = "'" & path & "[" & file & "]" & sheet & "'!" & Range(ref).Range("A1").Address(, , xlR1C1)


GetValue = ExecuteExcel4Macro(arg)


End Function
'===============================================================

У меня в случае если значение из ПУСТОЙ ячейки закрытой рабочей книги присваивается ячейке открытой рабочей книги
появляется НОЛЬ. В то же время я бы хотел чтобы в открытой книге вместо НУЛЕЙ также была пустота??
Как нибудь это можно побороть, переделав GetValue?

Спасибо!
 
J

Jumpy

а обработать условие отдельно - не подходит ?
типа...

if arg = "" then
'МЫ НИЧО НЕ ДЕЛАЕМ! :)
else
'ячейка пицот восемь в шестом столбец = arg
end if
 
Статус
Закрыто для дальнейших ответов.
Мы в соцсетях:

Обучение наступательной кибербезопасности в игровой форме. Начать игру!