Kayıt Defteri adlı yazılımımda kullandım işinize yarar diye paylaşıyorum:Bu sadece rnek modüldür: 'Tetrasoft 'Author: Fatih ' 'Exporting Module 'Core module to export listview items Imports System. IO Module mdlExport Public Sub ExportExcel On Error GoTo Hata_EBulunamadi 'Excel. workbooks(1). worksheets(1). Cells(1, 2) => İlk Cells Parametresi Satır İkinci Cells Parametresi sütun Dim exdosyakonum As String Dim Excel As Object frmMain. prgBar1. Visible = True Excel = CreateObject frmMain. prgBar1. Value += 20 frmMain. tsDefterBilgi. Refresh Select Case Excel. Version Case "12.0" exdosyakonum = dosyakonum. Substring(0, dosyakonum. Length - 4) & ". xlsx" Case Else 'Bug oluşabilir! exdosyakonum = dosyakonum. Substring(0, dosyakonum. Length - 4) & ". xls" End Select If File. Exists Then Kill Application. DoEvents If File. Exists Then MsgBox Exit Sub End If End If frmMain. prgBar1. Value += 5 frmMain. tsDefterBilgi. Refresh Excel. ScreenUpdating = True Excel. Visible = False 'True Dim xlWorkSheet As Object = Excel. workbooks. add 'Dim poslar As Integer Dim sonpos As Integer For z = 0 To frmMain. Defter. Columns. Count - 1 Excel. workbooks(1). worksheets(1). cells(1, z + 1). value = frmMain. Defter. Columns . Text frmMain. prgBar1. Value += 1 frmMain. tsDefterBilgi. Refresh Next For k = 0 To frmMain. Defter. Items. Count - 1 Excel. workbooks(1). worksheets(1). cells(frmMain. Defter. Items . Index + 2, 1). value = frmMain. Defter. Items . Text For z = 0 To frmMain. Defter. Items . SubItems. Count - 1 Excel. workbooks(1). worksheets(1). cells(frmMain. Defter. Items . Index + 2, z + 1). value = frmMain. Defter. Items . SubItems . Text Next sonpos = k + 4 frmMain. prgBar1. Value += 1 frmMain. tsDefterBilgi. Refresh Next Excel. workbooks(1). worksheets(1). cells(sonpos, 1). value = " " Excel. workbooks(1). worksheets(1). cells(sonpos + 1, 1). value = "//Converted from 'Kayit Defteri' file. Based on Excel Com Object" frmMain. prgBar1. Value += 2 frmMain. tsDefterBilgi. Refresh 'Excel. workbooks(1). worksheets(1). cells(1, 2). value = "Success" xlWorkSheet. SaveAs frmMain. prgBar1. Value += 20 frmMain. tsDefterBilgi. Refresh Excel. quit Excel = Nothing frmMain. prgBar1. Value = frmMain. prgBar1. Maximum If MsgBox = MsgBoxResult. Yes Then System. Diagnostics. Process. Start End If frmMain. prgBar1. Value = 0 frmMain. tsDefterBilgi. Refresh frmMain. prgBar1. Visible = False frmMain. tsDefterBilgi. Refresh Exit Sub Hata_EBulunamadi: MsgBox End Sub End Module Şuan tam olarak vaktim yok nemli kısımlar: Excel. workbooks(1). worksheets(1). cells(1, 2). value = "Success" Burada Cells(x, x2) x -> Satır x2 -> Sütun. Excel. Quit Excel'i kapatır. Excel. ScreenUpdating = True 'Bunu bende tam olarak bilmiyorum rnek COM Object kullanımında buldum Office konusunda çok iyi değilim. Ancak açık kalsın autodraw gibi bir şey olabilir. Excel. Visible = False 'Excel i grünür/grünmez yapar False olursa excel arkaplanda çalışır grünmez kullanıcıya. Bu arada http://www.tahribat.com/Forum-Bitblt-Api-Sinin-Kalici-Hali-Onemli-165484/ konusunda hala yardım bekliyorum :(