Text dosyasını excel fomatına dönüştürmek

[MESUTYAMAN70]

Her hafta ekteki dosyayı manuel olarak excel formatına dönüştürüyorum. Bu işlemi makro yardımı ile otomatik hale getirebilir miyim? Şimdiden teşekkürler.

 

[hamitcan]

Sub txt_to_excel()
    yol = "C:\2009_KK.txt"
    Workbooks.OpenText Filename:=yol, TrailingMinusNumbers:=True
End Sub

 

[MESUTYAMAN70]

Çok teşekkür ederim