[vb6.0] كود استخراج البيانات من داتا جرايد الى الاكسل

PHP كود :
General 
Dim oExcel As Object
Dim oBook As Object
Dim oSheet As Object
Dim r As Integer
Dim NumberOfRows As Integer
'##################################
Private Sub Export_com_Click
Set oExcel = CreateObject("Excel.Application")
Set oBook = oExcel.Workbooks.Add
'############### عدد الاعمدة ######################
Dim DataArray(1 To 500, 1 To 4) As Variant
NumberOfRows = Adodc1.Recordset.RecordCount
For r = 1 To NumberOfRows
DataArray(r, 1) = Adodc1.Recordset.Fields("user_date")
DataArray(r, 2) = Adodc1.Recordset.Fields("user_time")
DataArray(r, 3) = Adodc1.Recordset.Fields("user_log")
DataArray(r, 4) = Adodc1.Recordset.Fields("user_pc")
Adodc1.Recordset.MoveNext
Next
Set oSheet = oBook.Worksheets(1)
oSheet.Range("A1:E1").Font.Bold = True
oSheet.Range("A1 :D1").Value = Array("Date", "Time", "Username", "Pc")
oSheet.Range("A2").Resize(NumberOfRows, 4).Value = DataArray
oBook.SaveAs "D:\King Soft\report.xls"
oExcel.Quit
Adodc1.Recordset.MoveFirst
MsgBox "Report File Saved", 64, "Info"
end sub