Не удается получить разрешение на запись на рабочий стол из ACCESS VBA

Question

Имеет этот бит кода, который передает результаты запроса кросс-таблицы в электронную таблицу EXCEL, которую я хочу на рабочем столе:

DoCmd.TransferSpreadsheet _
acExport, _
acSpreadsheetTypeExcel12Xml, _
"1ACTSKUbyYrbyMo", _
"C:\Users\John\Desktop", _
True

Но при запуске я получаю ошибку времени выполнения «3051», котораяговорит, что у кого-то еще есть открытая папка или у меня нет разрешения на запись в папку.Я просканировал всю сеть и перепробовал все возможные решения, но ничего не работает.Я захожу в папку и свойства часов справа и снимаю флажок только для чтения, он выполняет какое-то сканирование, но затем всегда возвращается только для чтения.Использование Windows 10 и ACCESS 365, в которые я начинаю верить, является ошибкой.Бьюсь об заклад, я нашел и попробовал дюжину вариантов исправлений для этой проблемы, но ничего не работает.Есть предложения?

jpl458

Answer 1

Вам нужно имя файла , а не имя папки:

DoCmd.TransferSpreadsheet _
acExport, _
acSpreadsheetTypeExcel12Xml, _
"1ACTSKUbyYrbyMo", _
"C:\Users\John\Desktop\YourNewWorkbook.xlsx", _
True