makro ile cvs dosyasını kaydetmek

[snx111]

csv uzantılı kitap1 adında dosyam var makro ile açıp yeni veri ekleyip kaydedip kapatmak istiyorum;

ama farklı kaydet gibi seçenek çıkıyor kendi üstüne kaydet demek zorunda kalıyorum ; makro ile açtıgım cvs dosyasını soru sormadan nasıl kaydedebilirim ?

 Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
       
        Dim objexl As New Excel.Application
        Dim wsheet As Excel.Worksheet
        Dim i As Integer
        On Error Resume Next

        ' 
        objexl.Workbooks.Open("c:\kitap1.csv")
        objexl.Visible = True
        If objexl.Workbooks.Open("c:\kitap1.csv").ReadOnly = True Then
            Beep() : objexl.Workbooks.Close()
        Else

        End If
        objexl.Visible = True
          wsheet = objexl.ActiveWorkbook.ActiveSheet
        wsheet.Range("a1").Value = ListBox1.Text & ListBox2.Text & ListBox3.Text & ListBox4.Text
        objexl.ActiveWorkbook.Save()
        objexl.Workbooks.Close()
        objexl.ActiveWorkbook.Save()
    End Sub

 

[halit3]

Bu işe yarar belki

Application.DisplayAlerts = False