Makro kodu ile yeni txt dosyası oluşturmak

[meslek5]

Sayın üstadlarım hepinize kolay gelsin.

Belirtilen bir hedefte makro kodu ile yeni bir TXT Dosyası oluşturmak istiyorum. Bunun için nasıl bir kod gerekir.

Örnek: C:\Windows\System\Deneme.txt

Birkaç gündür arıyorum ama bir türlü cevabını bulamadım. Yardım edecek arkadaşlara şimdiden teşekkür ediyorum.

 

[hamitcan]

Sadece dosya mı oluşturmak istiyorsunuz yoksa içine birşey yazacak mısınız ?

 

[meslek5]

Sadece txt dosyasi olusturmak istiyorum. içine herhangi bir değer yazılmayacak.

 

[meslek5]

Txt dosyasi olusturmak

Sadece txt dosyasi olusturmak istiyorum. içine herhangi bir değer yazılmayacak

 

[Zeki Gürsoy]

open "c:\windows\system\deneme.txt" for output as #1
close #1

 

[meslek5]

hocam yukarıdaki open "c:\windows\system\deneme.txt" for output as #1
close #1 kodu denedim ama olmadı hata veriyor. başka bir çözümü yok mudur.

 

[Korhan Ayhan]

Bahsettiğiniz klasöre dosya ekleme yetkiniz var mı? Bunu manuel test edin.

Yani o klasör altına elle bahsettiğiniz türde dosya eklemeyi deneyin.

 

[meslek5]

evet şimdi test ettim klasör ekleyebiliyorum

 

[meslek5]

klasör ekleyebiliyorum ama doğru dosya ekleyemiyorum. ancak devam butonuna basınca oluyor.
Peki makro ile o klasör içine txt dosyası oluşturmam için nasıl bir kod gerekir çünkü bu yaptığım çalışmanın ki kişisel bilgiler içeriyor başka bilgisayarlarda açılmasını engellemek için çok önemli. Sayın hocalarım sizin için çok basit bir kod yardımınızı bekliyorum.

 

[Korhan Ayhan]

Diyelim ki TXT dosyasını ekleyebildiniz. Dosyanızın açılmasını nasıl engelleyeceksiniz.

 

[meslek5]

_________________________________

 

[meslek5]

____________________________________

 

[Korhan Ayhan]

Ben şimdi size ne dedim ki alındınız!

Zaten yardımcı olmak için konunuza cevap yazdım. Benim maksadımı tamamen yanlış algılayıp yorum yapmışsınız.

Tüm forumda geriye doğru tüm mesajlarıma bakabilirsiniz. Hangi mesajımda KİBİRLİ davranmışım...

Lütfen peşin hükümlü davranmayın. Bu bazen size ters tepki yaratabilir.

 

[hamitcan]

klasör ekleyebiliyorum ama doğru dosya ekleyemiyorum. ancak devam butonuna basınca oluyor.
Peki makro ile o klasör içine txt dosyası oluşturmam için nasıl bir kod gerekir çünkü bu yaptığım çalışmanın ki kişisel bilgiler içeriyor başka bilgisayarlarda açılmasını engellemek için çok önemli. Sayın hocalarım sizin için çok basit bir kod yardımınızı bekliyorum.

Diyelim ki TXT dosyasını ekleyebildiniz. Dosyanızın açılmasını nasıl engelleyeceksiniz.

Sayın meslek5, Korhan Bey, şu ana kadar kimseye kırıcı bir söz söylememiştir ve hiç de kibirli biri değildir. Korhan Bey çok değerli üstadlarımızdan biridir. Bu şekilde bir davranış hiç yakışık almamış. Korhan Bey, cevabında, sorunuzu açarak daha ileriye götürmek istemiş ki sizin bir önceki mesajınızda istediğiniz gibi.
Bu durumu düzeltmek için gereğini yapacağınıza inanıyorum. Teşekkürler...

 

[halit3]

Sayın meslek5

Size sorulan suralar sizi rahatsız etmesin zira kod bir sefer yazılıyor sonra ben şöyle demek istedim bu kodu revize edermisiniz sorusuyla çok karşılaşıyoruz.

Ben sorduğunuz soruya cevap vermedim çünkü içi boş bir txt dosyası ne işe yarayacak merak ediyorum.

İşte size kod istenen klasöre boş bir adet deneme.txt dosyası oluşturuyor.

DosyaAdi = "deneme"
yol = ThisWorkbook.Path
With Application.FileDialog(msoFileDialogFolderPicker)
.Filters.Clear
.InitialFileName = yol
.Title = "Klasöre gözat"
.Show

If .SelectedItems.Count = 0 Then GoTo 1

Open .SelectedItems(1) & "\" & DosyaAdi & ".txt" For Output As #1
Close #1

CreateObject("Shell.Application").Open (.SelectedItems(1))
1
End With

End Sub

 

[meslek5]

Sayın Korhan Bey
sözlerinizin tarafımca yanlış anlaşıldığı kanaatine vardım ve sizden özür diliyorum. hakkınızı helal edin.

 

[Korhan Ayhan]

Birden tepki verince şaşırdım açıkçası... Neyse konu tatlıya bağlandı. (Hakkım geçtiyse helâl olsun...)

Bahsettiğiniz klasör sistem klasörü olduğu için TXT dosyası oluşturulmasına müsaade etmiyor.

Bunun yerine "C" sürücüsünde yeni bir klasör oluşturup bunun içinde TXT yaratmak isterseniz aşağıdaki kodu deneyebilirsiniz.

Sub TEST()
    Set FSO = CreateObject("Scripting.FileSystemObject")
    Yol = "C:\Deneme"
    If FSO.FolderExists(Yol) = False Then FSO.CreateFolder(Yol)
    Set Dosya = FSO.CreateTextFile(Yol & "\Demo.txt")
End Sub