Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Excel для Mac
Страницы: 1
RSS
Не могу сохранить макросом открытую книгу в туже папку
 
#1
29.09.2024 13:11:32
Всем добрый день, не могу сохранить SaveAs книгу ранее сохранённую с добавлением к имени в туже папку. Пишет ошибка доступа. Помогите пожалуйста, умоляю!
 
 
 
#2
29.09.2024 15:01:25
Вы создали тему в разделе 'Вопросы по Excel для Mac'. Так задумано? Проблема на MAC-компьютере?
Согласие есть продукт при полном непротивлении сторон
 
 
 
#3
29.09.2024 19:02:56
Добрый вечеря не могу понять что за проблема. я могу спокойно все сохранять в ексель в любую папку а в вба не могу
 
 
 
#4
29.09.2024 19:03:17
Sub q()

Dim fName As String
Dim Path As String
Dim FinalFileName As String

fName = Left(ActiveWorkbook.Name, InStr(1, ActiveWorkbook.Name, ".xl") - 1) & " UAE" & ".xlsx"
Path = ActiveWorkbook.Path & "/"
FinalFileName = Path & fName


ActiveWorkbook.SaveAs FileName:=FinalFileName

End Sub
 
 
 
#5
29.09.2024 19:05:23
Я потратил 2 дня чтобы разобраться с этой ошибкой пробовал написать код разными вариантами. Иногда приходит запрос от екселя предоставить доступ папке я предоставляю и все работает в ней потом перестает.
 
 
 
#6
29.09.2024 19:07:41
Это скрин ошибки. Основная задача чтобы открытый файл ексель и при нажатии на макрос этот файл сохранялся рядом с ним с чуток иным именем. Все это в маке((.
 
 
 
#7
29.09.2024 19:54:16
1. Попробуйте вместо обратного слэша использовать такую конструкцию
Код
Path = ActiveWorkbook.Path & Application.PathSeparator

2. Если макрос находится в той же книге которую Вы пытаетесь сохранить, тогда расширение должно быть соответствующее, с поддержкой макросов (*.xlsm)
У меня не MAC поэтому не воспроизвести Вашу ошибку не проверить свои догадки не могу
Согласие есть продукт при полном непротивлении сторон
 
 
 
#8
29.09.2024 20:01:58
1 я пробовал таже ошибка (то ошибка то запрос доступа) стоит касперский пробовал его закрывать полностью и отключать защиту и добавил ексель в доверенную зону может конечно что то еще надо сделать)
2 макрос лежит в отдельном файле персонал не помню название в программе ексель гдето. тобишь макросы не машают. Так как когда даю разрешение все пашет исправно( я реально устал искать причину уже 2 дня потраченного времени( легкии вопрос на маке встал колом(
 
 
 
#9
29.09.2024 20:05:42
Я немного не понял как попробовать можете dtmc код исправить, чтобы я скопировал?
 
 
 
#10
29.09.2024 20:07:11
Sub q()

Dim fName As String
Dim Path As String
Dim FinalFileName As String

fName = Left(ActiveWorkbook.Name, InStr(1, ActiveWorkbook.Name, ".xl") - 1) & " UAE" & ".xlsx"
Path = ActiveWorkbook.Path & Application.PathSeparator
FinalFileName = Path & fName


ActiveWorkbook.SaveAs FileName:=FinalFileName

End Sub
 
 
 
#11
29.09.2024 20:13:18
Может быть файл в это время кем-то используется? Он в общем доступе?
И еще попробуйте отказаться от ActiveWorkbook. Указывайте книгу явно
Согласие есть продукт при полном непротивлении сторон
 
 
 
#12
29.09.2024 21:08:50
Нет это любой толькочто созданный файл из любой папки кроме разрешенной.
ActiveWorkbook

Sub qqw()

Dim fName As String
Dim Path As String
Dim FinalFileName As String
Dim abook As Workbook

Set abook = ActiveWorkbook

fName = Left(abook.Name, InStr(1, abook.Name, ".xl") - 1) & " UAE" & ".xlsx"
Path = abook.Path & Application.PathSeparator
FinalFileName = Path & fName

abook.SaveAs FileName:=FinalFileName

End Sub

таже ошибка все пашет только в некоторых папках
 
 
 
Страницы: 1
Читают тему
Наверх