• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Word dosyalarını excel tablosu yapmak

Mehaba,
AnaKlasörünüzün yolunu belirleyip kırmızı ile belirttiğim kısmın yerine yazın. Klasör yolunu klasör üzerine gelip sağ tıklayarak özellikler bölümünden öğrenebilirsiniz. Mavi kısma da Anaklasörünüzün adını yazın. Bu kod Thisworkbook bölümünde bulunuyor ve alt klasörlerin isimlerini sayfaya eklediğim comboboxa alıyor.
Kod: 
Private Sub Workbook_Open()
Sheets("AnaSayfa").ComboBox1.Clear
Dim ds, f, f1, fc, s
Set ds = CreateObject("Scripting.FileSystemObject")
Set f = ds.GetFolder("[COLOR="Red"]C:\Users\mustafa\Desktop[/COLOR]\[COLOR="Blue"]Dosyaismi[/COLOR]")
Set fc = f.SubFolders
For Each f1 In fc
Sheets("AnaSayfa").ComboBox1.AddItem f1.Name
Next
End Sub

Aşağıdaki kod da butona bastığınızda çalışır ve combobox da seçili klasörün içinde bulunan wordlerin isimlerini tabloya dönüştürür. Yukarıda kırmızı ve mavi bölümler için söylediğim bu kod için de geçerli. Bu kod module de bulunuyor.
Kod: 
Sub WordAdı()
If Sheets("AnaSayfa").ComboBox1 = "" Then
MsgBox "Klasör ismi seçmediniz."
Exit Sub
End If
[a2:f65536].ClearContents
Range("a2:f65536").Borders.LineStyle = xlNone
Dim MyFolder As String, MyFile As String
Dim i As Long
MyFolder = "[COLOR="Red"]C:\Users\mustafa\Desktop[/COLOR]\[COLOR="Blue"]Dosyaismi[/COLOR]" & "\" & Sheets("AnaSayfa").ComboBox1.Value
MyFile = Dir(MyFolder & Application.PathSeparator & "*.doc", vbDirectory)
Application.DisplayAlerts = False
Do While MyFile <> ""
Cells(i + 2, 2) = MyFile
Cells(i + 2, 2) = Split(Cells(i + 2, 2), ".")
Cells(i + 2, 2).TextToColumns Destination:=Cells(i + 2, 2), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
        :="-", TrailingMinusNumbers:=True
Cells(i + 2, 1) = i + 1
Range(Cells(i + 2, 1), Cells(i + 2, 6)).Borders.LineStyle = xlContinuous
i = i + 1
MyFile = Dir
Loop
Application.DisplayAlerts = True
End Sub

Aşağıdaki kod AnaSayfa'nın kod bölümünde bulunuyor. ve a sütununda çift tıkladığınızda ilgili word dosyasını açıyor. Aynı şekilde kırmızı ve mavi kısma dosya yolunu kopyalamalısınız.
Kod: 
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, [a:a]) Is Nothing Or Target = "" Then Exit Sub
Dosya = Target.Offset(0, 1) & "-" & Target.Offset(0, 2) & "-" & Target.Offset(0, 3) _
& "-" & Target.Offset(0, 4) & "-" & Target.Offset(0, 5) & ".Doc"
CreateObject("Shell.Application").Open "[COLOR="Red"]C:\Users\mustafa\Desktop[/COLOR]\[COLOR="Blue"]Dosyaismi[/COLOR]" & "\" & Sheets("AnaSayfa").ComboBox1.Value & "\" & Dosya
End Sub
 

Ekli dosyalar

Deneme çalışmasını incelermisiniz?

Mustafa hocam,
Yazdıklarınızı adım adım uygulamaya çalıştım.Deneme isimli ekli dosyanın ilgili yerlerine makrolarınızı kopyaladım ve dosya yolunu da yine aynı şekilde kendime göre uyarladım.Benim Word klasörüm masa üzerinde.Ben Deneme ismini verdiğim bir excel çalışma sayfasının ilgili yerlerine kodlarınızı kopyaladım.Ve sonra da öylece kaldım.Butonu çalıştırma olayını yapamadım sanırım. son verdiğiniz makroyu(Butonla ilgili olanı) kod kısmına kopyala demişsiniz ama,beceremedim.Deneme dosyasını incelemenizi (Makroların yazılışını ve düzenlenişini)sonra da beni adım adım yönlendirmenizi istirham edeceğim.Sizi çok yorduğumun farkındayım,bunun için özür diliyorum.Ama benim çok işime yarayacak bir çalışma bu.Sürekli kullanacağım bir çalışma.Selamlar,saygılar...
 

Ekli dosyalar

Cafer Bey,
Kusura bakmayın konunuzla ilgilenemedim. Akşam fırsat olursa bir bakmaya çalışacağım. İl dışında görevliyim, pek fırsat bulamıyorum, aklınıza bir şey gelmesin.
Şöyle kabataslak bir baktım: Eklediğiniz dosyadaki sayfa adıyla koddakiler uyumsuz. Verdiğim koddaki sayfa adı AnaSayfa, sizdeki Sayfa1. Buna dikkat edin. Bir de eklediğim dosyada combobox var. Siz eklememişsiniz. Doğal olarak kodlar bu comboboxu arıyor; bulamayınca da hata veriyor. Bunları düzeltip deneyin. Olmazsa akşam, fırsat bulunca bakacağım.
 
Merhaba

Mustafa Bey,
Rica ederim,ne demek!Sorularımla sizi çok yordum zaten,mahcubum,kusuruma bakmayın.Verdiğiniz kodları tekrar tekrar inceledim.Anasayfa ve Sayfa1 değişimini hemen yapacağım.Ancak,combobox kutusunu nasıl ekleyeceğimi bilemiyorum.Size yeniden soru sormaya yüzüm de kalmadı.Lütfen kusura bakmayın.Çok uygun olursanız,aksadığım noktalarda yardım lütfederseniz minnettar kalırım.Ama,hiçbir işinizi,proğramınızı,çalışmanızı aksatmayacaksam..Teşekkürler,selamlar,saygılar...
 
metin dosyasını exceleher kelime bir hücre şeklinde mi atmak istiyorsunuz.
A B C D E F
22911-AYDIN-GERMENCİK-HIDIRBEYLİ GÖLETİ-OLUMLU şeklinde mi?
 
CAFERCİFTCİ' Alıntı:
Mustafa Bey,
Rica ederim,ne demek!Sorularımla sizi çok yordum zaten,mahcubum,kusuruma bakmayın.Verdiğiniz kodları tekrar tekrar inceledim.Anasayfa ve Sayfa1 değişimini hemen yapacağım.Ancak,combobox kutusunu nasıl ekleyeceğimi bilemiyorum.Size yeniden soru sormaya yüzüm de kalmadı.Lütfen kusura bakmayın.Çok uygun olursanız,aksadığım noktalarda yardım lütfederseniz minnettar kalırım.Ama,hiçbir işinizi,proğramınızı,çalışmanızı aksatmayacaksam..Teşekkürler,selamlar,saygılar...
Genişletmek için tıkla ...
Estağfirullah, sıkılmak ne kelime... İstediğiniz zaman soru gönderebilirsiniz.
Combobox oluşturmak için aşağıdaki sıralamayı takip edin:
Görünüm>Araç Çubukları>Denetim Araç Kutusu>Karma Kutu
Buton oluşturmak için de:
Görünüm>Araç Çubukları>Formlar>Düğme
sıralamasını takip edin ve çıkan ekranda Wordadı isimli makroyu düğmeye atayın.
 
İyi Akşamlar

Mustafa Bey,
Mütevaziliğiniz için ayrıca teşekkürler.Hemen yazdıklarınızı yapmaya çalışacağım.Size sonucu mutlaka yazacağım.Saygılarımla...(Bu arada iki tane karma kutu var.Birisi Karma Düzenleme Kutusu,Diğeri Karma Açılan Düzenleme Kutusu.Hangisini Seçmeliyim?Her iki kutu da aktif olmuyor?)
 
Son düzenleme:
Hücre AYRIŞTIRMA

Dilerim işinize yarayacaktır.
Sorun çıkarsa dosyanızı yollayınız çözümlemeye çalışalım.
 

Ekli dosyalar

Teşekkürler

Sayın hmt1963,
Öncelikle ilginize ve zaman ayırmanıza teşekkür ediyorum.Şayet benim word dosyalarım excelde tüm adıyla beraber sıralanmış olsaydı,sizin yönteminiz çok işe yarayacaktı.Ancak,benim word dosyalarım belgelerimde ya da masa üzerinde bir klasör içerisinde.Ben bunları doğrudan,excele giriş yapmadan ayrıştırmak istiyorum.Hatta bir adım ötesi,word belgesini yazıp aynı formatta belgelerime kaydettiğimde ayrışmış olarak excel tablosunda yerini almasını istiyorum.Tekrar teşekkür ediyor,iyi geceler diliyorum.
 
Mustafa hocam,
Thisworkbook ve Modüle yazmam gereken kodları yazdım.Ancak son yazdığınız ve Anasayfanın kod kısmına yazılacak dediğiniz kodu nereye yazacağımı bilemedim.Yardımcı olurmusunuz?
 
Yeni deneme

Mustafa Bey,
Uyardığınız yanlışlıkları düzelterek yeni bir çalışma yaptım.Ama,yine de çalıştıramadım.Nerede yanlış yapıyorum,neyi eksik yapıyorum,bir tülü bulamadım.Yeni çalışmamı,combobox ve düğme oluşturma kısmı da dahil incelemek ve değerlendirmek lütfunda bulunurmusunuz?Saygılarımla...
 

Ekli dosyalar

Muhtemelen dosya açılışında hata vermiştir. Bütün kodların son satırı "End Sub" olmak zorunda. Thisworkbook bölümündeki kodların sonuna "End Sub" satırını eklememişsiniz. Onun dışında her şey yerli yerinde görünüyor.
 
O da tamam

Mustafa Hocam,End Sub eksikliğini de giderdim.Şimdi proğramı nasıl çalıştıracağım,düğmeyi ve commonboxu nasıl kullanacağım?Sayenizde çok şey öğreniyorum.İnanın kendime güvenim geldi.
 
CAFERCİFTCİ' Alıntı:
Mustafa Hocam,End Sub eksikliğini de giderdim.Şimdi proğramı nasıl çalıştıracağım,düğmeyi ve commonboxu nasıl kullanacağım?Sayenizde çok şey öğreniyorum.İnanın kendime güvenim geldi.
Genişletmek için tıkla ...
:) Comboboxta listelenen klasörlerden istediğinizi seçin ve butona basın.
 
Combobox ta listelenen dosya yok ki...

Mustafa Bey,
Bir yerlerde hatamı yaptım acaba?Çünkü comboboxta sıralanan herhangi bir dosya yok...Zahmet olmazsa,DENEME-2 adını verdiğim ve daha önceki mesajımın ekinde gönderdiğim dosyayı bir inceleyebilirmisiniz?Sabırsızlıkla bekliyorum.İyi geceler...
 
Merhaba,
Eğer klasörler sıralanmıyorsa dosya yolunda bir sorun var demektir. Kodlarda doğru adresi yazdığınızdan emin olun. Benim kontrol etme şansım yok; çünkü sizin bilgisayarınızla benimki bir olmaz. Önceki mesajlarda dosya yolunu nasıl belirleyeceğinizi yazmıştım. Mesajı yeniden inceleyip dosya yolunu yeniden yazıp deneyin.
Uyarı: Comboboxta anaklasörün içindeki klasörler listeleniyor, bilginiz olsun. Ana klasörün adresini tanımlayacaksınız. diğer klasör adreslerinin yolunu yazmayacaksınız. Sistem şu: Combobox Anaklasör içindeki klasörlerin listesini size yapar. Siz bu listeden istediğiniz bir klasörü seçip butona bastığınızda seçtiğiniz klasör içindeki word dosyalarının adlarını listeler.
 
Olmadı,beceremedim.Yine de herşey için teşekkür ederim Mustafa Hocam.Hoşçakalın...Saygılarımla.
 
CAFERCİFTCİ' Alıntı:
Olmadı,beceremedim.Yine de herşey için teşekkür ederim Mustafa Hocam.Hoşçakalın...Saygılarımla.
Genişletmek için tıkla ...
Cafer Bey,
Hemen pes etmeyin. Yüzdünüz yüzdünüz kuyruğuna geldiniz. Kuyrukta bırakmak olmaz.:)
İşi biraz daha basitleştirelim. 21012009 yedek adlı klasörünüzü masaüstünden alın ve doğrudan D sürücünüze kopyalayın, ardından aşağıdaki dosya yolunu yazın, bakalım olacak mı? Sonrasında klasörü asıl yerine sorunsuz yerleştirmeye çalışırız.
Kod: 
"D:\21012009 yedek"
Not: Bıktırdım, çok fazla soru sordum düşüncesine de kapılmayın sakın. Mesleğim öğretmenlik... Kolay kolay beni bıktıramazsınız.:tongue:
 
Sizi Burda Görmek Ne Güzel Hocam...

İnce düşünceleriniz için çok teşekkür ediyorum.51 yaşında bir insanım.28 yıllık Devlet Memuruyum.Kamu da mühendisim.İnanın excel benim belki de en büyük zevkim,hobim.Ama,sonuç alabildiğimi gördüğümde çok mutlu olabiliyorum.Öğrenme konusunda çok sabırlıyımdır ama,kimsenin de değerli zamanını almak,meşgul etmek,saygısızlık etmek istemem.Sağolun,çok yardımcı oluyorsunuz.Bu iyi niyetinizden cesaret alarak devam etmek istiyorum.Dosya yolunu doğrudan D sürücüsüne kopyalayacağım.Peki bir de dosya adı var.Oraya ne yazmam gerekiyor hocam?Saygılarımla...
 
Hocam,21012009 yedek adlı klasörüm dairedeki bilgisayarımda.Evdeki bilgisayarımda EVRAKLAR adlı masaüzerinde bir klasörüm var.Onu D sürücüsüne kopyaladım.Üzerinde sağ tıklayıp özellikleri açtığımda ise konum kısmında sadece D:\ olduğunu gördüm.Sarı renkli klasörün karşısındaki çerçeve içerisine ise EVRAKLAR yazıyor.Bu durumda dosya yolum ve dosya adım ne olacak?
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst