Excel VBA Save Dialogue Runtime Ошибка 1001 - PullRequest
Новая
       10

Excel VBA Save Dialogue Runtime Ошибка 1001

0 голосов
/ 11 июня 2018

Я новичок в Excel и пытался создать кнопку сохранения для счета-фактуры, но я наткнулся на какой-то дорожный блок, сам код работает нормально, пока я не нажму на кнопку сохранения, иногда он показывает ошибку 400 и иногда показывает ошибку времени выполнения 1001,можно мне совет, пожалуйста 

Sub NextInvoice()
    Range("F4").Value = Range("F4").Value + 1
    Range("A17:E32").ClearContents    
End Sub

Sub SaveInvWithNewName()
    ThisWorkbook.Save 'Save Current workbook in current name

    With Application.FileDialog(msoFileDialogSaveAs)
        .AllowMultiSelect = False
        .FilterIndex = 2
        .InitialFileName = Range("F1").Text & Range("F4").Text  'Specify folder - can also include default filename in here too
        If .Show Then
            ActiveWorkbook.SaveAs Filename:=.SelectedItems(1), _
                FileFormat:=xlOpenXMLWorkbookMarcoEnabled

        End If
    Cancel = True
    End With
End Sub

`

...