wordden excele macro ile kopyalama

[essoba]

merhaba;
Macro yardımı ile word dosyasını otamatik açmak ve excel çalışma sayfasına otomatik kopyalamak istiyorum...
ES

 

[Ferhat Pazarçevirdi]

Merhabalar

Aşağıdaki kodu standart bir modül sayfasına kopyalayıp, bir butona atayınız.

Sub Wordden_Al_Excele_Yapistir()
Dim wrd As Object
Dim doc As Object
With Application.FileDialog(msoFileDialogFilePicker)
     .AllowMultiSelect = False
     .Filters.Add "Word Belgeleri", "*.doc", 1
     If .Show = -1 Then
        Set wrd = CreateObject("Word.Application")
        wrd.Application.Visible = True
        Set doc = wrd.documents.Open(.SelectedItems(1))
        With doc.ActiveWindow.Selection
            .WholeStory
            .Copy
        End With
     End If
End With
Range("A1").Select
ActiveSheet.Paste
doc.Close 0
wrd.Quit
Set doc = Nothing
Set wrd = Nothing
End Sub

 

[hsayar]

teşekkürler hocam faydalı olabilecek bir kod....
Ancak doc dosyası seçilmeden iptal ile çıkınca hata veriyor.
On error resume next ile engelelyebiliriz.. ama başka bir hata oluşursa onalrı kaçırız. Dosya seçilmemişse çık diyebilirmiyiz. sözün özü.

 

[Ferhat Pazarçevirdi]

Doğru söylüyorsunuz ben hiç dikkat etmemiştim. Atlamışım o kısmı ...

Dikkatiniz için teşekkürler...

Aşağıdaki gibi bir ilave ile bu hata giderilebilir.

Sub Wordden_Al_Excele_Yapistir()
Dim wrd As Object
Dim doc As Object
With Application.FileDialog(msoFileDialogFilePicker)
     .AllowMultiSelect = False
     .Filters.Add "Word Belgeleri", "*.doc", 1
     If .Show = -1 Then
        Set wrd = CreateObject("Word.Application")
        wrd.Application.Visible = True
        Set doc = wrd.documents.Open(.SelectedItems(1))
        With doc.ActiveWindow.Selection
            .WholeStory
            .Copy
        End With
[COLOR=red]     Else
        Exit Sub
[/COLOR]     End If
End With
Range("A1").Select
ActiveSheet.Paste
doc.Close 0
wrd.Quit
Set doc = Nothing
Set wrd = Nothing
End Sub

 

[hsayar]

teşekkürler hocam

 

[ugurrrrrr]

Arkadaşlar teşekkürler
Bu kodu birden fazla dosyayı aynı anda kopyalayacak şekilde düzenleyebilirmiyiz. belki benim sorunuma bir çözüm olur.
http://www.excel.web.tr/showthread.php?t=45811