Visual Basic.NET - No se puede crear el componente ActiveX.

Imports System.Data.OleDb

Imports System.Collections.ObjectModel

Imports System.IO

Imports iTextSharp

Module Module1

    Dim xlapp As Microsoft.Office.Interop.Excel.Application

    Dim xlhoja As Microsoft.Office.Interop.Excel.Worksheet

    Dim xllibro As Microsoft.Office.Interop.Excel.Workbook

    Dim fichero ' As String = My.Computer.FileSystem.GetName(files)

    Dim carpeta As String = "C:\Users\pepe\Desktop\ficheros excel"

    ' Dim carpeta_salida As String = "C:\Users\pepe\Desktop\Nueva carpeta"

    Dim files As ReadOnlyCollection(Of String)

    Dim tabla As New DataTable

    Dim conexion As OleDbConnection = New OleDbConnection

    Dim oledbadapter As OleDbDataAdapter

    Sub Main()

        files = My.Computer.FileSystem.GetFiles(carpeta, FileIO.SearchOption.SearchTopLevelOnly, "*.xls")

        For Each fichero As String In Directory.GetFiles(carpeta, "*.xls")

            conexion.ConnectionString = ("provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & fichero & ";Extended Properties=""Excel 8.0;HDR=NO;IMEX=1""")

            'HDR=YES ¿TIENE CABECERA?

            'IMEX = 1 TRATAR TODO COMO TEXTO, SI NO LO PONEMOS PUEDEN QUEDAR CAMPOS EN BLANCO

            conexion.Open()

            oledbadapter = New OleDbDataAdapter("select * from [Hoja1$]", conexion)

            ' oledbadapter.Fill(tabla, fichero)

            pasar_a_pdf()

            conexion.Close()

        Next

        'My.Computer.FileSystem.CopyDirectory(carpeta, carpeta_salida)

        'eliminar_excel()

    End Sub

    Sub pasar_a_pdf()

        Dim impresora As Object

        impresora = CreateObject("PDFCreator")

        xlapp.ActivePrinter = impresora

        xlapp.printout(False)

    End Sub

End Module