Kapalı excel dosyasında seçilen aralığın temizlenmesi

[programer]

Herkese iyi akşamlar. Kapalı bir dosyaya aşağıdaki kodu kullanarak verileri yazıyorum. Yazdığım dosyadaki verileri gecici olarak kullanıyorum. Kapalı dosyadaki Satis_Cikis_Rpt sayfasındaki A226 aralığını nasıl temizleye bilirim.

Private Sub Cmd_Yazdir_Click()
On Error Resume Next
  Dim baglan As ADODB.Connection
  Dim kayit As ADODB.Recordset
  Dim Nsql As String
  Dim TT As String
  Dim Firma_Adi As String
  klasor = ThisWorkbook.Path
  'C:\
  Set baglan = New ADODB.Connection
  
  baglan.Open "Driver={Microsoft Excel Driver (*.xls)}; DBQ=" & klasor & "\RaporDb.xls;Readonly=True"
  Set kayit = New ADODB.Recordset
  Nsql = "SELECT * FROM [Satis_Cikis_Rpt$]"
  kayit.Open Nsql, baglan, 1, 3
  
  say = kayit.RecordCount
  
  F = Sheets("Firma_Tnt").Range("B:B").Cells.Find(What:=Satis_Cikis_Frm.FRMKD.Value, LookIn:=xlValues).Row
  Firma_Adi = Sheets("Firma_Tnt").Cells(F, 3)
  a = Sheets("Ambar_Tnt").Range("B:B").Cells.Find(What:=Satis_Cikis_Frm.AMBKD.Value, LookIn:=xlValues).Row
  Ambar_Adi = Sheets("Ambar_Tnt").Cells(a, 3)
  
  For b = 1 To 25
    If Controls("STK" & b) = "" Then GoTo Cikis
       say = say + 1
       kayit.AddNew
       kayit(0) = say
       kayit(1) = (Satis_Cikis_Frm.BN1)
       kayit(2) = CDbl(Satis_Cikis_Frm.BN2)
       kayit(3) = Satis_Cikis_Frm.TARIH.Value
       kayit(4) = "Satis_Cikis_Fisi"
       kayit(5) = Satis_Cikis_Frm.FRMKD.Value
       kayit(6) = Firma_Adi
       kayit(7) = Satis_Cikis_Frm.AMBKD.Value
       kayit(8) = Ambar_Adi
       kayit(9) = Satis_Cikis_Frm.INO.Value
       kayit(10) = Satis_Cikis_Frm.ITA.Value
       kayit(11) = Satis_Cikis_Frm.VSIPNO1.Value
       kayit(12) = Satis_Cikis_Frm.VSIPNO2.Value
       kayit(13) = Controls("STK" & b)
       F = Sheets("Stok_Tnt").Range("B:B").Cells.Find(What:=Controls("STK" & b).Value, LookIn:=xlValues).Row
       Stok_Adi = Sheets("Stok_Tnt").Cells(F, 3)
       kayit(14) = Stok_Adi
       kayit(15) = Controls("GMIK" & b)
Next
say = 0
Cikis:
kayit.Update
baglan.Close

With CrystalReport1
    .ReportFileName = "D:\satis_cikis.rpt"
    .Action = 1
End With

End Sub

 

[Levent Menteşoğlu]

ADO ile temizleyemezsiniz. Dosyayı açıp sildikten sonra kapatan bir yöntem kullanabilirsiniz.

 

[programer]

Sayın Levent Menteşoğlu peki dolu olan hücrelere boşluk atayarak temizleme gibi bir şansımız varmı bide dosyayı açıp kapamadan yapabileceğimiz bir yöntem varmı.

 

[halit3]

Bu kod dosyayı açıp siliyor sonrada kapatıyor.

Sub temizle()
Application.ScreenUpdating = False
Workbooks.Open (ThisWorkbook.Path & "\" & "RaporDb.xls")
Sheets("Satis_Cikis_Rpt").Range("A226").ClearContents
Range("A1").Select
ActiveWorkbook.Save
ActiveWindow.Close
Application.ScreenUpdating = True
MsgBox "işlem tamam"
End Sub