Выбрать дату в календареВыбрать дату в календаре

Страницы: 1
не удается заставить макрос копировать данные на новый лист, импорт данных идет через Power Query через макрос выдает ошибку
 
Добрый день!

создал макрос через запись на подтягивание данных из файла csv.
Возникает ошибка на этапе ActiveWorkbook.Queries.Add Name. Ругается на имя листа. Если изменить название, данные копируются нормально.
Можно ли как то сделать так, что бы макрос копировал данные на новый лист?
Код
  ActiveWorkbook.Queries.Add Name:="12", Formula:= _
        "let" & Chr(13) & "" & Chr(10) & "    Источник = Csv.Document(File.Contents(""C:\Users\admin\Desktop\fRF12.csv""),[Delimiter="";"", Columns=139, Encoding=1251, QuoteStyle=QuoteStyle.None])," & Chr(13) & "" & Chr(10) & "    #""Повышенные заголовки"" = Table.PromoteHeaders(Источник, [PromoteAllScalars=true])," & Chr(13) & "" & Chr(10) & "    #""Измененный тип"" = Table.TransformColumnTypes(#""Повышенные заголовки"",{{""Отчетная дата(DATE1)" & _
        """, type text}, {""ИД(ID_ZAEMSCHIKA)"", type text}, {""Фамилия(SURNAME)"", type text},
Настроить ограничения ввода определенных символов в ячейку без VBA
 
Добрый день!

Хотел запретить ввод специальных символов с помощью проверки данных. Так же очень интересно возможно ли ограничить проверкой данных ввод русских букв / цифр / пробелов / латиницы
При поиске наткнулся на формулу которая это якобы может. Но превратить ее в что то стоящее не смог.
Код
=ISNUMBER(SUMPRODUCT(SEARCH(MID(A1,ROW(INDIRECT("1:"&LEN(A1))),1),"0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ")))

Очень надеюсь на помощь
Страницы: 1
Наверх