Office: Excel Worksheets in Access importieren

Helfe beim Thema Excel Worksheets in Access importieren in Microsoft Access Hilfe um das Problem gemeinsam zu lösen; Hallo! Ich benötige drigend Hilfe!!!!! Habe die Suchergebnise meiner sehr zeitraubenden aber erfolgreichen Recherche zu einem Codefetzen zusammen... Dieses Thema im Forum "Microsoft Access Hilfe" wurde erstellt von Cihande, 22. Oktober 2006.

Seite 1 von 2

CIHANDE

Cihande

Excel Worksheets in Access importieren

Hallo!

Ich benötige drigend Hilfe!!!!!

Habe die Suchergebnise meiner sehr zeitraubenden aber erfolgreichen Recherche zu einem Codefetzen zusammen gesetzt.

Leider ist es so, das mein Excel-File nicht aus einem sondern aus 4 Arbeitsblätter besteht mit unserchiedelichen Namen!

Ich habe jetzt das Problem, wenn ich dann diesen Code ausführe, immer zwar eine definierte Tabelle in Access ausgegeben bekomme, aber dort steht immer das von der 1 Tabelle darin! Kann mir jemand einen Hinweise geben, wie ich den Inhalt vom jeweiligen Abeitsblatt in Access transferiert bekomme?

Code:
-----------------------------------------------------------------------
Option Compare Database
Sub ExcelImport_Click()
'Import aus einem Excel - XLS - File in eine Access Datenbank
'Achtung: Hier wird aus einer Office XP (2002) Version importiert ... acSpread..Excel"10"
'Arbeitsblatt "Faelle"
DoCmd.TransferSpreadsheet acImport, _
acSpreadsheetTypeExcel10, _
"Excel-Worksheet-Name", "F:\*.xls", _
True
'Arbeitsblatt "Diagnose"
DoCmd.TransferSpreadsheet acImport, _
acSpreadsheetTypeExcel10, _
"Excel-Worksheet-Name", "F:\*.xls", _
True

und dann noch 2 weitere Sheets aus dem Excel-File mit deim gleichen Vorgehen

End Sub
--------------------------Code Ende------------------------------

Würde mich über Hilfe sehr freuen!

Vielen Dank
Chris

:)

Cihande, 22. Oktober 2006

#1
THOMASL

thomasl

DoCmd.TransferSpreadsheet acImport, 8, "NAME DER ZU ERSTELLENEN BZW. TABELLE AN DIE ANGEFÜGT WIRD", "PFAD DER QUELLDATEI [Excel]", True, "Teiledaten!B:BH --> in diesem Fall Arbeitsblatt Tabellenname von Spalte B bis BH importieren"

ist eine Funktion die ein Tabellenblatt aus einer Exceltabelle in eine Access Tabelle importiert

Wenn du nicht gerne VBA programmierst kannst du dir auch ein Makro erzeugen mit der Aktion: "TransferArbeitsblatt" und den Einstellungen --> Transfertyp: Importieren; Tabellenname: "deiner Wahl"; Dateiname: Quelldatei: z.B. C:\test.xls; Bereich: Arbeitsblatt!B:H --> Arbeitsblatt --> Name des Arbeitsblattes das du importieren willst --> in diesem Fall nur Spalte B bis H

thomasl, 24. Oktober 2006

#2
UWEK

uwek

Hallo,

schau mal, ob dir das weiterhilft.

uwek, 24. Oktober 2006

#3
CIHANDE

Cihande

Excel Worksheets in Access importieren

Oh,

super! Einfach erstklassig! Ich werde mir das Ganze mal durchschauen und mir ggf. Know-How abschauen!

Noch eine Anschlußfrage!

Wenn ich eine Access - Tabelle aus einer .mdb Datei heraus in eine ander .mdb - Datei per VBA importieren möchte, wie würde dies gehen?

Hochachtungsvoll
Chris

Cihande, 24. Oktober 2006

#4
UWEK

uwek

Hallo,

Bsp. erweitert mit Import bzw. Verknüpfüng von *.mdb-Tabelle

uwek, 24. Oktober 2006

#5
CIHANDE

Cihande

*boah

Das ist ja Wahnsinn!

Vielen vielen lieben Dank! Einfach einsame Spitze!

Ich finde die VBA - Lösung dynamischer, aber ich habe dies schon, wie ein Beitrag vorher, in einer Makro realisiert. Aber es ist nicht so dynamisch wie deine Lösung!

Echt, ein dickes Lob!

Grüße
Chris

P.S.: Kannst du mir noch einen Hinweis geben, wo man solche Dinge im Net finden kann?Sowas gibt es leider nicht spezifisch beim Googln!

Cihande, 24. Oktober 2006

#6
UWEK

uwek

von Cihande

*boah
... Sowas gibt es leider nicht spezifisch beim Googln!
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Ein Grund mehr öfters im MOF vorbeizuschauen :-)

Zuletzt von einem Moderator bearbeitet: 7. Januar 2021

uwek, 25. Oktober 2006

#7
THOMASL

thomasl

Excel Worksheets in Access importieren

Hallo Uwe,

ist es möglich das du den Quelltext der XLS_Import_Assi.zip mal dokumentiertst. Es sieht so aus als ob du mit dem Button "Excel - Datei öffnen" einen Pfad organisiertst, ohne die Datei sofort zu öffnen. Ich benötige nur den Pfad einer Datei die ich an eine (die von mir oben beschriebene Funktion) übergeben möchte.

Das wäre eine riesen Hilfe, denn ich verstehe den Quellcode der Datei nicht ohne jeglichen Kommentar und bitte nicht nach 10 Zeilen schreiben --> öffnen einer Datei. In der Onlinehilfe ist die Funktion FileDialog niciht gelistet.

Herzlichen Dank für deine Hilfe

thomasl, 7. November 2006

#8
THOMASL

thomasl

Hallo Uwe,

ist es möglich das du den Quelltext der XLS_Import_Assi.zip mal dokumentiertst. Es sieht so aus als ob du mit dem Button "Excel - Datei öffnen" einen Pfad organisiertst, ohne die Datei sofort zu öffnen. Ich benötige nur den Pfad einer Datei die ich an eine (die von mir oben beschriebene Funktion) übergeben möchte.

Das wäre eine riesen Hilfe, denn ich verstehe den Quellcode der Datei nicht ohne jeglichen Kommentar und bitte nicht nach 10 Zeilen schreiben --> öffnen einer Datei. In der Onlinehilfe ist die Funktion FileDialog niciht gelistet.

Herzlichen Dank für deine Hilfe

thomasl, 7. November 2006

#9
UWEK

uwek

Hallo thomasl,

Aufbauend auf dem Klassenmodul "clsFileDiaolog" in der DB,
kannst du folgende Funktion dafür benutzen.
(ich hoffe ausreichend dokumentiert)

Code:

Function ShowFileDialog(Optional lHwnd As Long = 0, _
Optional sTitel As String, _
Optional sInitPath As String = "", _
Optional sFilter As String = "Alle Dateien|*", _
Optional bShowOpen As Boolean = True) As String
'---------------------------------------------------------------------------------------
' Procedure : ShowFileDialog
' DateTime : 08.11.2006 17:19
' Author : uwek
' Return : String
'---------------------------------------------------------------------------------------
'
' lHwnd : optional, bei Aufruf über ein Formular = (Me.Hwnd)
' sTitel : optional, Dialogtitel
' sInitPath : optional, Startpfad für den Dateidialag
' bei keiner Angabe wird das Verzeichnis der Datenbankdatei (CurrentProject.Path) genommen
' sFilter : optional, Angabe entspechender Filter
' bei keiner Angabe werden alle Dateien angezeigt
' der Filtertext setzt sich aus einem String zusammen
' Angabe des Dateitypes + | + Dateiextension
' mehrere Filter werden duch Komma getrennt
'
' Bsp.: "Alle Dateien|*,Datenbanken|mdb,Tabellen|xls,Texte|txt"
'
' bShowOpen : optional, Öffnen - Speicherndialog

Dim strFile As String
Dim strFilter() As String
Dim strFilterText As String
Dim strFilterExt As String
Dim sTmp As String

Dim l As Long, lPos As Long

Dim cFileDlg As New clsFileDialog

On Error GoTo ERR_Error

With cFileDlg
.hwnd = lHwnd
' Dialogtitel
If Len(sTitel) Then
.DialogTitle = sTitel
Else
If bShowOpen Then
.DialogTitle = "Datei öffnen:"
Else
.DialogTitle = "Datei speichern:"
End If
End If
' StartPfad
If Len(sInitPath) = 0 Then
.InitDir = CurrentProject.Path
Else
If Dir(sInitPath, vbDirectory) = "" Then
.InitDir = CurrentProject.Path
Else
.InitDir = sInitPath
End If
End If
' Filter zusammenbauen
strFilter = Split(sFilter, ",")
For l = LBound(strFilter) To UBound(strFilter)
lPos = InStr(strFilter(l), "|")
If lPos > 0 Then
strFilterText = Left(strFilter(l), lPos - 1)
strFilterExt = Mid(strFilter(l), lPos + 1)
.AddFilter strFilterText, strFilterExt
End If
Next l
' Dialogmodus
If bShowOpen Then
.ShowOpen
Else
.ShowSave
End If
' Return
strFile = .FileName
End With

If Len(strFile) > 0 Then
sTmp = strFile
Else
sTmp = ""
End If

Err_Res:
ShowFileDialog = sTmp
Set cFileDlg = Nothing
On Error GoTo 0
Exit Function

ERR_Error:
MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure ShowFileDialog of Modul mFile"
sTmp = ""
Resume Err_Res

End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

uwek, 8. November 2006

#10
THOMASL

thomasl

Ich danke dir zwar für deine Mühe, aber eigentlich hast du genau das gemacht was ich nicht wollte - alls zehn Zeilen eine ein Wort Kommentierung und am Anfang steht eine Funktion, deren Definition nicht in deinem aufgelisteten Code erscheint.

Ich versuche einfach mal hier mit dir zu erörtern was was ist.

Bei dir öffnet sich beim klicken auf den Button "Exceldatei öffnen" ein Auswahlfenster. Welche Quellcodezeilen sind dafür verantwortlich?

Wenn dann eine Datei ausgewählt wurde --> mit welcher Codezeile übergibst du den Pfad an eine Imortfunktion, oder wird die Datei im Hindergrund irgendwo richtig geöffnet?

Meine Vorstellung der Problemlösung sieht folgendermaßen aus (damit du eine Idee hast was ich benötige):

Funktion Pfadauswählen() As String
strPfad = Pfadauswählen ()

'es soll sich ein Dateiauswahlfenster öffnen in dem ich eine Excel datei auswähle --> die Funktion liefert als String den eben ausgewählten Pfad zurück und übergibt diesen auf die Stringvariable strPfad. Anschließend soll der Pfad in die von mir weiter oben (in dieser Forumdiskusion) angegebene Funktion integriert werden mit der automatisch eine Exceldatei, von Access gesteuert, importiert werden kann.

thomasl, 11. November 2006

#11
UWEK

uwek

von thomasl

'es soll sich ein Dateiauswahlfenster öffnen in dem ich eine Excel datei auswähle --> die Funktion liefert als String den eben ausgewählten Pfad zurück und übergibt diesen auf die Stringvariable strPfad.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

genau das macht die Funktion
Code:

strPath= ShowFileDialog(, "Exceltabellen", , "Tabellen|xls")
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Zuletzt von einem Moderator bearbeitet: 7. Januar 2021

uwek, 11. November 2006

#12
USER

User

Excel Worksheets in Access importieren

Hallo uwek,

ich habe versucht mit deiner Import DB eine Excel Tabelle in Access DB zu importieren, es hat gescheitert, weiß ich nicht warum, DB ist einfach abgestürzt. Dann dachte ich die Formulare in meinen DB zu integrieren und dann noch mal versuchen. (Ich habe die Formulare und Modul kopiert, mit alten Namen) und dann beim Versuchen einen Excel-Datei zu öffnen um Tabelle auzuwählen und dann zu importieren, zeigt mir die VBA-Programm Fehler in rot markierten Zeilen:

Code:

Private Sub cmdGoExcel_Click()
Dim cFD As clsFileDialog
Dim sFile As String
Dim oExl As Excel.Application
Dim oWB As Excel.Workbook
Dim oSheet As Excel.Worksheet
Dim i As Integer, iCount As Integer
Dim sTmp As String

On Error GoTo GoExcel_Error
bXls = (Me!grpFile = 1)
Set cFD = New clsFileDialog
With cFD
.hwnd = Me.hwnd
.InitDir = CurrentProject.Path
If bXls Then
.AddFilter "Exceldateien", "xls"
.DialogTitle = "Exeldatei öffnen"
Else
.AddFilter "Access-Datenbanken", "mdb"
.DialogTitle = "Access-Datenbank öffnen"
End If
.ShowOpen
sFile = .FileName
End With
Set cFD = Nothing

If Len(sFile) > 0 Then

If bXls Then
Set oExl = New Excel.Application
Set oWB = oExl.Workbooks.Open(sFile)
iCount = oWB.Worksheets.Count

For i = 1 To iCount
Set oSheet = oWB.Worksheets(i)
sTmp = sTmp & oSheet.NAME & ";"
Next i

Set oSheet = Nothing
oWB.CLOSE SaveChanges:=False
Set oWB = Nothing
Set oExl = Nothing
Else
Dim wrk As Workspace
Dim dbs As DAO.Database
Dim tbl As DAO.TableDef

Set wrk = CreateWorkspace("", "admin", "", dbUseJet)
Set dbs = wrk.OpenDatabase(sFile)

For Each tbl In dbs.TableDefs
If Left$(tbl.NAME, 4) "msys" Then
sTmp = sTmp & tbl.NAME & ";"
End If
Next tbl

dbs.CLOSE
Set dbs = Nothing
wrk.CLOSE
Set wrk = Nothing
End If

sTmp = Left(sTmp, Len(sTmp) - 1)

With Me
.txtFile = sFile
.lstSheet.RowSource = sTmp
.lblCount.Caption = Space(5) & "Tabellen " & .lstSheet.ListCount
End With

End If

On Error GoTo 0
Exit Sub

GoExcel_Error:
MsgBox "Fehler: " & Err.Number & " (" & Err.Description & ")", , "Zugriff fehlgeschlagen!"

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Kannst du mir da weiter helfen, ich muss eine Excel-Tabelle in meinen DB importieren.

User, 25. Mai 2007

#13
STEFFEN0815

Steffen0815

\@keviani:
Wie in deinem anderen Thema, du musst nichts programmieren. Der Import geht im Dialog (Datei->Externe Daten->Importieren).

Steffen0815, 25. Mai 2007

#14
UWEK

uwek

...Fehler in rot markierten Zeilen
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Benötigt Verweis auf Excel

uwek, 25. Mai 2007

#15

(Du musst angemeldet oder registriert sein, um eine Antwort erstellen zu können.)

Seite 1 von 2

Thema:

Excel Worksheets in Access importieren

Die Seite wird geladen...

Excel Worksheets in Access importieren - Similar Threads - Excel Worksheets Access
Excel Termin in Outlook Kalender
in Microsoft Excel Hilfe
Excel Termin in Outlook Kalender: Hallo zusammen, ich habe mal wieder ein Problem das ich schlicht und ergreifend nicht gelöst bekomme. Leider bin ich in VBA ein absoluter Neuling. Beverly hier aus dem Forum hat mir mit einem...
Wie kann man in einer Excel-Datei nur ein Arbeitsblatt freigeben
in Microsoft Excel Hilfe
Wie kann man in einer Excel-Datei nur ein Arbeitsblatt freigeben: Hallo Zusammen, Wie kann man in einer Excel-Datei nur ein Arbeitsblatt freigeben, so dass die dritte Person die folgenden Bedingungen erfüllt: Die dritte Person kann nur die freigegebenen...
VBA: Spalten auf anderen Worksheeds in der Mappe ausblenden.
in Microsoft Excel Hilfe
VBA: Spalten auf anderen Worksheeds in der Mappe ausblenden.: Hallo zusammen, Eine Tabelle mit 9 Worksheets, Datenblatt, Studien, Studie_1 ...Studie_7. Auf dem Deckblatt werden in Zelle B4-B10 die Namen der Studien eingetragen. Davon abhängig ob ein Name...
Zellbezugfehler
in Microsoft Excel Hilfe
Zellbezugfehler: Hallo, da ich bereits seit einiger Zeit herumkopfe und keine wirkiche Lösung bisher gefunden habe, versuche ich hier mal mein Glück. Ausgangsituation: Ich habe für meine Schüler:innen ein...
Excel VBA Spalten mit Ordnerinhalt vergleichen
in Microsoft Excel Hilfe
Excel VBA Spalten mit Ordnerinhalt vergleichen: Hallo, Bin ehr Excel VBA Neuling, Würde aber gerne in einer bestehender Tabelle die Auflistung der Ordner mit dem eigentlichen Stand in den besagten Ordner kontrollieren. Also in der Spalte Q10...
Registername übernehmen für Excel im O365
in Microsoft Excel Hilfe
Registername übernehmen für Excel im O365: Hallo zusammen In älteren Excelversion kann die Funktion '=TEIL(ZELLE("dateiname";A1);FINDEN("]";ZELLE("dateiname";A1))+1;32) den Dateinamen und damit dann auch den Registernamen ausgeben. Gemäss...
Excel - Zeilen vergleichen
in Microsoft Excel Hilfe
Excel - Zeilen vergleichen: Hallo zusammen, eigentlich haben Excel und ich eine ganz gute Freundschaft. Diese wird aber gerade auf die Probe gestellt. Natürlich stelle ich mich zu doof an bzw. stehe auf dem Schlauch und...

Anmelden oder registrieren

Suche

Diese Seite verwendet Cookies, um Inhalte zu personalisieren, diese deiner Erfahrung anzupassen und dich nach der Registrierung angemeldet zu halten.
Auf dieser Website werden Cookies für die Zugriffsanalyse und Anzeigenmessung verwendet.
Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies.

Akzeptieren Weitere Informationen...

Information ausblenden