Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Von Acess eine Excel Datenbank Öffnen
zurück: Excel Import in Access weiter: Access-Programm Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Bitte Status wählen ! Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
Thomas
Gast


Verfasst am:
05. Sep 2003, 08:55
Rufname:

Von Acess eine Excel Datenbank Öffnen - Von Acess eine Excel Datenbank Öffnen

Nach oben
       

ich möchte von Acess eine Excel Datei Öffnen was mache ich hier falsch ??
und wie kann ich dann eine Zelle einer Tabelle mit dem Namen Notendatenbank ansprechen.Also ich will den ersten Datensatz der Spalte Title des Musikstückes,der Tabelle Notendatenbank ansprechen.Sorry bin noch Anfänger in Access.Ein kleines Beispiel wäre schön Thomas Wink



Dim ExcelDatenbank As Excel.Application
Dim DateiÖffnen As Worksheet
Dim a As Worksheets
Set DateiÖffnen = ExcelDatenbank.Workbooks.Open(Filename:="C:\Dokumente und Einstellungen\Thomas\Desktop\Notenverwaltung.xls")
faßnacht(IT);
www.Office-Loesung.de Administrator


Verfasst am:
05. Sep 2003, 09:45
Rufname: Peter


Re: Von Acess eine Excel Datenbank Öffnen - Re: Von Acess eine Excel Datenbank Öffnen

Nach oben
       

Hallo Thomas Smile
Hast fast alles richtig gemacht
Vor der Zeile
Code:
Set DateiÖffnen=ExcelDatenbank ...

musst Du noch der variablen "ExcelDatenbank" ein Objekt zuweisen:
Code:
Set ExcelDatenbank = CreateObject("Excel.Application")

Im Vorgängerbeitrag findest Du übrigens ein Beispiel, das die Lösung enthält Wink

Eine andere etwas häßliche Methode ist es, die Variable "Dim ExcelDatenbank As New Excel.Application" zu deklarieren und gleichzeitig zuzuweisen.

_________________
na, hilft das weiter?
ciao Smile
Peter Faßnacht


Zuletzt bearbeitet von faßnacht(IT); am 08. Sep 2003, 15:41, insgesamt einmal bearbeitet
Thomas
Gast


Verfasst am:
05. Sep 2003, 12:29
Rufname:

Zweites Problem Neuer Datensatz ACess - Zweites Problem Neuer Datensatz ACess

Nach oben
       

bin ganz schön weiterkgekommen aber bei den neuen Datensatz anlegen und´ten klappt etwas nicht er legt zwar einen Datensatz an aber hineingeschrieben wird nix Wink
Code:
Option Compare Database
Option Explicit

Public Sub Datei_Öffnen()

On Error GoTo Laufzeitfehler        'erzeugen einer Fehlerbehandlungsroutine'


    Const Pfad = "C:\Dokumente und Einstellungen\Thomas\Desktop\Notenverwaltung.xls"
                        'Pfad der Datei'
    Dim ExcelDatei As New Excel.Application     'eine Excel Instanz erzeugen'
'    Dim AcessDatei As New ACESS.Application     'eine Excel Instanz erzeugen'
    Dim Notendatenbank As Workbook                   'Varible für die ExcelDatei'
    Dim SpalteC_Titel As Range
    Dim Daten As Range
    Dim TitelMusikstück As String               'Speicherung der Daten der Spalte C'
    Dim Rs As DAO.Recordset
    Set Rs = CurrentDb.OpenRecordset("Tabelle1", dbOpenDynaset)
   
    Set ExcelDatei = GetObject("Excel.Application")     'ist Excel aktiv ? wenn nicht dann zu Laufzeitfehler springen'
 
    Set Notendatenbank = ExcelDatei.Workbooks.Open(Filename:=Pfad)       'Testdatei Öffnen'
    Set SpalteC_Titel = Notendatenbank.Worksheets("Tabelle1").Range("C7", Range("C7").End(xlDown))
   
        'Datenbereich der Spalte C'
 
    ExcelDatei.Visible = True           'Excel'Instanz sichtbar machen'
    SpalteC_Titel.Select
                          'geht zum ersten Datensatz'
                           
   
    For Each Daten In SpalteC_Titel     'Gehe vom ersten bis zum letzten Datensatz der Spalte C'
        Rs.AddNew
        TitelMusikstück = Daten.Value   'speichern der Daten in die Variable'
        Rs.Fields("Feld1").Value = TitelMusikstück  'Daten von der Variable in die Acess datenbank übertrag
    Next Daten
        Rs.Update
   
   
    ActiveWorkbook.Close Filename:=Pfad 'Excel wieder schließen'
 
Laufzeitfehler:                         'wenn Excel nicht aktiv war dann ??'
    If Err.Number = 429 Then
        Set ExcelDatei = CreateObject("Excel.Application")      'erzeugen einer neuen Instanz von Excel'
    End If
        Resume Next
   
    Rs.Close
    Set ExcelDatei = Nothing
    Set Notendatenbank = Nothing
    Set SpalteC_Titel = Nothing
    Set Rs = Nothing
   
End Sub
QuizAdmin
QuizMaster


Verfasst am:
05. Sep 2003, 15:42
Rufname:
Wohnort: Mainz-Kastel


Update für jeden Datensatz - Update für jeden Datensatz

Nach oben
       

Hallo Smile
Ja, ich habe schon etwas gesehen wo es klemmt: Ein Update muss für jeden Datensatz ausgeführt werden, also:
Code:
    For Each Daten In SpalteC_Titel   
        'Gehe vom ersten bis zum letzten Datensatz der Spalte C'
        Rs.AddNew
        TitelMusikstück = Daten.Value   'speichern der Daten in die Variable'
        Rs.Fields("Feld1").Value = TitelMusikstück 
        'Daten von der Variable in die Acess datenbank übertrag
        Rs.Update    'RICHTIG: Update für jeden Datensatz
   Next Daten
       'Rs.Update   'falsch: nicht ausserhalb der Schleife!!!

Ansonsten bin ich nicht sicher ob das mit dem "For Each" so funktioniert. Aber versuche es auf jeden Fall mal.
Zum testen kannst Du in der "For Each"-Schleife mal eine Messagebox oder eine Debug.Print einfügen. Also eine von beiden Zeilen:
Code:
MsgBox Daten.Value
Debug.Print Daten.Value


PS: Um deinen Code im Beitrag hervorzuheben, kannst Du den Code markieren und über dem Eingabefeld auf den Knopf "Code" klicken.
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Access Tabellen & Abfragen: Tabelle hat beim Öffnen immer gleiche Größe?! 4 ladau66 910 10. Mai 2006, 10:37
Gast Tabelle hat beim Öffnen immer gleiche Größe?!
Keine neuen Beiträge Access Tabellen & Abfragen: Fehlermeldung beim Öffnen der Berichte 3 Freund 584 02. März 2006, 21:08
jens05 Fehlermeldung beim Öffnen der Berichte
Keine neuen Beiträge Access Tabellen & Abfragen: Datensatz innerhalb einer Datenbank verschieben 1 nagra 874 24. Feb 2006, 06:31
Funny Datensatz innerhalb einer Datenbank verschieben
Keine neuen Beiträge Access Tabellen & Abfragen: PC Inventur Datenbank 3 SMHPrincess 2190 26. Jan 2006, 21:25
stpimi PC Inventur Datenbank
Keine neuen Beiträge Access Tabellen & Abfragen: Daten aus einer anderen Datenbank in Access übernehmen 1 Gast Andreas 1503 22. Jan 2006, 19:34
jens05 Daten aus einer anderen Datenbank in Access übernehmen
Keine neuen Beiträge Access Tabellen & Abfragen: live Mitschnitt von rs232 zu MAccess Datenbank ??? 1 Peter Müller 984 21. Jan 2006, 17:24
Gast live Mitschnitt von rs232 zu MAccess Datenbank ???
Keine neuen Beiträge Access Tabellen & Abfragen: HILFE - Datenbank zur Angebotserstellung 2 Gast 1399 11. Nov 2005, 11:37
LadyRain HILFE - Datenbank zur Angebotserstellung
Keine neuen Beiträge Access Tabellen & Abfragen: Datenbank - Tabelle mit Kalender Übersicht 0 Black is Back 1902 23. Sep 2005, 20:16
Black is Back Datenbank - Tabelle mit Kalender Übersicht
Keine neuen Beiträge Access Tabellen & Abfragen: access datenbank zum dokumentieren 8 siegpes 1098 09. Sep 2005, 08:27
siegpes access datenbank zum dokumentieren
Keine neuen Beiträge Access Tabellen & Abfragen: Öffnen von mdb 3 dAccess 2514 02. Aug 2005, 18:41
jens05 Öffnen von mdb
Keine neuen Beiträge Access Tabellen & Abfragen: SQL : Datenbank löschen 1 cfl2si 7441 23. März 2005, 12:30
Willi Wipp SQL : Datenbank löschen
Keine neuen Beiträge Access Tabellen & Abfragen: Stückliste; hierachische Datenbank; Baumstruktur 1 Matzelino 4109 21. März 2005, 14:34
Roland6090 Stückliste; hierachische Datenbank; Baumstruktur
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Microsoft Excel Tricks