Здравствуйте уважаемые форумчане!
столкнулся с проблемой (глюком) в обоих нижеприведенных макросах. Думаю причина одна, но никак не могу понять что именно.
Итак макрос 1 создает в целевой папке (/2019) новую папку и конкретным именем (значение из ячейки b3) и сохраняет в нее книгу с именем (данные из ячейки b4).
Раньше все работало. Сейчас выдает ошибку (1004) на строке ActiveWorkbook.SaveAs FileName:=vFile, FileFormat:=xlExcel12. Если из процедуры убрать переменную новой папки, то все работает хорошо. Мое мнение что это связано с буфером переменной (новой папки).
Код |
---|
Sub SaveAsO() Const strRootFolder As String = "E:\Работа\2019\" Dim zName As String, zAdress As String, vFile As String zName = Replace_symbols(ActiveWorkbook.Sheets("dannye").Range("b3").Value) 'имя папки zAdress = Replace_symbols(ActiveWorkbook.Sheets("dannye").Range("b4").Value) 'имя файла (адрес) ' если папка есть, то пропуск, если нет, то создаем If Dir(strRootFolder & zName, vbDirectory) = "" Then MkDir strRootFolder & zName End If vFile = strRootFolder & zName & "\" & zAdress & ".xlsb" 'имя и путь файла ' сохраняем ' On Error Resume Next ActiveWorkbook.SaveAs FileName:=vFile, FileFormat:=xlExcel12 End Sub |
Макрос 2 транслитерация формул. Раньше работало хорошо, сейчас выдает след.текст: "??"
Код |
---|
Sub ForTran() 'перевод формул РУС-ENG With GetObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}"): .SetText ActiveCell.Formula: .PutInClipboard: End With 'MsgBox ActiveCell.Formula & vbCrLf & _ '"" & "Перевод помещён в буфер обмена", , "Formula Translate" End Sub |
На других компьютерах все работает. Подскажите куда копать, где что можно почистить?