تصدير بيانات من اكسيل الى وورد Export to Word

بسم الله الرحمن الرحيم

اقدم لكم كود للتصدير الى الوورد من الاكسيل  

يتم تصدير البيانات الي ملف وورد في نفس مسار ملف الاكسيل 

كل ما عليك هو تغيير مسار الحفظ 

او تغيير النطاق المراد تصديره  

كود التصدير

 Sub Button1_Click()  
   Dim WdObj As Object, fname As String  
   fname = "Yasser"  
   Set WdObj = CreateObject("Word.Application")  
   WdObj.Visible = False  
   Range("A1:G30").Select  
   Selection.Copy  
   WdObj.Documents.Add  
   WdObj.Selection.PasteSpecial Link:=False, _  
                  DataType:=wdPasteText, Placement:= _  
                  wdInLine, DisplayAsIcon:=False  
   Application.CutCopyMode = False  
   If fname <> "" Then  
     With WdObj  
       .ChangeFileOpenDirectory "" & ThisWorkbook.Path & ""  
       .ActiveDocument.SaveAs Filename:=fname & ".doc"  
     End With  
   Else:  
     MsgBox ("File not saved, Try again.")  
   End If  
   With WdObj  
     .ActiveDocument.Close  
     .Quit  
   End With  
   Set WdObj = Nothing  
 End Sub  

___________________________________________

لتحميل المثال اضغط هنا

تحياتي

شارك المقال

شاركه على فيسبوكشاركه على جوجل+