Excel Personal.xlsb save document Макро

Question

У меня есть макрос, чтобы увидеть, содержит ли ячейка эту строку, если она выполняет команду «Сохранить как» с этим стандартом имени набора. Когда я пытаюсь запустить макрос, инструкции if кажутся неработоспособными. Когда я перехожу шаг за шагом, он попадает в операторы if, но сохраняет файл personal.xlsb вместо файла, над которым я работаю. Вот код, который я знаю, что есть что-то неправильно с ним

Dim FName   As String 
Dim FPath   As String 
Dim answer   As Integer 
If ActiveWorkbook.Sheets("Sheet1").Range("A1") = "String1" Then 
    FPath = "C:\String1" 
    FName = Sheets("Sheet1").Range("A1").Text 
    If Len(FPath & "\" & FName) = 0 Then 
     answer = MsgBox("Do you want to Save File As: " & FName & "?", vbYesNo + vbQuestion, "Microsoft Excel") 
     If answer = vbYes Then 
      ThisWorkbook.SaveAs Filename:=FPath & "\" & FName 
     End If 
    Else 
     ThisWorkbook.Save 
    End If 
End If 

Я открыт для предложений самое я должен проверить, если файл содержит строку, если так убедитесь, что он не существует, и если это так просто сохранить вместо сохранения как.

Answer 1

ThisWorkbook относится к книге, в которой находится код. Предположительно, код находится в Personal.xlsb, поэтому он сохраняет файл XLSB, а не справочную книгу.

Попробуйте вместо этого:

Dim FName   As String 
Dim FPath   As String 
Dim fullName As String 
Dim rng As Range 
Dim s as String 
s = "String1" 
With ActiveWorkbook 
    Set rng = .Sheets("Sheet1").Range("A1") 
    If rng.Value = s Then 
     FPath = "C:\" & s 
     FName = rng.Text 
     fullName = FPath & "\" & FName 
     If Len(fullName) = 0 Then 
      If MsgBox("Do you want to Save File As: " & FName & "?", vbYesNo + vbQuestion, "Microsoft Excel") = vbYes Then 
       .SaveAs Filename:=fullName 
      End If 
     Else 
      .Save 
     End If 
    End If 
End With