PDA

Vollständige Version anzeigen : Excel Import-Mehrere Felder trennen


Master P.
28.09.2005, 15:26
Hey Leute,

ich möchte eine Excel Tab in mein Programm einlesen!!!
soweit kein Problem!!!



Option Compare Database
Option Explicit


Public Function fncImport()
On Error GoTo HandleErr

Dim objXLS As Excel.Application
Dim objWb As Excel.Workbook
Dim objWs As Excel.Worksheet
Dim rs As DAO.Recordset
Dim strTitel As String

Dim strFile As String
Dim iCol As Integer
Dim iRow As Integer

Debug.Print "Start: " & Now
strFile = "C:\Karibu.xls"

Set rs = CurrentDb.OpenRecordset("Karibu", dbOpenDynaset)

Set objXLS = New Excel.Application
Set objWb = objXLS.Workbooks.Open(strFile)
Set objWs = objWb.Sheets(1)

With objWs

'iRow = 1 ' nur für Test die Überschriften ausgeben
'For iCol = 1 To 28
' Debug.Print .Cells(iRow, iCol)
' If iCol = 7 Then ' 7 = Spalte G
' ' Punkt im Text entfernen
' strTitel = .Cells(iRow, iCol)
' .Cells(iRow, iCell) = Left(strX, Len(strX) - 1)
' End If
'Next

iRow = 2
Do While .Cells(iRow, 5) <> ""
rs.AddNew
For iCol = 1 To 28
'Debug.Print .Cells(iRow, iCol)
rs.Fields(iCol - 1) = .Cells(iRow, iCol)
Next
rs.Update
iRow = iRow + 1
Loop

End With
Set objWs = Nothing
objWb.Close
Set objWb = Nothing
objXLS.Quit
Set objXLS = Nothing

Set rs = Nothing

Debug.Print "Ende : " & Now


ExitHere:
Exit Function

' Error handling block added by Error Handler Add-In. DO NOT EDIT this block of code.
' Automatic error handler last updated at 06-29-2005 15:06:18 'ErrorHandler:$$D=06-29-2005 'ErrorHandler:$$T=15:06:18
HandleErr:
Dim sErrMsg As String
sErrMsg = "Error in modImport.fncImport:" & vbCrLf & Err.Number & ": " 'ErrorHandler:$$N=modImport.fncImport
sErrMsg = sErrMsg & Err.Description
Select Case Err.Number
Case Else
MsgBox sErrMsg, vbCritical, "modImport.fncImport" 'ErrorHandler:$$N=modImport.fncImport
End Select
Resume ExitHere
' End Error handling block.
End Function




Jetzt bekommt meine Excel tab ein weiteres Feld! Das Feld beinhaltet
nur Zahlen, die mit einer # getrennt sind. Die Zahlen sind Artikelnummern!!!
Die würde ich nun gerne getrennt sehen!!
Wie kann ich so etwas realisieren???

Anne Berg
28.09.2005, 15:43
Da könnte die Split-Funktion helfen!