Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
VBS на выполнение макроса
 
#1
15.09.2015 11:10:40
Добрый день.
Возникла потребность создать VBS файл.
Данныйц фал должен открывать одну книгу, затирить в ней данные в диапазоне [A2:Hn], затем открывать другой файл копировать данные в таком же диапазоне и заливать в первую книгу.
Затем выполнить 2 макроса.
Из VBS знаю только как открыть файл игнорируя ошибок и сохранить его. Подскажите каким способом это можно реализовать.

Код
Set ExcelApp = CreateObject("Excel.Application")
ExcelApp.Visible = false
ExcelApp.displayalerts = false
ExcelApp.Workbooks.Open "Путь к файлу"
ExcelApp.ActiveWorkbook.refreshall
ExcelApp.ActiveWorkbook.Save
ExcelApp.Workbooks.Close
Set ExcelAp = Nothing
 
 
 
#2
15.09.2015 11:15:17
eremeev23rus, здравия. Можно в ВБА написать этот макрос, отладить и после перенести в ВБС.

Формула массива (ФМ) вводится Ctrl+Shift+Enter
Memento mori
 
 
 
#3
15.09.2015 11:16:12
JayBhagavan, Спасибо, а данный макрос необходимо преобразовывать?
 
 
 
#4
15.09.2015 11:18:42
eremeev23rus, а Вы попробуйте его так в ВБА запустить и узнаете. :)

Формула массива (ФМ) вводится Ctrl+Shift+Enter
Memento mori
 
 
 
#5
15.09.2015 11:29:20
JayBhagavan,
Код
Set ExcelApp = CreateObject("Excel.Application")
ExcelApp.Visible = false
ExcelApp.displayalerts = false
ExcelApp.Workbooks.Open "K:\Исходник.xls"

iLastRow = Sheets("Консолидации общий").Cells(Rows.Count, 8).End(xlUp).Row
For i = 2 To iLastRow - 1
    a = LCase(Sheets("Консолидации общий").Cells(i, 1).Value)
    b = LCase(Sheets("Консолидации общий").Cells(i, 2).Value)
    c = LCase(Sheets("Консолидации общий").Cells(i, 3).Value)
    d = LCase(Sheets("Консолидации общий").Cells(i, 4).Value)
    e = LCase(Sheets("Консолидации общий").Cells(i, 5).Value)
    f = LCase(Sheets("Консолидации общий").Cells(i, 6).Value)
    g = LCase(Sheets("Консолидации общий").Cells(i, 7).Value)
    h = LCase(Sheets("Консолидации общий").Cells(i, 8).Value)
    For j = i + 1 To iLastRow
        a1 = LCase(Sheets("Консолидации общий").Cells(j, 1).Value)
        b1 = LCase(Sheets("Консолидации общий").Cells(j, 2).Value)
        c1 = LCase(Sheets("Консолидации общий").Cells(j, 3).Value)
        d1 = LCase(Sheets("Консолидации общий").Cells(j, 4).Value)
        e1 = LCase(Sheets("Консолидации общий").Cells(j, 5).Value)
        f1 = LCase(Sheets("Консолидации общий").Cells(j, 6).Value)
        g1 = LCase(Sheets("Консолидации общий").Cells(j, 7).Value)
        h1 = LCase(Sheets("Консолидации общий").Cells(j, 8).Value)
    If a = e1 And b = f1 And c = g1 And d = h1 And e = a1 And f = b1 And g = c1 And h = d1 Then
    Cells(j, 1) = a
    Cells(j, 2) = b
    Cells(j, 3) = c
    Cells(j, 4) = d
    Cells(j, 5) = e
    Cells(j, 6) = f
    Cells(j, 7) = g
    Cells(j, 8) = h
    End If
    Next j
Next i

ExcelApp.ActiveWorkbook.Save
ExcelApp.Workbooks.Close
Set ExcelAp = Nothing


Подскажите, пожалуйста, что не так я сформировал?
 
 
 
#6
15.09.2015 11:47:28
eremeev23rus, что не так я сходу не скажу. (у меня нет Вашего файла, с которым работает макрос) А что Вас не устраивает или на чём ошибка возникает, если она есть?
ПС Чтобы сократить текст кода используйте конструкцию With ... End With для Sheets("Консолидации общий"). И сравнение можно упростить, например:
1) через массивы, чтобы не создавать для каждой яч. переменную (это же брррррррр)
2) или формировать две строки с разделителем через Join и их сравнивать
Всё вышесказанное - имхо, которое может быть ошибочным, но это я бы попытался реализовать будь у меня такая потребность.

Формула массива (ФМ) вводится Ctrl+Shift+Enter
Memento mori
 
 
 
#7
15.09.2015 11:54:20
JayBhagavan, при выполнении отображается ошибка: Предполагается наличие окончания инструкции, Код: 800A0401, ошибка компиляции.
Я предполагаю, что VBA код я неверно перенес.
 
 
 
#8
15.09.2015 11:57:35
Нет в ВБС такие понятий как "Sheets" и "Cells" - это объекты книги/листа, поэтому должна быть указана полная ссылка на них.
 
 
 
#9
15.09.2015 12:00:17
Влад, а можно пример? Для лучшего понимания.
 
 
 
#10
15.09.2015 12:04:12
Пример:
Код
....
Set wb = ExcelApp.Workbooks.Open("K:\Исходник.xls")
....
iLastRow = wb.Sheets("Консолидации общий").Cells(Rows.Count, 8).End(xlUp).Row
 
 
 
#11
15.09.2015 13:31:33
Не удается сделать описаным методом. Может можно сделать, чтобы нажималась кнопка на листе в Excel?
 
 
 
#12
15.09.2015 13:36:37
Rows.Count возможно тоже непонятно для vbs.
Я всегда указывал чьи это rows.
Изменено: Hugo - 15.09.2015 13:38:29
 
 
 
#13
15.09.2015 13:43:25
Скрытый текст
Изменено: JayBhagavan - 15.09.2015 14:09:42

Формула массива (ФМ) вводится Ctrl+Shift+Enter
Memento mori
 
 
 
#14
15.09.2015 13:46:48
Ну и для vbs первой строкой нужно написать
jjj_vbs
 
 
 
#15
15.09.2015 13:48:49
Нашёл ещё нестыковку - в vbs нельзя писать
next переменная
 
 
 
#16
15.09.2015 13:55:51
Цитата
Hugo написал: в vbs нельзя писать next переменная
Исправил.
Цитата
Hugo написал: Ну и для vbs первой строкой нужно написать
jjj_vbs
То есть нужно убрать Sub, () и End Sub?

Формула массива (ФМ) вводится Ctrl+Shift+Enter
Memento mori
 
 
 
#17
15.09.2015 13:56:00
Ещё - xlUp нужно заменить на -4162
 
 
 
#18
15.09.2015 14:00:43
Цитата
JayBhagavan написал:
То есть нужно убрать Sub, () и End Sub?
Да, или первой строкой вызывать этот sub
 
 
 
#19
15.09.2015 14:10:23
Hugo, благодарю за Ваши замечая. Вроде все учёл.

Формула массива (ФМ) вводится Ctrl+Shift+Enter
Memento mori
 
 
 
Страницы: 1
Читают тему
Наверх