|
Excel Import per TransferSpreadsheet
|
| Autor |
Nachricht |
-Melanie-
Gast
Verfasst am: 17. März 2010, 22:54 Rufname:
|
|
| 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:
|
| |
| 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.
|
|
| Verwandte Themen |
| Forum / Themen |
Antworten |
Autor |
Aufrufe |
Letzter Beitrag |
 |
Access Tabellen & Abfragen: Textformat bei Import von XLS.Tabelle |
9 |
Meisenmann2k |
223 |
27. Apr 2010, 16:33 Gast  |
 |
Access Programmierung / VBA: Per VBA in Tabelle Werte finden |
9 |
michihorn |
105 |
27. Apr 2010, 16:01 KlausMz  |
 |
Access Tabellen & Abfragen: Datenauflistung / Vergleich per DateAdd |
25 |
Kiwi1971 |
717 |
24. Jan 2010, 21:21 Kiwi1971  |
 |
Access Hilfe: Import von Excel mit Zeilenumbruch |
2 |
caol1 |
1042 |
16. März 2009, 17:08 caol1  |
 |
Access Programmierung / VBA: PivotChart Farben per VBA |
0 |
rantz |
506 |
13. Jan 2009, 15:07 rantz  |
 |
Access Formulare: Fragebogen als Formular per E-Mail verschicken?? |
1 |
juergen82 |
220 |
18. Jul 2008, 22:34 MiLie  |
 |
Access Hilfe: Import einer txt - nur Trennzeichen oder auch durch def. Län |
1 |
fx81 |
209 |
11. Jun 2008, 20:10 steffen0815  |
 |
Access Programmierung / VBA: Datensatz ergänzen per Button |
51 |
wotan85 |
1020 |
16. Mai 2008, 13:11 Willi Wipp  |
 |
Access Programmierung / VBA: Import auf eine Excel-Mappe beschränken |
4 |
ppride |
320 |
02. Aug 2007, 14:19 ppride  |
 |
Access Programmierung / VBA: Ereignisprozedur per VBA zuweisen |
8 |
ChrisHo |
822 |
28. Jun 2007, 18:53 Willi Wipp  |
 |
Access Programmierung / VBA: per klick mehrere Datensätze mit gleichen Intalt füllen |
12 |
Bunki |
711 |
16. Nov 2006, 20:19 Bunki  |
 |
Access Programmierung / VBA: Formular und unabhängiges Listenfeld per click synchronisier |
1 |
Gast |
1219 |
08. Sep 2006, 10:03 Nouba  |
| |