merhaba
excel 2003 te hazirlamis oldugum yedi sayfalik bir calismam var. her sayfada kodlar veya formüller var. dosyami 2007 versiyonunda calistirmak icin xls formatini xlsm biciminde kaydedip kullanmaya basladim. bütün hersey normal calisirken asagidaki kodlar hata veriyor. acaba kodlar veya formüllerin dogru calismasi icin dosya uzantisi nasil olmalidir. kodlar xls uzantasi icin hatasiz calisiyor. verdigi hata system error &H80004005 (-2147467259). tesekkür ederim.
Sub verilerial()
Set baglanti = CreateObject("ADODB.Connection")
yol = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\Programme\Yedek\" & [c3] & ".xlsm;Extended Properties=""Excel 8.0;HDR=no;IMEX=1"";"
baglanti.Open yol
Set rs = baglanti.Execute("[Veri$c6:c65536]")
[c6].CopyFromRecordset rs
End Sub
excel 2003 te hazirlamis oldugum yedi sayfalik bir calismam var. her sayfada kodlar veya formüller var. dosyami 2007 versiyonunda calistirmak icin xls formatini xlsm biciminde kaydedip kullanmaya basladim. bütün hersey normal calisirken asagidaki kodlar hata veriyor. acaba kodlar veya formüllerin dogru calismasi icin dosya uzantisi nasil olmalidir. kodlar xls uzantasi icin hatasiz calisiyor. verdigi hata system error &H80004005 (-2147467259). tesekkür ederim.
Sub verilerial()
Set baglanti = CreateObject("ADODB.Connection")
yol = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\Programme\Yedek\" & [c3] & ".xlsm;Extended Properties=""Excel 8.0;HDR=no;IMEX=1"";"
baglanti.Open yol
Set rs = baglanti.Execute("[Veri$c6:c65536]")
[c6].CopyFromRecordset rs
End Sub