گزارش گیری با اکسل ازداخل اکسس

[moustafa]

با سلام
کدی میخوام که یه فایل اکسل حاوی یه فرم محاسباتی رو بازکن
یه کاربرگ جدید ایجاد کنه
کاربرگ حاوی فرم محاسباتی در اون کپی کنه
داده های فرم اکسس رو داخل سلولهای مشخصی بذاره مثلا cell(3,5)=text1و......
فرم رو چاپ کنه
همه اینا پشت پرده و مخفی از دید کاربر باشه

[moustafa]

هر دو فایل اکسل و اکسس ضمیه رو در درایو c کپی کنید

------------------------------------------------------

Private Sub Command11_Click()
m = t1
n = t2


Dim My_Obj_Excel As Object

Set My_Obj_Excel = GetObject(, "Excel.Application")

My_Obj_Excel.Visible = True
Workbooks.Open "c:\x1"
'Sheets("Sheet14").Select
' Cells.Select
'Selection.Clear

Sheets("Sheet13").Select
'Cells.Select
'Selection.Copy
'Sheets("Sheet14").Select
'Cells.Select
'ActiveSheet.Paste
' Application.CutCopyMode = False
Range("N8").Select
Range("B1") = m
Range("B2") = n
Range("B3") = m + n
' Range("A1").Select
End Sub

Private Sub Command16_Click()
m = t1
n = t2
MsgBox m, vbOKCancel, "cxcel"




Dim xlapp As Object
Dim xlbook As Excel.Workbook
Dim xlsheet As Excel.Worksheet
Set xlapp = CreateObject("Excel.Application")
xlapp.Visible = True
Set xlbook = xlapp.Workbooks.Add
Set xlsheet = xlbook.Worksheets(1)

xlsheet.Cells(1, 2).Value = n
xlsheet.Cells(2, 2).Value = m
xlsheet.Cells(3, 2).Value = m + n


End Sub