اجرای دستورات اکسل از طریق word

[majidtavana]

سلام به همه
من یک فایلword دارم که توسط mail merge به اکسل متصل شده که کد ملی رو از ستون A اکسل گرفته ، درون یک TABLE تک خانه ایword جایگذاری میکنه.
در فایل WORD یک CommandButton قرار دادم .من نیاز به دستوراتی در CommandButton دارم که تاریخ روز جاری رو در فایل اکسل در سلول کناری کد ملی درج کنه .
مثلا امروز 13/03/1393 برای کد ملی 2292291113 نامه ای پرینت و ارسال شده با کلیک CommandButton تاریخ امروز در ستون B اکسل، روبرو کد ملی مربوطه ثبت بشه
با توجه به تعداد زیاد پرینتها میخوام سابقه ای داشته باشم تا آینده مشخص باشه برای هر شخص در چه تاریخهایی نامه ارسال شده
پیشاپیش از راهنمایی شما سپاسگزارم

اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

[majidtavana]

من از دستوراتی استفاده کردم که نام و کد ملی و تاریخ روز رو در sheet1 ستون A:C کنار هم اضاف میکنه و تا حدی انتطار من بر آورده میشه

Dim xlApp As Excel.Application
Dim xlWB As Excel.Workbook
Dim i As Integer
Dim LastRow As Object
Dim ws As Worksheet
Set xlApp = CreateObject("Excel.Application")


xlApp.Visible = True
Set xlWB = xlApp.Workbooks.Open("C:book1.xlsx")
With xlWB.ActiveSheet
On Error Resume Next
Set ws = ActiveWorkbook.Worksheets("Sheet1")
Set LastRow = ws.Range("a65536").End(xlUp)
LastRow.Offset(1, 1).Value = MailMerge.DataSource.DataFields("نام").Value
LastRow.Offset(1, 0).Value = MailMerge.DataSource.DataFields("کد").Value
LastRow.Offset(1, 2).Value = xlWB.Sheets("sheet1").Range("h2") 'تاریخ
End With








End Sub

طبق این کدها فایل EXCEL جدید باز میشه .اما من نیاز دارم کدها به نحوی اصلاح بشه که اطلاعات در فایل اکسل باز شده و فعال ثبت بشه یعنی دستورات CreateObject و Workbooks.Open باید عوض بشه
لطفا کمک