Vba 包含旧文件数据的新CSV文件

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

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

如果文件已经存在，它应该在覆盖之前询问，或者它可以用现有文件之外的另一个数字重命名它（但是用户需要得到有关它的通知），您可以帮助我吗

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

---

？不一样，它只创建工作表，不向其中添加信息：）