Kayıtlar

Eylül, 2013 tarihine ait yayınlar gösteriliyor

SQL den Excel e Veri Aktarma

Resim
Geçenlerde elime 11.000 telefon numarası olan bir excel listesi verdiler. Bunların telefon numarası aynı olanlar teke düşürülüp 100'erli şekilde parçalanması gerekiyordu.

Sql'in gözünü seveyim. Excel'de iken ID kolonu ekledim. SQL'e import ettim. Tekrarlayan kayıtları sayıp teke düşüren TSQL komutu ile 8000 kayıt elde ettim. Bunları 100'erli olarak parçalamak en az 80 tane excel dosyası export etmek demek. Bunu nasıl otomatik hale gerireceğimi ararken farklı seçenekler buldum.
1. Seçenek; SQL sorgu ekranında sorgu yazmak. Ama Excel çıktısı için Office ve SQL aynı anda x86 ya da x64 olmalı. Bende Office x86, SQL x64 olunca bu çözüm sonuç vermedi.
2. Seçenek; Excel makro ekranında ActiveX Data Provider referansını ekleyip VB kodu eklemek.

//Microsoft ActiveX Data Provider referansını ekle
Sub DataAktar()
    ' Connection nesnesi oluşturalım.
    Dim cnPubs As ADODB.Connection
    Set cnPubs = New ADODB.Connection

    ' Bağlantı cümlesi değişkeni
    Dim strC…