Файл не будет сохранен в переменной папке - PullRequest
Новая
       12

Файл не будет сохранен в переменной папке

0 голосов
/ 28 марта 2019

Я пытаюсь создать запись для обучения, которое сотрудники заканчивают. У меня есть формы для создания папки с номером сотрудника, а затем сохранить файл с названием обучения. Тем не менее, это ошибка в моей строке кода saveas ... не уверен, что отсутствует или неправильно ... 

    Sub submitgen()

    Dim empnum As String
    Dim traintype As String

    empnum = Sheets("GENERAL TRAINING").Range("E7").Value
    traintype = Sheets("GENERAL TRAINING").Range("E13").Value

    If Len(Dir("C:\Emily\test\" & empnum, vbDirectory)) = 0 Then
      MkDir "C:\Emily\test\" & empnum
    End If

    ActiveWorkbook.SaveAs "C:\Emily\test\" & empnum & "\" & traintype, FileFormat:=52

    End Sub

Что я испортил, ребята?

...