Bu dosya, Excel ile Google Sheets arasında veri alışverişinin nasıl yapılabileceğini basit bir sohbet (chat) uygulaması üzerinden gösterir. Google E-Tablosu veritabanı gibi kullanılır: mesajlar oraya yazılır, Excel de aynı tablodan okuyup bir kullanıcı formunda listeler. Google Sheets'i veri kaynağı olarak kullanıp Excel üzerinden işlem yapmak isteyenler için çalışan bir örnektir.
Dosya makro içerir (.xlsm), açarken makroları etkinleştirmeniz gerekir.
Dosya makro içerir (.xlsm), açarken makroları etkinleştirmeniz gerekir.
Dosyanın içeriği
- Giris: Başlangıç sayfasıdır. Sohbet formunu açmak için kullanılır.
- MsgAktarim: Gizli sayfadır. Google E-Tablosundan indirilen mesajlar A1:C6 aralığında tutulur. Sütunlar sırasıyla tarih/saat, gönderen bilgisayar ve kullanıcı, mesaj metnidir.
- UserForm1: Takma ad giriş formu.
- UserForm2: Mesaj yazma ve mesaj listesi formu.
Makrolar
- GirisFormunuGoster: Mesajlaşma formunu hazırlar ve isim giriş formunu açar.
- MesajGonder: Bilgisayar adını, gönderen adını ve mesajı bir Google Form adresine GET isteğiyle gönderir (MSXML2.XMLHTTP60 kullanılır). Form yanıtları bağlı Google E-Tablosuna kaydolur.
- URLEncode: Türkçe karakterleri ve özel işaretleri adres içinde gönderilebilecek biçime çevirir.
- Mesaj_Alma: MsgAktarim sayfasını temizler, Google E-Tablosunun CSV dışa aktarım adresinden verileri QueryTables ile sayfaya çeker, ardından mesaj listesini yeniler.
- UserForm2: Form açıldığında mesajları alır. Gönder düğmesi mesajı yollar ve kutuyu temizler, ikinci düğme mesajları elle yeniler. Son 150 mesaj listelenir ve liste en alta kaydırılır. Mesajlar her 15 saniyede bir Application.OnTime ile otomatik yenilenir. Form kapanınca bu zamanlayıcı iptal edilir.
- UserForm1: En az 3 karakterli bir isim ister, ismi SaveSetting ile kaydedip sonraki açılışta GetSetting ile geri getirir. Bilgisayar adı ve kullanıcı adı Environ ile alınır.
Nasıl kullanılır
- Dosyayı açın ve makroları etkinleştirin. Bilgisayarınızın internete bağlı olması gerekir.
- Giris sayfasından GirisFormunuGoster makrosunu çalıştırın.
- En az 3 karakterli bir isim yazıp devam edin.
- Mesaj kutusuna yazıp gönder düğmesine basın.
- Mesajlar 15 saniyede bir yenilenir, isterseniz yenile düğmesini kullanın.