- Katılım
- 13 Temmuz 2016
- Mesajlar
- 613
- Excel Vers. ve Dili
- Excel 2010 & 2016 Türkçe
- Altın Üyelik Bitiş Tarihi
- 06-03-2020
Merhabalar,
Kapalı dosyadan veri çektiğimde bazı xls dosyalarında uyumluluk hatası veriyor. Bu hatayı nasıl geçebilirim. xls Excel dosyasını açıp Dosya>Bilgi menüsünde Uyumluluk Kısmını dönüştür deyince oluyor. bunu dosyayı açmadan yapmak istiyorum.
Şimdiden Teşekkürler
Kapalı dosyadan veri çektiğimde bazı xls dosyalarında uyumluluk hatası veriyor. Bu hatayı nasıl geçebilirim. xls Excel dosyasını açıp Dosya>Bilgi menüsünde Uyumluluk Kısmını dönüştür deyince oluyor. bunu dosyayı açmadan yapmak istiyorum.
Şimdiden Teşekkürler
Kod:
Set cn = CreateObject("adodb.connection")
Set Rs = CreateObject("adodb.recordset")
cnstr = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ExcelDosyaYolu & ExcelDosyaAdi & ";Extended Properties=""Excel 12.0 Macro;HDR=NO"""
cn.Open (cnstr)
Set oRS = cn.OpenSchema(adSchemaTables)
Do While Not oRS.EOF
sSheetName = oRS.Fields("table_name").Value
aaa = sSheetName
oRS.MoveNext
Loop
s1 = "[Excel 12.0 Macro;HDR=NO;Database=" & ExcelDosyaYolu & ExcelDosyaAdi & "].[" & aaa & "]"
Sorgu = "select F1,F2,F3,F4,F5 from " & s1 & " where F5 is not null and F5 not like 'T%' and F5 not like 'Özel İşlem Açıklamam'"
Set Rs = cn.Execute(Sorgu)