DiŞ Verİ Al

[belinay42]

İyi günler

Dış veri alma hakkında bir sorunum var.Gerekli açıklamaları dosyada yaptım veri alınan dosyayıda gönderiyorum.

Vba kodu da olabilir

Acil yardımlarınızı rica ederim.

Şimdiden teşekkürler.

 

[Zeki Gürsoy]

Aşağıdaki proseduru boş sayfada deneyin.

Sub Dis_Veri()
Dim Cn As Object, Rs As Object

Set Cn = CreateObject("Adodb.Connection")

Cn.Open _
"Driver={Microsoft Excel Driver (*.xls)};dbq=" & _
    ThisWorkbook.Path & "\veri alınan dosya.xls"


Set Rs = Cn.Execute( _
        "select * from [sheet1$]")

Cells.ClearContents

[a2].CopyFromRecordset Rs

Rs.Close
Cn.Close

Set Rs = Nothing
Set Cn = Nothing

End Sub

 

[belinay42]

Sn Zeki Gürsoy

Kodu yapıştırıp çalıştırdığımda Run-time error'-5147217865(80040e37)':
Automation error
şeklinde bir hata veriyor

Sizden ricam uygulamalı olarak yapabilirmisiniz?

Saygılarımla.

 

[belinay42]

Yada veri aldığımız sayfada bir kutucuk içinde veri alacağımız dosyayı seçme şansımızda olabilir mi??

Saygılarımla.

 

[Zeki Gürsoy]

Dosya ektedir. Diğer dosya ile aynı dizinde olmalıdır.

 

[belinay42]

Zekİ Bey Sİzİnle Telefonda GÖrÜŞme İmkanimiz Varmi??

 

[belinay42]

Selam

Dosya ek'tedir

Teşekkürler

 

[Zeki Gürsoy]

Sonuç olumlu.

 

[real_agabey]

Acaba ekteki dosyaları güncelleyebilirmiyiz.

 

[excel47]

Acaba ekteki dosyaları güncelleyebilirmiyiz.+++ 1