Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: ---> Neu: Office 2010 Forum <-
Excel Import per TransferSpreadsheet
zurück: Import in geteilte Datenbank weiter: Formular kann nicht gefunden werden Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Antwort Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
-Melanie-
Gast


Verfasst am:
17. März 2010, 22:54
Rufname:

Excel Import per TransferSpreadsheet - Excel Import per TransferSpreadsheet

Nach oben
       Version: Office 2003

Hallo Comunity.

Ich sitze seit 3 Tagen an einem Problem mit dem Befehl TransferSpreadSheet.
Ich möchte eine Excel Datei die sowohl ein Blattschutz als auch ein Arbeitsmappenschutz besitzt in Access Importieren. Dies geht ja mit dem Befehl TransferSpreadSheet allerdings muss ich dafür die Excel Datei öffnen und den Blatt/Arbeitsmappenschutz aufheben. Erst dann kann ich sie importieren. Wenn ich das nicht mache bekomme ich die Fehlermeldung "Datei kann nicht entschlüsselt werden". Soweit klappt das auch, allerdings kommt dann nach dem Import immer wieder ein Fenster mit der Meldung "Dokument jetzt verfügbar". Dieses Fenster wird dann zum Problem, wenn ich eine weitere Excel Datei importieren will.

Jetzt hab ich bereits mehrfach gelesen das man den Befehl TransferSpreadsheet nicht auf geöffnete Excel Dateien anwenden soll. Allerdings weiß ich nicht wie ich dann die Datei importieren soll wenn ich den Blatt/Arbeitsmappenschutz nicht aufheben kann.

Hier mal mein Code für den Import:
Code:
    '...
    With Application.FileSearch
        .NewSearch
        .LookIn = SuchPfad
        .SearchSubFolders = False
        .MatchTextExactly = True
        .FileType = msoFileTypeExcelWorkbooks
        If .Execute() > 0 Then
            For i = 1 To .FoundFiles.Count
                Debug.Print .FoundFiles.Item(i)
                If (.FoundFiles.Item(i) = DateinameKomplett) Then
                    Set objXl = CreateObject("Excel.Application")
                    objXl.Visible = True
                    Set objExcelWB = objXl.WorkBooks.Open( _
                                                 FileName:=DateinameKomplett _
                                     , Password:="PW", WriteResPassword:="PW")
                    With objExcelWB
                        .RunAutoMacros 1
                        .unprotect ("PW")
                        .ActiveSheet.unprotect ("PW")
                        DoCmd.TransferSpreadsheet acImport, 8 _
                                                , "tbl_Controlling1" _
                                                , DateinameKomplett, True _
                                                , "Linie!A103:AH200"
                        .Close SaveChanges:=False
                    End With
                End If
                objExcelWB.Close False
                Set objExcelWB = Nothing
                objXl.Application.displayalerts = False
                objXl.Application.Quit
                Set objXl = Nothing
                Exit Function
            Next i
        End If
Bitte um Hilfe!

Liebe Grüße Melanie
mkind
Im Profil kannst Du frei den Rang ändern


Verfasst am:
18. März 2010, 10:23
Rufname:


AW: Excel Import per TransferSpreadsheet - AW: Excel Import per TransferSpreadsheet

Nach oben
       Version: Office 2003

war da nicht was von wegen excelsheet muss geschlossen sein, um es zu importieren. ansonsten soltte die transferspreadsheet selber wunderbar für xls funktionieren.
_________________
hier sollte eigentlich eine url stehen. bedauernswerter weise geht das nicht. es lebe das internet.
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: Textformat bei Import von XLS.Tabelle 9 Meisenmann2k 223 27. Apr 2010, 16:33
Gast Textformat bei Import von XLS.Tabelle
Keine neuen Beiträge Access Programmierung / VBA: Per VBA in Tabelle Werte finden 9 michihorn 105 27. Apr 2010, 16:01
KlausMz Per VBA in Tabelle Werte finden
Keine neuen Beiträge Access Tabellen & Abfragen: Datenauflistung / Vergleich per DateAdd 25 Kiwi1971 717 24. Jan 2010, 21:21
Kiwi1971 Datenauflistung / Vergleich per DateAdd
Keine neuen Beiträge Access Hilfe: Import von Excel mit Zeilenumbruch 2 caol1 1042 16. März 2009, 17:08
caol1 Import von Excel mit Zeilenumbruch
Keine neuen Beiträge Access Programmierung / VBA: PivotChart Farben per VBA 0 rantz 506 13. Jan 2009, 15:07
rantz PivotChart Farben per VBA
Keine neuen Beiträge Access Formulare: Fragebogen als Formular per E-Mail verschicken?? 1 juergen82 220 18. Jul 2008, 22:34
MiLie Fragebogen als Formular per E-Mail verschicken??
Keine neuen Beiträge Access Hilfe: Import einer txt - nur Trennzeichen oder auch durch def. Län 1 fx81 209 11. Jun 2008, 20:10
steffen0815 Import einer txt - nur Trennzeichen oder auch durch def. Län
Keine neuen Beiträge Access Programmierung / VBA: Datensatz ergänzen per Button 51 wotan85 1020 16. Mai 2008, 13:11
Willi Wipp Datensatz ergänzen per Button
Keine neuen Beiträge Access Programmierung / VBA: Import auf eine Excel-Mappe beschränken 4 ppride 320 02. Aug 2007, 14:19
ppride Import auf eine Excel-Mappe beschränken
Keine neuen Beiträge Access Programmierung / VBA: Ereignisprozedur per VBA zuweisen 8 ChrisHo 822 28. Jun 2007, 18:53
Willi Wipp Ereignisprozedur per VBA zuweisen
Keine neuen Beiträge Access Programmierung / VBA: per klick mehrere Datensätze mit gleichen Intalt füllen 12 Bunki 711 16. Nov 2006, 20:19
Bunki per klick mehrere Datensätze mit gleichen Intalt füllen
Keine neuen Beiträge Access Programmierung / VBA: Formular und unabhängiges Listenfeld per click synchronisier 1 Gast 1219 08. Sep 2006, 10:03
Nouba Formular und unabhängiges Listenfeld per click synchronisier
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Excel-Formeln für den Rangkorrelationskoeffizienten nach Spearman