Kapalı Excell dosyasında veri alma

[hdsrny]

Sub Kapalıdan_Al()
Dim Con As Object, Rs As Object, Sorgu As String
Set Con = CreateObject("Adodb.Connection")
Set Rs = CreateObject("Adodb.RecordSet")
Con.Open "provider=microsoft.ace.oledb.12.0;data source=" & _
ThisWorkbook.Path & "\users.xlsx" & ";extended properties=""excel 12.0;hdr=no"""
Sorgu = "Select * from [Sayfa1$] where F1 ='Hasan'"
Rs.Open Sorgu, Con, 1, 1
Range("A3").CopyFromRecordset Rs
Rs.Close: Con.Close
Set Con = Nothing: Set Rs = Nothing: Sorgu = ""
End Sub


Merhaba arkadaşlar yukarıda 'Murat OSMA' nın paylaştığı bir kapalı excel dosyasından veri çekme kodu var ancak ben bukodu yazdığımda;
Rs.Open Sorgu, Con, 1, 1
kısmında "Gerekli bir veya birden fazla parametre için girilen değer yok." hatası veriyor.
Bu hatayı nasıl düzeltebiliriz.

 

[askm]

Örnek dosyalarınız eklerseniz bakalım.

 

[hdsrny]

Örnek dosyalarınız eklerseniz bakalım.

Merhaba askm altın üyeliğim olmadığından ekleyemiyorum. Sizin paylaştığınız kodları da denedim yine aynı hatayı alıyorum.

 

[askm]

askmadige34@hotmail.com adresine mail atarsanız yardımcı olmaya çalışayım.

 

[hdsrny]

askmadige34@hotmail.com adresine mail atarsanız yardımcı olmaya çalışayım.

Merhabalar askm veri çekme kodunu halledim hüce başlığı ile ilgili bir durummuş. düzenleyince halloldu.

Bir sorum daha olacak bu kapalı dosyaya giriş şifresi koyacak olursak. şifreli dosyayı kod ile nasıl açtırırız.

 

[askm]

http://www.excel.web.tr/f48/makro-ile-ifreli-dosya-acmak-t5028.html
incelersiniz.

 

[Orion1]

Bir sorum daha olacak bu kapalı dosyaya giriş şifresi koyacak olursak. şifreli dosyayı kod ile nasıl açtırırız.

Bildiğim kadarı ile şifrelenmiş excel dosyaları ADO ile açılamıyor.

 

[hdsrny]

Bildiğim kadarı ile şifrelenmiş excel dosyaları ADO ile açılamıyor.

peki bunun başka yolu var mıdır.
şifreli accessten veri çekme işini nasıl yapabiliriz peki.
sadece tek hücreden çekmek istiyorum.

 

[Orion1]

peki bunun başka yolu var mıdır.
şifreli accessten veri çekme işini nasıl yapabiliriz peki.
sadece tek hücreden çekmek istiyorum.

Aşağıdaki kod benim arşivimde vardı.Ben denemedim.Şifreli accces dosyasına bağlanılıyor.
Deneyiniz.

Db.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Deneme\PERSONEL.mdb;Jet OLEDB:Database Password=1234;"

Excelden bir hücreden veri almak için aşağıdaki kodu yazabilirsiniz.
Kaynak dosyanın adı ve uazntısı kaynak.xlsx,şifre 1234
Kaynak dosyanın B10 hücresindeki veriyi okuyor.

Dim DataWB As Workbook
Set DataWB = Workbooks.Open(ThisWorkbook.Path & "\kaynak.xlsx", Password:="1234")
MsgBox DataWB.Sheets("Sayfa1").Range("B10").Value
DataWB.Password = "1234"
DataWB.Close True

 

[hdsrny]

Aşağıdaki kod benim arşivimde vardı.Ben denemedim.Şifreli accces dosyasına bağlanılıyor.
Deneyiniz.

Db.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Deneme\PERSONEL.mdb;Jet OLEDB:Database Password=1234;"

Excelden bir hücreden veri almak için aşağıdaki kodu yazabilirsiniz.
Kaynak dosyanın adı ve uazntısı kaynak.xlsx,şifre 1234
Kaynak dosyanın B10 hücresindeki veriyi okuyor.

Dim DataWB As Workbook
Set DataWB = Workbooks.Open(ThisWorkbook.Path & "\kaynak.xlsx", Password:="1234")
MsgBox DataWB.Sheets("Sayfa1").Range("B10").Value
DataWB.Password = "1234"
DataWB.Close True

Merhaba Orion1 benim istediğim accesste(şifreli) sadece 1 hücrede veri var. onu exceldeki Sayfa1 'in A2 hücresine çekmek istiyorum... Formdaki diğer yazılanlara baktım ama düzenleyemedim.

 

[Orion1]

Merhaba Orion1 benim istediğim accesste(şifreli) sadece 1 hücrede veri var. onu exceldeki Sayfa1 'in A2 hücresine çekmek istiyorum... Formdaki diğer yazılanlara baktım ama düzenleyemedim.

örnek acces dosyasını bir dosya upload sitesine yükleyip linkini verirseniz daha hızlı yanıt alabilirsiniz.