Google Forms dan alınan bilgi doğrudan Excel'e kayıt edilebilir mi?

Kodla Büyü
E

Eindoforat

Seçkin Üye
Seçkin Üye
Mesajlar
367
Merhaba arkadaşlar;
Google Form'dan toplanan bilgileri Excel formatında indirebiliyoruz. Peki şunu yapmak mümkün müdür?
Formdan alınan bilgiler doğrudan bilgisayarımdaki (Dikkat!! Drive'daki değil) bir Excel dosyasına kaydedilebilir mi? Yani yeni bir kişi formu doldurduğunda otomatik olarak bilgisayarımdaki Excel kayıtlarına işlensin istiyorum veri tabanı gibi. Excel'de böyle bir fonksiyon var mıdır? Yani bunu yapmanın bir yolu, yöntemi var mıdır?
 
@mokumus67 hocam, eline sağlık. Çok güzel bir çalışma olmuş. Benim ihtiyacım aslında bu kadar kompleks birşey değil. Sadece Excel dosyası içindeki "Google Form'dan Veri Al" düğmesine tıkladığında formdaki bilgileri aktarsın yeterli. Formdan Veri Al düğmesinin altına bazı kodlar mı yazdın, o kısmı anlatabilir misin?
 
O kısmın kodları excel.web.tr adresinden Haluk arkadaşımıza ait.

Kod: 
Sub Google_Form()
    Dim myURL As String, mySh As Worksheet
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    Range("A1:ZZ1000") = ""
   
    myURL = “bu kısma adresi yapıştırın”

   
   
    With ActiveSheet.QueryTables.Add(Connection:="URL;" & myURL, Destination:=Range("$A$1"))
        .Name = "myTable"
'        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlOverwriteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
       
        .RefreshPeriod = 0
       
        .WebSelectionType = xlSpecifiedTables
        .WebTables = 1
       
        .WebFormatting = xlWebFormattingNone
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = False
        .WebDisableRedirections = False
        .Refresh BackgroundQuery:=False
    End With

    Rows(1).Delete
    Columns(1).Delete
    Application.DisplayAlerts = True
End sub
 
@mokumus67 hocam beceremedim ben. Dosyayı iletinin ekine koydum. Bi bakar mısın? Makroları etkinleştirdim. Bir düğme ekledim ancak yukarıdaki kodu düğmeye atama işini yapamadım.
 

Ekli dosyalar

  • deneme_verial.rar
    15.3 KB · Görüntüleme: 44
hocam merhabalar yukarıdaki link çalışıyor
sadece bir yerde hata var
istersen gönderirim
özelden yapılmışını
 
Başka sitenin adresini vermek forum kurallarına aykırı mı bilmiyorum. Dosya linkini silmişler. excel.web.tr adresinde dosya mevcuttur.
 
mokumus67' Alıntı:
Başka sitenin adresini vermek forum kurallarına aykırı mı bilmiyorum. Dosya linkini silmişler. excel.web.tr adresinde dosya mevcuttur.
Genişletmek için tıkla ...

evet hocam. sitemiz kuralları gereği paylaşmak istediğiniz dosyayı burada eklemelisiniz. backlink kuralları çerçevesinde mesaj yazmaya özen gösteriniz.
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst