DIR komutu hata veriyor! (Acil)

[selveroz]

Evet kodu eksik yazmışım.
Alttaki kodları çalıştırınız.

Dim dizin, dosya, dsy, dosyalar As String
dizin = "C:\Documents and Settings\user\My Documents\2008\04\30\"
dosya = Dir(dizin & "*.*")
Do While dosya <> ""
    If Len(dosya) >= 7 Then
        dsy = Mid(dosya, 5, 3)
         If dsy = "_1_" Then
            dosyalar = dosyalar & dosya & vbLf
        End If
    End If
   [B][COLOR="Red"]dosya = Dir[/COLOR][/B]
Loop
MsgBox dosyalar

Evet oldu bu sefer. Çok teşekkür ederim ) çok sevindim )

Bir soru daha sorabilir miyim?

İlk dosyayı bulduktan sonra ben bu dosyayı bundan hemen önce oluşturmuştum olduğum workbook'a import etmek istiyorum. O yüzden dün bir arkadaşın vermiş olduğu kodu çağırıyrum aşağıda görebileceğiniz gibi:

Workbooks.Add

Filename = Mid(S1.Cells(i, "D").Value, 5, 3)

MsgBox Filename

ActiveWorkbook.SaveAs Filename:="C:\Documents and Settings\sirican\My Documents\2008\04\30\" & [Filename]

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

MsgBox dosya

Do While dosya <> ""

If Len(dosya) >= 7 Then

dsy = Mid(dosya, 5, 3)

If dsy = Filename Then

Call XML_Import(dizin & dosya, S1.Cells(1, "A"))

End If

Ancak .xml dosyasını yeni oluşturduğum çalışma kitabına import etmek istediğimi nasıl belirticem? Yeni oluşturduğum dosyanın adı filename değişkeni ile belirledim tekrar. Eğer filename.S1.cells(1,"A") yazarsam kabul etmiyor??

 

[Orion1]

Makro kaydet yöntemi ile yapın ve kodları alıp istediğiniz yerde kullanınız.

 

[selveroz]

Makro kaydet yöntemi ile yapın ve kodları alıp istediğiniz yerde kullanınız.

Özür dilerim ama anlamadım

 

[Orion1]

Özür dilerim ama anlamadım

Makro kaydet yöntemini bilmiyormusunuz?
Eğer makro kaydet yöntemini bilmiyorsanız excel'de çok şey kaçırıyorsunuzdur.
Makro kaydet yöntemi ile excele yapılan işleri kod'a dökülür.Sizde o kodları alıp istediğiniz gibi kullanırsanız ben çoğu zaman öyle yapıyorum.
Bilmiyorsanız öğrenmenizi tavsiye ederim.

 

[selveroz]

Makro kaydet yöntemini bilmiyormusunuz?
Eğer makro kaydet yöntemini bilmiyorsanız excel'de çok şey kaçırıyorsunuzdur.
Makro kaydet yöntemi ile excele yapılan işleri kod'a dökülür.Sizde o kodları alıp istediğiniz gibi kullanırsanız ben çoğu zaman öyle yapıyorum.
Bilmiyorsanız öğrenmenizi tavsiye ederim.

Pardon yanlış anlamışım. Ben başka bir makro kaydet yşnteminin var olduğunu düşünmüştüm. Bu yönteme göre import kodunu ekledim ama kod bu sefer hata verdi Ben ne bahtsız insanım

Kod şöyle:

Windows([Filename]).Activate

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

ActiveWorkbook.Save

Verdiği hata ise:

Run Time Error '-2147217376 (80041020)':

Automation Error

Ben nerde hata yapıyorum???