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

هر دو فایل اکسل و اکسس ضمیه رو در درایو 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