• Познакомьтесь с пентестом веб-приложений на практике в нашем новом бесплатном курсе

    «Анализ защищенности веб-приложений»

    🔥 Записаться бесплатно!

  • CTF с учебными материалами Codeby Games

    Обучение кибербезопасности в игровой форме. Более 200 заданий по Active Directory, OSINT, PWN, Веб, Стеганографии, Реверс-инжинирингу, Форензике и Криптографии. Школа CTF с бесплатными курсами по всем категориям.

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
 
Статус
Закрыто для дальнейших ответов.
Мы в соцсетях:

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