من از دستوراتی استفاده کردم که نام و کد ملی و تاریخ روز رو در 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 باید عوض بشه
لطفا کمک
علاقه مندی ها (Bookmarks)