Сохранение файла в определенный каталог - PullRequest
0 голосов
/ 26 февраля 2019

Я пытаюсь сохранить файл в определенном каталоге.Данные (из таблицы с именем '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

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...