Arkadaşlar aşağıda verdiğim makro,
Set WDApp = GetObject(, "Word.Application")
komut satırında hata veriyor. Bu makro bir word sayfası açıyor ve excel'de seçilmiş aralıktaki bilgileri bu word sayfasına kopyalıyor. Hata neden meydana geliyor? Lütfen yardımcı olur musunuz? teşekkürler.
Sub Aktar()
'
Shell "WINWORD.exe " & """C:\Downloader\Çevir.docx"""
Windows("Veri Tablosu.xlsm").Activate
Range("A2:H2").Select
Range(Selection, Selection.End(xlDown)).Select
Range("A2:H500").Select
Dim WDApp As Word.Application
Dim WDDoc As Word.Document
If Not TypeName(Selection) = "Range" Then
MsgBox "Lütfen excel sayfasından aralığınızı seçiniz", vbExclamation, "Hiçbir aralık seçilmedi"
Else
Set WDApp = GetObject(, "Word.Application")
Set WDDoc = WDApp.ActiveDocument
Selection.Copy
WDApp.Selection.PasteSpecial Link:=False
End If
End Sub
Set WDApp = GetObject(, "Word.Application")
komut satırında hata veriyor. Bu makro bir word sayfası açıyor ve excel'de seçilmiş aralıktaki bilgileri bu word sayfasına kopyalıyor. Hata neden meydana geliyor? Lütfen yardımcı olur musunuz? teşekkürler.
Sub Aktar()
'
Shell "WINWORD.exe " & """C:\Downloader\Çevir.docx"""
Windows("Veri Tablosu.xlsm").Activate
Range("A2:H2").Select
Range(Selection, Selection.End(xlDown)).Select
Range("A2:H500").Select
Dim WDApp As Word.Application
Dim WDDoc As Word.Document
If Not TypeName(Selection) = "Range" Then
MsgBox "Lütfen excel sayfasından aralığınızı seçiniz", vbExclamation, "Hiçbir aralık seçilmedi"
Else
Set WDApp = GetObject(, "Word.Application")
Set WDDoc = WDApp.ActiveDocument
Selection.Copy
WDApp.Selection.PasteSpecial Link:=False
End If
End Sub