Auto_open makrosu ile .txt dosyası açmak...

[enteresan]

Bir excel dosyasını açtığım zaman,Auto_open makrosuna bağlı olarak aynı anda, aynı klasörde bulunan bir .txt dosyasının da açılmasını istiyorum. Bununla ilgili bir kod aradım ama bulamadım. Eğer gözümden kaçtı ise özür dilerim ama, bu konuda bilgisi olanlardan rica etsem yardım edebilirler mi acaba.? Saygılarımla...

 

[Levent Menteşoğlu]

Aşağıdaki kodları deneyin.

CreateObject("Shell.Application").Open ActiveWorkbook.Path & "\deneme.txt"

veya

Shell "notepad.exe " & ActiveWorkbook.Path & "\deneme.txt"

 

[enteresan]

Aşağıdaki kodları deneyin.

CreateObject("Shell.Application").Open ActiveWorkbook.Path & "\deneme.txt"

veya

Shell "notepad.exe " & ActiveWorkbook.Path & "\deneme.txt"

Hocam çok teşekkür ederim. Burada açılacak dosyayı değiştirmek istersek, yani .txt yerine bir proğram çalıştırmak istersek kodu nasıl değiştirmemiz gerekiyor.? Saygılarımla...