ОБСУЖДЕНИЕ

Vba для Excel

3 ответов 5,4 тыс.
AI-выжимка обсуждения скоро

Краткие тезисы обсуждения со ссылками на ключевые ответы появятся здесь.

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

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

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

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

Спасибо!
 
http://www.vbnet.ru/samples/showgroup.aspx?id=14
Тут по примерчикам посмотри. Если опыт программинга есть-разберешся, если нет-выложи подходящий исходник, я помогу переделать.
 
Спасибо,

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

'=============================================================
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?

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

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