- Katılım
- 5 Aralık 2007
- Mesajlar
- 635
- Excel Vers. ve Dili
- Office 2007
- Altın Üyelik Bitiş Tarihi
- 08-05-2021
merhaba,
kapalı excel dosyasında "islem_saati" sütununda son dolu satırın bir altına (ilk boş satıra) işlem zamanını
yazdırmak istiyorum. Aşağıdaki kod ise sayfadaki son dolu satırı referans alarak ilgili sütuna işlem saatini yazıyor.
Bu durumu nasıl düzeltebilirm?
Set bg = CreateObject("adodb.connection")
Set ah = CreateObject("Adodb.recordset")
bg.Open = "Provider=microsoft.ace.oledb.12.0;data Source=" & [s!b231] & ";Extended properties=""excel 12.0;hdr=Yes"";"
ah.Open "select * from [1$];", bg, 1, 3
ah.addnew
ah("islem_saati") = Format(Time, "hh:mm:ss")
ah.update
ah.Close
bg.Close
Set ah = Nothing
Set bg = Nothing
kapalı excel dosyasında "islem_saati" sütununda son dolu satırın bir altına (ilk boş satıra) işlem zamanını
yazdırmak istiyorum. Aşağıdaki kod ise sayfadaki son dolu satırı referans alarak ilgili sütuna işlem saatini yazıyor.
Bu durumu nasıl düzeltebilirm?
Set bg = CreateObject("adodb.connection")
Set ah = CreateObject("Adodb.recordset")
bg.Open = "Provider=microsoft.ace.oledb.12.0;data Source=" & [s!b231] & ";Extended properties=""excel 12.0;hdr=Yes"";"
ah.Open "select * from [1$];", bg, 1, 3
ah.addnew
ah("islem_saati") = Format(Time, "hh:mm:ss")
ah.update
ah.Close
bg.Close
Set ah = Nothing
Set bg = Nothing