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

Collapse
X
Collapse
 
  • صفحه از 1
  • زمان
  • نمایش
حذف همه
new posts
قبلی template بعدی
  • majidtavana

    • 2013/04/24
    • 11
    #1

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

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

      • 2013/04/24
      • 11
      #2
      من از دستوراتی استفاده کردم که نام و کد ملی و تاریخ روز رو در 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


[LEFT][/LEFT]


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

        کامنت

        قبلی template بعدی
        چند لحظه..