Dim ExcelApp As New Application()
ExcelApp.Visible = False
ExcelApp.DisplayAlerts = False
Dim WBook As Workbook = ExcelApp.Workbooks.Open(TextBox1.Text, Missing.Value, Missing.Value, Missing.Value, Missing.Value, Missing.Value,
Missing.Value, Missing.Value, Missing.Value, Missing.Value, Missing.Value, Missing.Value,
Missing.Value, Missing.Value, Missing.Value)
WBook.PrintOut(Missing.Value, Missing.Value, Missing.Value, Missing.Value, Missing.Value, Missing.Value,
Missing.Value, Missing.Value)
WBook.Close(False, Missing.Value, Missing.Value)
ExcelApp.Quit()
Gerekli kütüphaneleri Import etmelisiniz:
Kod:
Imports System.Reflection
Imports Microsoft.Office.Interop.Excel
Solution Explorer sağ tıklama -> Add Reference -> Soldaki COM tıklayın -> Arama kutusunda (search) Excel yazın ve listeden Microsoft Excel xx.x Object Library olana tik atın ve OK butonuna basarak pencereyi kapatın.
Bana kalırsa bu yolu tercih etmem. Üçüncü parti ücretsiz Excel kütüphanelerini kullanabilirsiniz. Böylelikle bu işlemi yapmak istediğiniz bilgisayarda Office kurulu olmasına gerek olmaz.