Klasördeki Dosyaları TXT Dosyasına Yazma

Ömer BARAN

• 18 Ağu 2024

• #2

@cahan2010

İsteğiniz;
belli bir klasördeki (bunun içindeki alt klasörler dahil) her türden belgelerin listesini, excel belgesine yazdırmak mıdır?

 

Oyla 0 Olumsuz oyla

hakki83

• 18 Ağu 2024

• #3

Ömer Baran hocamın izniyle
Bu kod işinizi görür mü?
Kopyalayıp not defterine yapıştırırsınız

Kod:

Görüntülemek için giriş yapmanız gerekmektedir.
(34 satır)

 

Oyla 0 Olumsuz oyla

Çözüm

cahan2010

• 18 Ağu 2024

• #4

Evet üstadım.

 

Oyla 0 Olumsuz oyla

cahan2010

• 18 Ağu 2024

• #5

Üstadım. Not defterine kodları yapıştırdım. Bundan sonra ki süreç nasıl olur.

 

Oyla 0 Olumsuz oyla

hakki83

• 18 Ağu 2024

• #6

Kodları değil, “çıkan dökümü not defterine yapıştırırsınız” anlamında söyledim. (Metin dosyasına istediğiniz için(

Kodları çalıştırdınız mı?

 

Oyla 0 Olumsuz oyla

cahan2010

• 18 Ağu 2024

• #7

Teşekkürler. Kodları çalıştırdım. Harika oldu. İyi çalışmalar.

 

Oyla 0 Olumsuz oyla

Ömer BARAN

• 18 Ağu 2024

• #8

ahmetcahan, hakki83
Doğrudan TXT belge oluşturmak isterseniz, kod aşağıdaki gibi düzenlenebilir.

VBA:

Görüntülemek için giriş yapmanız gerekmektedir.
(39 satır)

 

Oyla 0 Olumsuz oyla

cahan2010

• 18 Ağu 2024

• #9

Merhaba Buda güzel seçeneğe benziyor. Emeğine sağlık.
Bu kodları "bu çalışma kitabına" ekledim. ve run dan çalıştırdım. İşlem tamam dedi. Oluşturulan bu dosyayı nereye oluşturuyor.

 

Oyla 0 Olumsuz oyla

hakki83

• 18 Ağu 2024

• #10

Masaüstüne oluşuyor

 

Oyla 0 Olumsuz oyla

Ömer BARAN

• 18 Ağu 2024

• #11

ahmetcahan, hakki83,
Kodları boş bir MODULe yapıştırın.
TXT belge, excel belgesinin bulunduğu dizine kaydedilir.
Open ThisWorkbook.Path & "\" & Klasor & ".txt" For Output As #1

Başka konuma kaydedilmesini istiyorsanız, ThisWorkbook.Path yerine istediğiniz bir dizinin adresini yazabilirsiniz.

 

Oyla 0 Olumsuz oyla