Vba для Excel

Тема в разделе "Visual Basic", создана пользователем fnos, 19 июн 2008.

Статус темы:
Закрыта.
  1. fnos

    fnos Гость

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

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

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

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

    Спасибо!
     
  2. Gamlet

    Gamlet Well-Known Member

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

    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?

    Спасибо!
     
  4. Jumpy

    Jumpy Гость

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

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

Поделиться этой страницей