ben isterimki bi grup cıksın Microsoft DirecTx Apilerini kullanmaya calissin, ya da buna benzer daha sert calismalar yapilsin.. belki o zaman Turkiyede daha iyi isler basarilir yazilim konusunda...
Neyse konumuza gecelim; cok isinize yarayacagini dusundugum bir program kodu gonderiyorum. umarim is hayatinizda kolaylik saglar...

VBden Excele Data aktarimi;
Private Sub Command2_Click()
Dim x1 As Object
Dim sheet As Object
Set x1 = CreateObject("Excel.Application")
x1.Workbooks.Add
Set sheet = x1.ActiveWorkbook.Sheets(1)
x1.Visible = False
sheet.Cells(1, 1).Value = "KART NO"
sheet.Cells(1, 2).Value = "SICIL NO"
sheet.Cells(1, 3).Value = "ADI"
sheet.Cells(1, 4).Value = "SOYADI"
sheet.Cells(1, 5).Value = "MESLEK"
x1.Visible = True
x1.Quit
Set x1 = Nothing
End Sub
__________________