hallo Leute,
ich bin gerade dabei einen Code nachzuvollziehen, in dem es im Ganzen Darum geht einen Import von Excel nach Access zu erstellen.
Nun komme ich bei den vielen Codes, bei dieses hier nicht weiter,
kann mir eventuell jemand helfen und sagen, was der Code zu bedeuten hat?!
Das was ich von diesem Verstanden habe sieht wie folgt aus:
- zunächst geht es um die ImportTabelle, die DoCmd.TransferSpreadsheet Methode steht ja für den Impoert einer Excel Tabelle und mit DoCmd.SetWarnings werden Systemmeldungen aktiviert bzw. deaktiviert, was genau das hier zu suchen hat weiß ich nicht,
- weiter glaube ich wenn nun in diesem oberen Teil ein Fehler ausgespuckt wird, soll er bitte zum Teil
"ImportTabelle_Err" springen
- hier habe wir einmal eine wenn dann sonst Beziehung
und es wird hier glaube ich der Bereich der Importiert werden soll beschrieben?! glaube ich zumindest?!
Public Function ImportTabelle(Tabellenname As String, Dateiname As String, Bereich As String) As Long
On Error GoTo ImportTabelle_Err
DoCmd.SetWarnings False
ImportTabelle = 0
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel12, Tabellenname, Dateiname, True, Bereich
ImportTabelle = -1
DoCmd.SetWarnings True
Exit Function
ImportTabelle_Err:
If Right(Bereich, 12) = "Druckbereich" And Sprachfehler = False Then
Bereich = Mid(Bereich, 1, Len(Bereich) - 12) & "Print_Area"
Sprachfehler = True
ImportTabelle = ImportTabelle(Tabellenname, Dateiname, Bereich)
ElseIf Right(Bereich, 10) = "Print_Area" And Sprachfehler = False Then
Bereich = Mid(Bereich, 1, Len(Bereich) - 10) & "Druckbereich"
Sprachfehler = True
ImportTabelle = ImportTabelle(Tabellenname, Dateiname, Bereich)
End If
ImportTabelle = Err.Number
End Function
was ich nicht verstehe ist das ganze ab "if" eg und das ober auch nicht so ercht mit dem SetWarnings, eventuell kann ja einer von euch es nachvollziehen
ich bin absoluter vba Neuling nd versuche mich reinzufuchsen leider nicht immer mit erfolg.
wäre euch sehr dankbar für eure hilfe
LG
Hallo Ansch_ka
Du möchtest ohne Vor.- / Grundkentnise VBA ein Projekt realisieren, erwartest das dir hier Codezeile für Codezeile erklärt wird da zu kommt das keiner hier dein Projekt kennt, meinst du das es zum Erfolg führt??
Ich Empfehle dir ein gutes VBA Buch zu kaufen und dich mit den Grundkentnisen Vertraut zu machen. Ich persönlich habe mir folgenes Buch zugelegt:
"Das Access-VBA Codebook" ISBN 978-38273-2394-1
vielen dank für den tipp , dann scheint das buch ja doch ganz gut zu sein hatte das schon bei googlen ein wenig einsehen können bin da nun schon ein paar mal drauf gestoßen ich guck dann mal ob man da s im intnert noch käuflich erwerben kann, bei Amazon bspw. ist es momentan scheinbar nicht verfügbar