export اطلاعات از فرم vb6 به فایل ورد یا اکسل

[arashmeysami]

من یه برنامه نوشتم که بهد از اینکه یکسری اطلاعات رو دریافت می کنه و محاسباتی روش انجام میده اطلاعات محاسبه شده رو به صورت جدول بندی شده در فایل ورد نشون بده. لطفا به هم راهنمایی کنید. ایمیلم pasargad_com7@yahoo و مبایلم 9128144710 خیلس فوری هست. ممنون

[maryamb]

این یه نمونه هست که اطلاعات جدول رو وارد اکسل می کنه:

Private Sub XPButton2_Click()
On Error GoTo m11
Dim i, j, rtot, m
Dim ctot
rtot = 0
Dim objExcl As Excel.Application
Set objExcl = New Excel.Application
objExcl.Visible = True
objExcl.SheetsInNewWorkbook = 1
objExcl.Workbooks.Add
objExcl.ActiveSheet.Cells(1, 1).Value = "شماره" ' ÔãÇÑå ÈäÏá
objExcl.ActiveSheet.Cells(1, 2).Value = "ضخامت" ' ÖÎÇãÊ
objExcl.ActiveSheet.Cells(1, 3).Value = "عرض"
objExcl.ActiveSheet.Cells(1, 4).Value = "طول"
objExcl.ActiveSheet.Cells(1, 5).Value = "تعدادÏ"
objExcl.ActiveSheet.Cells(1, 6).Value = "متراژ"

'select * from table where paking = 5
j = 2
If Adodc1.Recordset.RecordCount > 0 Then
Adodc1.Recordset.MoveFirst
Do Until Adodc1.Recordset.EOF
For i = 3 To 8
objExcl.ActiveSheet.Cells(j, i - 2).Value = Adodc1.Recordset.Fields(i)
Next
Adodc1.Recordset.MoveNext
j = j + 1
Loop
End If
m11:
End Sub