Function ExportExcelIntoText(ByVal FullFileName As String, ByVal _
      xlTabellenblatt As String) As String
        Dim tabname As String
        Dim tables As DataTable
        Dim sheet As String
        Dim p1 As Integer
...
...
...
 
        Using cnn As New OleDb.OleDbConnection( _
          "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" + FullFileName + _
          ";Extended Properties=""Excel 12.0;HDR=Yes;IMEX=1"";")
            Try
                cnn.Open()
            Catch ex As Exception
                Trace.TraceWarning(ex.Message)
            End Try
            If cnn.State = ConnectionState.Open Then
                Using strm As New StreamWriter(TextFilename, False, _
                  Encoding.GetEncoding(28592))
                    tables = cnn.GetOleDbSchemaTable( _
                          System.Data.OleDb.OleDbSchemaGuid.Tables, New Object( _
                          ) {Nothing, _
                          Nothing, Nothing, Nothing})
 
                    Dim int As Integer
                    For int = 0 To tables.Rows.Count
                        If tables.Rows(int)!TABLE_TYPE.ToString = "TABLE" Then
                            tabname = (tables.Rows(int)!TABLE_NAME.ToString())
                            If UCase(Left(xlTabellenblatt, 6)) = "SELECT" Then
                                Using da As New OleDb.OleDbDataAdapter( _
                                  xlTabellenblatt, cnn)
                                    Call cpXL_Data(strm, da)
                                    Exit For
                                End Using
                                'Das richtige Tabellenblatt suchen
                            ElseIf InStr(tabname, xlTabellenblatt) > 0 And _
                              InStr(tabname, "$_") = 0 And InStr(tabname, _
                              "$'_") = 0 Then
                                Using da As New OleDb.OleDbDataAdapter("SELECT" & _
                                "* FROM [" & tabname & "]", cnn)
                                    Call cpXL_Data(strm, da)
                                End Using
                                Exit For
                            End If
                        End If
                    Next
                End Using
                ExportExcelIntoText = TextFilename
            Else
                ExportExcelIntoText = ""
            End If
        End Using
    End Function
 
 
    Sub cpXL_Data(ByVal strm As Object, ByVal da As Object)
        Try
            Using ds As New DataSet("ExcelFile")
                da.Fill(ds)
                strm.BaseStream.Seek(0, SeekOrigin.End)
                'Spaltenkoepfe schreiben
                Dim h As Integer
                Dim i As Integer
                Dim ignoreLine As Boolean
                Dim anzCol As Integer
                Dim colName As String
                Dim colVal As String
                Dim primaryKeys() As String
                Dim anzPK As Integer
                primaryKeys = extractString(Dts.Variables("PrimaryKeys").Value)
                anzPK = primaryKeys.Length
                anzCol = ds.Tables(0).Columns.Count - 1
                Dim pkList(anzCol) As Integer
 
...
...
...
                       For Each column As DataColumn In ds.Tables(0).Columns
                            If Not IsDBNull(row(column)) Then
...
...
                            endif
                        Next
...
...
            End Using
        Catch ex As Exception
            Trace.TraceWarning(ex.Message)
        End Try
    End Sub