Ярлык Goto не работает. Код заменяет файл как в случае vbYes, так и vbNo - PullRequest
Новая
       49

Ярлык Goto не работает. Код заменяет файл как в случае vbYes, так и vbNo

0 голосов
/ 20 июня 2020

Нужна помощь. Я пишу код, который

  • проверяет, существует ли файл, если нет, он создает файл (путем копирования данных из этой книги)
  • если файл существует, дает msgbox. если «Да» нажата, перейти к метке, если «Нет» нажата, выход из подпрограммы.

Проблема: не происходит переход к метке и выход из подпрограммы в обоих да и нет .

Что я делаю не так в коде: 

Dim FileName As String
Dim NewBook As Workbook
Dim DataRange As Range
Dim DataRow As Range
Dim DataCell As Range
Dim PrintValue As String
Dim Answer As VbMsgBoxResult
FileName = ThisWorkbook.Path & "\Project Activity.csv"
If Dir(FileName) = vbNullString Then
  ReplaceFile:

Open FileName For Output As #1

Set DataRange = Sheet7.Range("A10").CurrentRegion.Rows
    For Each DataRow In DataRange
        For Each DataCell In DataRow.Cells
            PrintValue = PrintValue & DataCell.Value & ";"
            Next DataCell
            PrintValue = Left(PrintValue, Len(PrintValue) - 1)
        Print #1, PrintValue
        PrintValue = ""
    Next DataRow
    
Close #1
    
  Else: MsgBox "File already exists. Do you want to replace the file", vbYesNo, "File Exists"

If Answer = vbYes Then GoTo ReplaceFile Else Exit Sub

End If
...