makro ile Not defterini açmak??

[ibrahim_44]

Merhaba arkadaşlar mokro ile windowsdaki not defterini nasıl açabilirim böyle bir kod yazılabilrmi acaba?

 

[parsley2]

Shell "C:\WINDOWS\system32\notepad.exe"

 

[ibrahim_44]

teşekkürler hocam

 

[ibrahim_44]

peki hocam açılan notepad dosyasının içine bir kelime yazdırıp o notepad dosyasını farklı kaydet ile bir isim verip çalıştırmak için ne yapabilriz?

 

[ibrahim_44]

bu konuda yardımcı olabilecek bir hocam varmı acaba rica etsem

 

[hamitcan]

Sub Text_Dosyası_Oluştur_Yaz()
Dim ds, a
Set ds = CreateObject("Scripting.FileSystemObject")
Set a = ds.CreateTextFile("C:\Deneme.txt", True, False) 'İlk true Overwrite,İkinci False ASCII true olursa Unicode
a.WriteLine ("İlk Satır")
a.Close
End Sub

 

[ibrahim_44]

Hocam çok teşekkür ederim demek istediğim tam olarak buydu.
Bir şey daha rica edeceğim deneme.txt dosyasını açmak için ne yapabiliriz?

 

[hamitcan]

Tam olarak ne yapmak istediğinizi yazarsanız, konu uzamaz. Kısaca sadece dosyayı açmak mı istiyorsunuz yoksa devamında başka bir sorunuz olacak mı ?

 

[ibrahim_44]

Hamit hocam aslında 4 numaralı mesajımda da yazmıştım ama belki sizin gözünüzden kaçmıştır yada ordaki kelimem tam olarak açıklayıcı olmadı .
txt dosyasını açıp içine bir şeyler yazdırdık ardından aynı dosyayı açmak için ne yapabilriz buu sormak istedim.
Ayrıca ilgilendiğiniz vede vakit ayırdığınız için teşekkür ederim

 

[hamitcan]

Sub dosyaac()
Shell "notepad.exe " & "c:\deneme.txt"
End Sub

 

[hamitcan]

Aşağıdaki linki de inceleyebilirsiniz
http://www.excel.web.tr/archive/index.php/t-15133.html

 

[ibrahim_44]

Hocam teşekkür ederim