هر دو فایل اکسل و اکسس ضمیه رو در درایو 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
قوانین ایجاد تاپیک در تالار
پاسخ با نقل قول