Çözüldü Google E-Sheets veri aktarımı

Yakup_Sasmaz' Alıntı:

Merhabalar, pc deki dosyamdan butonla Google e sheets veri aktarımı yapılabiliyor mu?

Genişletmek için tıkla...

Yakup_Sasmaz' Alıntı:

Merhabalar, ilk video işlemleri aynı sanırım. Bende deneyeceğim. Yardımlarınız için teşekkür ederim.

Genişletmek için tıkla...

Yakup_Sasmaz' Alıntı:

Merhabalar, pc deki dosyamdan butonla Google e sheets veri aktarımı yapılabiliyor mu?

Genişletmek için tıkla...

muratgunay48' Alıntı:

Dosyayı DRIVE içine attığınız zaman. DRIVE'da sağ tıkladığınız zaman "OPEN WITH GOOGLE SHEETS" diye seçenek var.
İşinizi görür mü acaba.

Genişletmek için tıkla...

Emre' Alıntı:

Bende dosyası var ama şuan site xlsb formatını desteklemiyor.

Genişletmek için tıkla...

Yakup_Sasmaz' Alıntı:

Emre sizin dosyayı kullanıp kendime uyarlamaya çalışıyorum. Türkçe karakter hatası alıyorum. Sizde de olmuşmuydu.

Ekli dosyayı görüntüle 150


Sub SendToGoogle()

Dim URL_First As String
Dim URL_Last As String
Dim Form_URL As String
Dim HeaderName As String
Dim SendID As String

Dim EmpID As String
Dim EmpName As String
Dim Gender As String
Dim Designation As String
Dim Address As String

Set a = Sheets("google").Range("A2")
Set b = Sheets("google").Range("B2")
Set c = Sheets("google").Range("C2")
Set d = Sheets("google").Range("D2")
Set e = Sheets("google").Range("E2")

Dim TicketInfo As MSXML2.ServerXMLHTTP60

HeaderName = "Content-Type" '

SendID = "application/x-www-form-urlencoded; charset= utf-8"


URL_First = "

Bu bağlantı ziyaretçiler için gizlenmiştir. Görmek için lütfen giriş yapın veya üye olun.

"

URL_Last = "usp=pp_url&entry.1578623695=" & a.Value & "&entry.329853574=" & b.Value & "&entry.300436266=" & c.Value & "&entry.1140690133=" & d.Value & "&entry.1268640971=" & e.Value & "&submit = Submit"

Form_URL = URL_First & URL_Last

Set TicketInfo = New ServerXMLHTTP60

TicketInfpen "POST", Form_URL, False

TicketInfo.setRequestHeader HeaderName, SendID

TicketInfo.send


If TicketInfo.statusText = "OK" Then

Call Reset
MsgBox "Veri Aktarma İşlemi Başarılı!"

Else
MsgBox "Bir Problem Var."
End If

End Sub


Private Sub CommandButton1_Click()
Dim i As VbMsgBoxResult

i = MsgBox("Bilgiler Aktarılsın mı?", vbYesNo + vbQuestion, "Transfer")

If i = vbNo Then Exit Sub

Call SendToGoogle

End Sub

Genişletmek için tıkla...

Emre' Alıntı:

Bu kod fonksiyonu ile göndermek istediğiniz metinleri URL için uygun hale getirebilirsiniz.

HTML:

Kod:

İçeriği görebilmek için Giriş yap ya da üye ol.

Genişletmek için tıkla...

Emre' Alıntı:

İstediğin şeyi elde ettiğin zaman soruyu çözüldü olarak değiştirebilirsiniz.

Genişletmek için tıkla...

Yakup_Sasmaz' Alıntı:

Emre bey, makro ya çok hakim değilim, bunu kendi kodumun bulunduğu yerde mi yapacam yoksa Google e sheet te karakter bozukluğu olan hücrelerime mi uygulamam lazım.

Genişletmek için tıkla...

Yakup_Sasmaz' Alıntı:

Emre Bey, başka bir siteye de yazmıştım. Alttaki kod ile çözdüm.

Veri aktarırken benim gördüğü dikkat etmek gereken şeyler: Excel formunuzda "saat" ve "tarih" varsa google forma "saat" veya "tarih" diye soru oluşturmayın. Veriyi aktarmıyor. Ben "kısa metin" olarak ayarlayıp durumu çözdüm. Ayrıca Excel formunuzdaki "saat" ve "tarih" kısmını da metin olarak ayarlamanız gerekiyor. Excel ve form verilerini dikkatli yapmak gerekiyor. E tablo da neler yapılabiliyor daha bakamadım. Fakat çok başarılı bir içeriği olduğunu gördüm. Sorunlar çıktıkça sizlerle de paylaşırım. Tekrar herkese teşekkür ederim.


Dim TicketInfo As MSXML2.ServerXMLHTTP60

With CreateObject("htmlfile")
.parentWindow.execScript "function encode(s) {return encodeURIComponent(s);}", "jscript"
a = .parentWindow.encode(Sheets("google").Range("A2").Value)
b = .parentWindow.encode(Sheets("google").Range("B2").Value)
c = .parentWindow.encode(Sheets("google").Range("C2").Value)
d = .parentWindow.encode(Sheets("google").Range("D2").Value)
e = .parentWindow.encode(Sheets("google").Range("E2").Value)
End With

Genişletmek için tıkla...

Yakup_Sasmaz' Alıntı:

Merhabalar, bir çözüm buldum gibi. Fakat kod tek satırda çok uzun oldu. Alt satırlara nasıl bölebilirim.

Kod:
HTML:

HTML:

İçeriği görebilmek için Giriş yap ya da üye ol.

Genişletmek için tıkla...