Klasördeki Dosyaları TXT Dosyasına Yazma

Ömer BARAN

Yönetici

Kullanıcı

Katılım

11 Nis 2019

Mesajlar

9,667

• 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

Kullanıcı

Katılım

28 Tem 2022

Mesajlar

887

• 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:

İndirmek için giriş yapmanız gerekmektedir.
(34 satır)

 

Oyla 0 Olumsuz oyla

Çözüm

cahan2010

Kullanıcı

Katılım

8 Mar 2021

Mesajlar

315

• 18 Ağu 2024

• #4

Evet üstadım.

 

Oyla 0 Olumsuz oyla

cahan2010

Kullanıcı

Katılım

8 Mar 2021

Mesajlar

315

• 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

Kullanıcı

Katılım

28 Tem 2022

Mesajlar

887

• 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

Kullanıcı

Katılım

8 Mar 2021

Mesajlar

315

• 18 Ağu 2024

• #7

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

 

Oyla 0 Olumsuz oyla

Ömer BARAN

Yönetici

Kullanıcı

Katılım

11 Nis 2019

Mesajlar

9,667

• 18 Ağu 2024

• #8

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

VBA:

İndirmek için giriş yapmanız gerekmektedir.
(39 satır)

 

Oyla 0 Olumsuz oyla

cahan2010

Kullanıcı

Katılım

8 Mar 2021

Mesajlar

315

• 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

Kullanıcı

Katılım

28 Tem 2022

Mesajlar

887

• 18 Ağu 2024

• #10

Masaüstüne oluşuyor

 

Oyla 0 Olumsuz oyla

Ömer BARAN

Yönetici

Kullanıcı

Katılım

11 Nis 2019

Mesajlar

9,667

• 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