VB.NET Exceldatei öffnen - schreiben - als PDF speichern

Frage: Ich arbeite mit VB im Visual Studio und benötige einen Code, der eine bestimmte Exceldatei öffnet, in ein bestimmtes Tabellenblatt etwas reinschreibt und dieses Tabellenblatt als PDF speichert. Wie geht das?

Folgender Code ist NICHT für VBA, sondern für .NET und Excel >= 2007.

Option Explicit On
Option Infer On
Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, _
        ByVal e As System.EventArgs) Handles Button1.Click
        Dim objExcel As Object = Nothing
        Dim objBook As Object = Nothing
        Dim objSheet As Object = Nothing
        Try
            objExcel = GetObject(, "Excel.Application")
        Catch ex As Exception
            Try
                objExcel = CreateObject("Excel.Application")
            Catch ex1 As Exception
                MsgBox("Applikation nicht installiert!", _
                    MsgBoxStyle.Critical, "Error")
            End Try
        End Try
        'objExcel.Visible = True ' zu Testzwecken
        objBook = objExcel.Workbooks.Open("C:\Temp\Book1.xls")
        objSheet = objBook.Worksheets("Tabelle1")
        objSheet.Range("B12").Value = "Test"
        objSheet.ExportAsFixedFormat(0, "C:\Temp\" & objSheet.Name)
        objBook.Close (True)
        objExcel.Quit()
        objSheet = Nothing
        objBook = Nothing
        objExcel = Nothing
        GC.Collect()
        GC.WaitForFullGCComplete()
    End Sub

Beliebte Posts aus diesem Blog

Formeln - auch Array - per VBA eintragen...

Alle Dateien eines Ordners - Optional mit Unterordner

Excel -> Word in Textmarken (Bookmarks)...