Tüm dostlarıma iyi çalışmalar diliyorum. Ayrıca doğum günümüzü kutlarım.
Bu kodları çalıştırdığım zaman "open" komutu ile açılan dosyadaki satırı değil yordamın kayıtlı olduğu dosyadaki satırları sayıyor.Benim istediğimse tam tersi. Nedenini tam anlayamamakla birlikte sanırım "Dosyaadı" aktive olmuyor, ne denediysem de olmadı. Ayrıca "dosyaadı" değişkeninin kayıtlarını "cells" değimi ile okuyabiliyorum. Ama satır sayısını alamıyorum.
Bunun sonucu olarak da, dosyaya kayıt ilave edemiyorum. Dostlarım her türlü öneriye açığım. Saygılar.
Kod:
sub DosyaAcma ()
Set Yeni = New Excel.Application
yeni.visible = False
Set Dosyaadı = Yeni.Workbooks.Open(AdresliDosya).Sheets(1)
dim Kayıt as integer
Kayıt = WorksheetFunction.CountA(Sheets("sayfa1").Range("a:a"))
........
end sub
Bunun sonucu olarak da, dosyaya kayıt ilave edemiyorum. Dostlarım her türlü öneriye açığım. Saygılar.