Forumlar
Yeni Mesajlar
CerezExtra
EĞLENCE ↓
Şans Kurabiyesi
Renk Falınız
ÇerezRADYO
Sevgiliye Özel
ÇerezDERGİ
Hızlı Okuma Testleri
Pratik Çözümler
Yeniler
Yeni Mesajlar
Yeni ürünler
Yeni kaynaklar
Son Aktiviteler
İndir
En son incelemeler
Dükkan
Giriş
Kayıt
Yeniler
Yeni Mesajlar
Menu
Giriş
Kayıt
Uygulamayı yükle
Yükle
Merhaba
Ziyaretçi
.
"Yapay Zeka Objektif " Fotoğraf oylamasi başladı
BURADAN
En güzel Yapay Zeka resmini seçiyoruz
Forumlar
Bilgisayar & Cep & Teknoloji
Office Programları
Dosya İsimlerini worde kopyalanabilir mi?
JavaScript devre dışı bırakıldı. Daha iyi bir deneyim için, devam etmeden önce lütfen tarayıcınızda JavaScript'i etkinleştirin.
You are using an out of date browser. It may not display this or other websites correctly.
You should upgrade or use an
alternative browser
.
Konuya cevap yaz
Mesaj
<blockquote data-quote="YoRuMSuZ" data-source="post: 194608" data-attributes="member: 1"><p>Hocam şöyle bir makro buldum excel için. </p><p> </p><p>[CODE] </p><p>Option Explicit</p><p>Sub DosyaIsimleri()</p><p>Dim i As Integer</p><p>With Application.FileSearch</p><p>.NewSearch</p><p>.LookIn = "c:\"</p><p>.Filename = "*.jpg"</p><p>.SearchSubFolders = True</p><p>.MatchTextExactly = True</p><p>.Execute</p><p>If .Execute() > 0 Then</p><p>For i = 1 To .FoundFiles.Count</p><p>Cells(i, 1) = .FoundFiles(i)</p><p>Next i</p><p>End If</p><p>End With</p><p>End Sub</p><p>[/CODE]</p><p>Şimdi denedim çalışıyor. Ancak berlili dosyaların adlarını alabiliyorsunuz. Örneğin bir klasör içindeki *.jpg, *.doc, *.xml, *. xls ....</p><p> </p><p>Makroyu ihtiyacınız doğrultusunda düzenleyebilirsiniz ancak daha kolay bir yöntem de bulunabilir.</p></blockquote><p></p>
[QUOTE="YoRuMSuZ, post: 194608, member: 1"] Hocam şöyle bir makro buldum excel için. [CODE] Option Explicit Sub DosyaIsimleri() Dim i As Integer With Application.FileSearch .NewSearch .LookIn = "c:\" .Filename = "*.jpg" .SearchSubFolders = True .MatchTextExactly = True .Execute If .Execute() > 0 Then For i = 1 To .FoundFiles.Count Cells(i, 1) = .FoundFiles(i) Next i End If End With End Sub [/CODE] Şimdi denedim çalışıyor. Ancak berlili dosyaların adlarını alabiliyorsunuz. Örneğin bir klasör içindeki *.jpg, *.doc, *.xml, *. xls .... Makroyu ihtiyacınız doğrultusunda düzenleyebilirsiniz ancak daha kolay bir yöntem de bulunabilir. [/QUOTE]
Alıntıları ekle...
İsim
Spam kontrolü
Ülkemizin kuzeyindeki deniz hangisidir? (bitişik yazınız)
Cevapla
Forumlar
Bilgisayar & Cep & Teknoloji
Office Programları
Dosya İsimlerini worde kopyalanabilir mi?
Top