27 Haziran 2012

Excel VBA: AutoFill


'kopyalanacak formulun bulundugu hucre
Dim f As String
f = "B1"

'formulun kopyalanacagi alan
Dim r As String
r = "B1:B10"


Range(f).AutoFill Range(r)

Excel VBA: Bir tablodaki satır sayısını bulma


'satir sayisini tutacagimiz long tipindeki degisken
dim i as long

'satir sayisini alacagimiz kolon icin tanimladigimiz string tipindeki degisken
dim c as string
c = "A"

'tablodaki A kolonunda bulunan toplam satir sayisi i ye ataniyor
i = Cells(Rows.Count, c).End(xlUp).Row



22 Haziran 2012

JavaScript Kullanarak Excel Dosyalarını Okumak




// İlgili örnekte MS ADO kütüphanesi kullanılacaktır.

// öncelikle bir connection nesnesi oluşturuluyor ve gerekli parametreler veriliyor
var cn = new ActiveXObject("ADODB.Connection");
cn.Provider = "MSDASQL";

// connection string için DSN tanımlamak en zahmetsiz yöntem
// dileyen ConnectionStrings.Com adresinden
// bağlantı stringini alabilir
cn.ConnectionString = "DSN=BAGLANTIM;";

// bağlantımızı açıyoruz
cn.Open();

// alert(cn.State); koduyla bağlantınızı sınayabilirsiniz.

// sıradaki işlemimizde
// SQL cümleciklerini çalıştıracağımız recordseti oluşturuyoruz
var rs = new ActiveXObject("ADODB.Recordset");
rs.CursorLocation = 3;
rs.Open("SELECT * FROM [Sheet1$]", cn, 1, 3, 1);

// verilerimiz artık oluşturduğumuz recordsette
// buradan istediğiniz satırı veya satırları 
// döngüler yardımıyla alabilirsiniz