MS-Office-Forum

Zurück   MS-Office-Forum > Microsoft Access & Datenbanken > Microsoft Access
Registrieren Forum Hilfe Alle Foren als gelesen markieren

Banner und Co.

Antworten
Ads
Themen-Optionen Ansicht
Alt 28.09.2005, 15:26   #1
Master P.
MOF User
MOF User
Standard Acc2003 - Excel Import-Mehrere Felder trennen

Hey Leute,

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

Code:

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???

Geändert von Master P. (28.09.2005 um 15:31 Uhr).
Master P. ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 28.09.2005, 15:43   #2
Anne Berg
MOF Guru
MOF Guru
Standard

Da könnte die Split-Funktion helfen!

__________________

Liebe Grüße
Anne
Anne Berg ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Ads
Antworten


Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Besucher: 1)
 
Themen-Optionen
Ansicht

Forumregeln
Es ist Ihnen nicht erlaubt, neue Themen zu verfassen.
Es ist Ihnen nicht erlaubt, auf Beiträge zu antworten.
Es ist Ihnen nicht erlaubt, Anhänge anzufügen.
Es ist Ihnen nicht erlaubt, Ihre Beiträge zu bearbeiten.

vB Code ist An.
Smileys sind An.
[IMG] Code ist An.
HTML-Code ist An.
Gehe zu


Alle Zeitangaben in WEZ +1. Es ist jetzt 06:42 Uhr.



Powered by: vBulletin Version 3.6.2 (Deutsch)
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.

Copyright ©2000-2018 MS-Office-Forum. Alle Rechte vorbehalten.
Copyright ©Design: Manuela Kulpa ©Rechte: Günter Kramer
Eine Verwendung der Inhalte in anderen Publikationen, auch auszugsweise,
ist ohne ausdrückliche Zustimmung der Autoren nicht gestattet.