XML Import Hatası

[selveroz]

Windows([Filename]).Activate

ActiveWorkbook.XmlImport _
URL:="dizin & dosya", _
ImportMap:=Nothing, Overwrite:=True, _
Destination:=Range("$A$1")

ActiveWorkbook.Save

kodu hata veriyor. Verdiği hata ise:

Run Time Error '-2147217376 (80041020)':

Automation Error

Ben nerde hata yapıyorum???

 

[Biolight]

Merhaba,
hatayı google da arama yapınca şu link e ulaştım
http://www.messagepixels.com/Support/KB/80041020.aspx
yukarıda ki linkten anladığım kadarı ile şifreli bir yerlere ulaşmaya çalışıyorsun
hata o yüzden gibi.
kolay gelsin.

 

[selveroz]

Merhaba,
hatayı google da arama yapınca şu link e ulaştım
http://www.messagepixels.com/Support/KB/80041020.aspx
yukarıda ki linkten anladığım kadarı ile şifreli bir yerlere ulaşmaya çalışıyorsun
hata o yüzden gibi.
kolay gelsin.

İlginiz için teşekkür ederim. Ama hatamın kaynağını anladım. Ben bu kodu çalışma kitabımın sayfalarından birinde yazıp kaydetmiştim. Bunu modullerden birine taşıdığım zaman sorun çözüldü ama bu sefer daha farklı bir sorunla karşılaştım. Kodu aşağıdaki şekilde yazınca istediğim gibi çalışıyor:

ActiveWorkbook.XmlImport URL:= _
"C:\Documents and Settings\user\My Documents\2008\04\30\0000_1_rates.xml", _
ImportMap:=Nothing, Overwrite:=True, Destination:=Range("$A$1")

Ancak ben burada belirttiğim yolu değişken olarak atamak istiyorum ve diyorum ki:

dizin = "C:\Documents and Settings\sirican\My Documents\2008\04\30\"

dosya = Dir(dizin & "*.xml")

ActiveWorkbook.XmlImport URL:= _
"dizin & dosya", _
ImportMap:=Nothing, Overwrite:=True, Destination:=Range("$A$1")


Ama bu sefer hata veriyor:

"System can not locate the object specified."

Yani tanımlı olan objeye ulaşamıyor, bağlanamıyor vs. Msgbox ile yolu görüntülediğimde görüyorum ki dosya doğru tanımlanmış. Ancak hata veriyor!!


Arkadaşlar sayenizde programında çok yol kaydettim sonuna yaklaştım ama 2 sorunum kaldı. Biri bu. Yardımcı olursanız gerçekten çok mutlu olacağım.