包含旧文件

Question

我希望我的代码检查单元格（i，12）是否以262015开头 - 这部分有效。

然后它应该创建一个CSV文件，我在其中输入来自（i，2），（i，6）单元格中“Base”表格的一些信息。

如果文件已经存在，它应该在覆盖之前询问，或者它可以用与现有文件不同的其他数字重命名（但是用户需要了解它）你可以帮助我吗？

Sub Opgave8()
Dim sh As Worksheet
Dim Pth As String
Application.ScreenUpdating = False
Pth = ActiveWorkbook.Path
Set sh = Sheets.Add

For i = 2 To 18288
        If Left(Worksheets("Base").Cells(i, 12), 6) = "262015" Then
        sh.Cells(i, 2) = Worksheets("Base").Cells(i, 4)
    End If
Next i
sh.Move
With ActiveWorkbook
.SaveAs FileName:=Pth & "\AdminExport.csv", FileFormat:=xlCSV
.Close False
End With
Application.ScreenUpdating = True

End Sub