با درود
ظاهرا دوست عزیزمون مشکلشون کامل حل نشده بود و بهم پیام دادن - من یه کد در زیر میزارم که همونجور که از اسمش پیداست برای یک کلید نوشته شده محتویات سل A1 رو به یه فایل ورد که در ادرس نوشته شده هست میبره کپی میکنه - نیازی به باز بودن فایل ورد نیست خودش باز میکنه - حالا این ساده نوشته شده دوست عزیز شما با توجه به کار خودت ببین چه استفاده ای میخوای و گسترشش بده اینم محض قولی که دادم
کد:
Private Sub CommandButton2_Click()
Application.EnableEvents = False
Dim docWord
Dim appWord As Object
Set appWord = CreateObject("Word.Application")
appWord.Visible = True
Set docWord = appWord.Documents.Open("C:\Users\amin\Desktop\VBA Excel to Word\Summary.docx")
Range("A1").Select
Selection.Copy
appWord.Activate
appWord.Selection.PasteSpecial
Application.CutCopyMode = False
Application.EnableEvents = True
End Sub
علاقه مندی ها (Bookmarks)