Macros на Mac, не читает даже Windows("total.xlsx").Activate

@lllllllll · Регистрация: 19.07.2011

Author24 — интернет-сервис помощи студентам

Добрый день, уважаемые знатоки!

просьба помочь с макросом на Маке:

на винде записал макрос, тут надо его на маке было запустить

но 1ая строка макроса и не читается, пишет что "Подстрочные знаки ошибка"

сама команда Windows("total.xlsx").Activate есть в VBA Mac, т.к. если удалить Activate и нажать ".", то появляется список в котором есть Activate

пытался добавлять путь "Users/ttt/total.xlsx" к примеру - тоже не работает
нажимал запись макроса и переключался между файлами - это действие не отображалось в коде записанного макроса

собственно, сам макрос простой: переключается между окнами, копирует таблицы через Ctrl+Shift+вправо+вниз и вставляет на строку 900000 и далее удаляет пустые строки, чтобы склеить таблицы - в цикле for i

не знаю как его запустить на Маке

Visual Basic

Sub total_1()
'
 total_1
'
 
'
    Windows("total.xlsx").Activate
    
    ActiveCell.FormulaR1C1 = "1"
    Range("A1").Select
    Selection.Copy
    Range(Selection, Selection.End(xlDown)).Select
    ActiveSheet.Paste
    Range("B2").Select
    Application.CutCopyMode = False
    Selection.Copy
 
    For i = 1 To 36
    
            Windows(" i & ".xlsx").Activate
 
    
    Range("b2").Select
    Selection.Copy
 '   Range(Selection, Selection.End(xlDown)).Select
    Windows("total.xlsx").Activate
    Range("B900000").Select
    ActiveSheet.Paste
            Windows(" i & ".xlsx").Activate
    Range("A6").Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlToRight)).Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("total.xlsx").Activate
    Range("C900000").Select
    ActiveSheet.Paste
    Range("B900000").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("C900000").Select
    Range(Selection, Selection.End(xlDown)).Select
    Range("B1000000").Select
    Range(Selection, Selection.End(xlUp)).Select
    Range("B900001:B1000000").Select
    Range("B1000000").Activate
    ActiveSheet.Paste
    Range("B900000").Select
    Range(Selection, Selection.End(xlUp)).Select
    Range("A900005").Select
    Range(Selection, Selection.End(xlUp)).Select
    Range("B1").Select
    Range(Selection, Selection.End(xlDown)).Select
    Range("C900000").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("C899999").Select
    Range(Selection, Selection.End(xlUp)).Select
    Range("C1").Select
    ActiveSheet.Paste
    Range("B1").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "store"
    Rows("2:2").Select
    ActiveWindow.FreezePanes = True
    Rows("1:1").Select
    Selection.AutoFilter
    ActiveSheet.Range("$A:$S").AutoFilter Field:=3, Criteria1:="="
    Rows("2:2").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Delete Shift:=xlUp
    Range("B1296").Select
    ActiveSheet.ShowAllData
    
    
    Range("A1").Select
    Selection.Copy
    'Range(Selection, Selection.End(xlDown)).Select
    'Range(Selection, Selection.End(xlDown)).Select
    
    Range("A1:A1048576").Select
    ActiveSheet.Paste
    Range("B3").Select
    
            Windows(" i & ".xlsx").Activate
    ActiveWindow.Close
    
    
        Next i
    
   
    
    
    
    
    
End Sub

@zewsua · 13.03.2018, 22:51

lllllllll, вижу ошибку в следующих строках:

Visual Basic

1	Windows(" i & ".xlsx").Activate

правильно должно быть так:

Visual Basic

1	Windows("i" & ".xlsx").Activate

В остальном, ошибка возникает у Вас именно на строке 7?

Visual Basic

1	Windows("total.xlsx").Activate

(ссылаюсь на нумерацию строк в Вашем посте).

Название total.xlsx это название книги с которой запускается макрос? Если да, попробуйте использовать переменную и присвоить ей имя рабочей книги изначально.
Например:

Visual Basic

1	wn = ActiveWindow.Caption

а затем использовать переменную:

Visual Basic

1	Windows(wn).Activate

Какая именно ошибка у Вас возникает?

Что в общем то должен делать макрос, опишите может я смогу его проще написать что бы он работал на винде и маке.

Добавлено через 8 минут
И почему у Вас в начале кода задано имя макроса?
total_1 ? Его не должно там быть

@Hugo121 · 13.03.2018, 22:57

Сообщение от zewsua

правильно должно быть так:
Visual BasicВыделить код
1
Windows("i" & ".xlsx").Activate

???
Правильно скорее так (исходя из логики кода):

Visual Basic

1	Windows(i & ".xlsx").Activate

По первому вопросу - точно есть в этом экземпляре приложения Windows("total.xlsx")? Может быть нужно искать Windows("total"), кто их там этих маков знает...

@zewsua · 14.03.2018, 09:55

Сообщение от Hugo121

Правильно скорее так (исходя из логики кода):
Visual Basic
1
Windows(i & ".xlsx").Activate

согласен, затупил, там же i как переменная а не текст

@lllllllll · 14.03.2018, 12:21 **[ТС]**

Спасибо за ответы и исправления!

Сообщение от zewsua

И почему у Вас в начале кода задано имя макроса?
total_1 ? Его не должно там быть

да, забыл апостроф комментария " ' " поставить, это обычно система пишет название макроса так

Сообщение от Hugo121

Может быть нужно искать Windows("total")

понял, попробуем без xlsx

Сообщение от zewsua

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

да, на строке 7 останавливается и пишет что "Подстрочные символы ошибка"

идеальный вариант: есть папка с excel-файлами (априори xlsx), в каждом таблица с одинаковым порядком колонок начинается с A1 (в текущем тексте макроса я делаю с A6, т.к. это с другого макроса пытался применить, где таблица с A6 начиналась и в B2 ещё название магазина), нужно склеить в 1 таблицу (файл total.xlsx к примеру)

вариант который я для начала пытался реализовать: допустим вручную переименую файлы в 1.xlsx 2.xlsx .. 30.xlsx, далее через Ctrl+Shift+вправо+вниз выделяю всю таблицу и вставляю её в total.xlsx в строку 900000, перед этим протягиваю в колонке A единицу чтобы таблица определялась до 1048576 строки, далее удаляю пустые строки и снова в цикле протягиваю 1 в колонке A с 1 по 1048576 строки

@zewsua 35 / 35 / 9 Регистрация: 16.07.2012 Сообщений: 253
	14.03.2018, 09:55	4
	Сообщение от Hugo121 Правильно скорее так (исходя из логики кода): Visual Basic 1 Windows(i & ".xlsx").Activate согласен, затупил, там же i как переменная а не текст 0

@lllllllll 2 / 2 / 0 Регистрация: 19.07.2011 Сообщений: 63
	14.03.2018, 12:21 [ТС]	5
	Спасибо за ответы и исправления! Сообщение от zewsua И почему у Вас в начале кода задано имя макроса? total_1 ? Его не должно там быть да, забыл апостроф комментария " ' " поставить, это обычно система пишет название макроса так Сообщение от Hugo121 Может быть нужно искать Windows("total") понял, попробуем без xlsx Сообщение от zewsua Какая именно ошибка у Вас возникает? Что в общем то должен делать макрос, опишите может я смогу его проще написать что бы он работал на винде и маке. да, на строке 7 останавливается и пишет что "Подстрочные символы ошибка" идеальный вариант: есть папка с excel-файлами (априори xlsx), в каждом таблица с одинаковым порядком колонок начинается с A1 (в текущем тексте макроса я делаю с A6, т.к. это с другого макроса пытался применить, где таблица с A6 начиналась и в B2 ещё название магазина), нужно склеить в 1 таблицу (файл total.xlsx к примеру) вариант который я для начала пытался реализовать: допустим вручную переименую файлы в 1.xlsx 2.xlsx .. 30.xlsx, далее через Ctrl+Shift+вправо+вниз выделяю всю таблицу и вставляю её в total.xlsx в строку 900000, перед этим протягиваю в колонке A единицу чтобы таблица определялась до 1048576 строки, далее удаляю пустые строки и снова в цикле протягиваю 1 в колонке A с 1 по 1048576 строки 0

Опции темы