Я пытаюсь сохранить файл в определенном каталоге.Данные (из таблицы с именем 'benchmark') необходимо сохранять с соответствующей датой ("IXIddmm") каждый день в моем каталоге.Я создал окно сообщения и указал путь к файлу, в который я хочу сохранить файл, но когда я добираюсь до последней строки моего кода, он продолжает падать («Ошибка времени выполнения 1004», ошибка приложения или объекта).
Я уверен, что это действительно простое решение, но я не могу понять это!
Sub paster ()
Слабое сообщение, inputday, inputmonth, inputyear, dateenterAs String Dim Industrialsfile, directorypath As String Dim File_name As String
'create filenames
message = "Please enter the date you want to save down US Industrials Data for (dd/mm)"
dateenter = Application.InputBox(message, "Enter date")
inputday = Format(Day(dateenter), "00")
inputmonth = Format(Month(dateenter), "00")
Industrialsfile = "IXI" + inputday + inputmonth & ".csv"
directorypath = "n: \ apps \ database\ pivot33 \ MKT_DATA \ Промышленные выбранные данные \ "
Имя_файла = путь к каталогу & Industrialsfile
Листы (" Эталонный тест "). SaveAs Имя_файла: = Имя_файла, FileFormat: = 52
Конец Sub