Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Schließen von VBA-Projekten
zurück: Tabellenblatt drucken, fixierte Zeile als "Überschrift& weiter: markierten Bereich zeilenweise bearbeiten Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Feedback Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
Jeanstyp
Im Profil kannst Du frei den Rang ändern


Verfasst am:
26. Feb 2013, 14:41
Rufname:

Schließen von VBA-Projekten - Schließen von VBA-Projekten

Nach oben
       Version: Office 2007

Hallo Excel-Gemeinde,

eine Frage an die Experten: Ich bin dabei ein Modul zu schreiben, das über 3000 verschiedene Dateien öffnen soll, um in einem festgelegten Bereich Maximalwerte zu ermitteln und diese dann in der auszuführenden Datei einzutragen, bevor die Dateien dann wieder geschlossen werden sollen.

Die entsprechenden Codezeilen sehen dabei folgendermaßen aus:

Workbooks.Open Filename:=Pfad & Dateiname, local:=True
… (Maxwerte ermitteln)
Workbooks(Dateiname).Close

Mein Problem ist nun, das Excel mit dem Close-Befehl zwar die Tabellenblätter der 3000 Dateien in den einzelnen Umläufen schließt, sie aber nach wie vor als VBA-Projekt im Projekt-Explorer belässt.

Wie schaffe ich es nun, das Excel neben den Tabellenblättern auch die VBA-Projekte der Dateien mit schließt?

VIELEN DANK für Eure Hilfe,
Frank
Rudi M.
Gast


Verfasst am:
26. Feb 2013, 15:18
Rufname:


AW: Schließen von VBA-Projekten - AW: Schließen von VBA-Projekten

Nach oben
       Version: Office 2007

Hallo,
werden die Workbooks Objektvariablen zugewiesen?
Wenn ja, setz die Var nach dem Schließen auf Nothing.

Gruß
Rudi
Jeanstyp
Im Profil kannst Du frei den Rang ändern


Verfasst am:
26. Feb 2013, 16:43
Rufname:

AW: Schließen von VBA-Projekten - AW: Schließen von VBA-Projekten

Nach oben
       Version: Office 2007

Nein, eigentlich nicht. Die Maxwerte zwischen dem Öffnen und Schließen werden mit Variablen versehen...

Workbooks.Open Filename:=Pfad & Dateiname, local:=True
Max1=WorksheetFunction.Max(Workbooks(Dateiname).Worksheets(Blattname).Range("B19:B3000"))
Max2=WorksheetFunction.Max(Workbooks(Dateiname).Worksheets(Blattname).Range("A19:A3000"))
Workbooks(Dateiname).Close

...aber die Workbooks an sich nicht (gibt keine Workbook-Variable in dem Modul).

Vielleicht könnte die Info eine Rolle spielen, dass es sich um .csv Dateien handelt.

DANKE und Gruß,
Frank
Jeanstyp
Im Profil kannst Du frei den Rang ändern


Verfasst am:
27. Feb 2013, 12:47
Rufname:

AW: Schließen von VBA-Projekten - AW: Schließen von VBA-Projekten

Nach oben
       Version: Office 2007

Hat noch jemand eine Idee? Würde mich sehr helfen! Ich finde im Netz sonst nichts dazu. Question

DANKE und Gruß,
Frank
daNorbert
Im Profil kannst Du frei den Rang ändern


Verfasst am:
27. Feb 2013, 15:47
Rufname:

AW: Schließen von VBA-Projekten - AW: Schließen von VBA-Projekten

Nach oben
       Version: Office 2007

Hallo,

Versuchs mal so:

Code:

Set wb1 = Workbooks.Open(Filename:=pfad & dateiname, local:=True)
Max1 = WorksheetFunction.Max(wb1.Worksheets(Blattname).Range("B19:B3000"))
Max2 = WorksheetFunction.Max(wb1.Worksheets(Blattname).Range("A19:A3000"))
wb1.Close
Set wb1 = Nothing


LG
Norbert
Jeanstyp
Im Profil kannst Du frei den Rang ändern


Verfasst am:
28. Feb 2013, 15:49
Rufname:

AW: Schließen von VBA-Projekten - AW: Schließen von VBA-Projekten

Nach oben
       Version: Office 2007

Hallo Norbert,

erst einmal herzlichen Dank für Deine Rückmeldung.

Dein Ansatz funktioniert aber leider auch nicht. Die .csv Dateien bleiben auch so nach dem Schließen weiterhin als Projekt im Projekt-Explorer stehen!

Schöne Grüße,
Frank
daNorbert
Im Profil kannst Du frei den Rang ändern


Verfasst am:
28. Feb 2013, 16:17
Rufname:

AW: Schließen von VBA-Projekten - AW: Schließen von VBA-Projekten

Nach oben
       Version: Office 2007

Hallo,

als letzte Idee, vor ich mit meinem Latein am Ende bin,
versuch es mal in einer eigenen Excel Instanz:

Code:

'Ganz am Start
Set new_excel_ins = New Excel.Application



Set wb1 = new_excel_ins.Workbooks.Open(Filename:=pfad & dateiname, local:=True)
Max1 = WorksheetFunction.Max(wb1.Worksheets(blattname).Range("B19:B3000"))
Max2 = WorksheetFunction.Max(wb1.Worksheets(blattname).Range("A19:A3000"))
wb1.Close
Set wb1 = Nothing



'Ganz am Ende
Set new_excel_ins = Nothing


LG
Norbert
Jeanstyp
Im Profil kannst Du frei den Rang ändern


Verfasst am:
28. Feb 2013, 16:34
Rufname:


AW: Schließen von VBA-Projekten - AW: Schließen von VBA-Projekten

Nach oben
       Version: Office 2007

Ganz herzlichen Dank für Deine Hilfe, Norbert. Es funktioniert jetzt! Smile

Sonnige Grüße aus Düsseldorf,
Frank
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 Excel Formeln: falscher pfad nach schließen und öffnen 0 arriva 99 12. März 2013, 07:26
arriva falscher pfad nach schließen und öffnen
Keine neuen Beiträge Excel Formate: Regel nach Speichern, schließen und neu öffnen nicht mehr da 1 Bianca123 200 24. Okt 2012, 10:22
Bianca123 Regel nach Speichern, schließen und neu öffnen nicht mehr da
Keine neuen Beiträge Excel Formeln: WENN ISTFEHLER ; Suchbegriffe zusammen schließen 2 sebastian.born 1094 02. Nov 2009, 17:55
sebastian.born WENN ISTFEHLER ; Suchbegriffe zusammen schließen
Keine neuen Beiträge Excel Formeln: Lücken schließen 4 nice2cu 899 12. Apr 2008, 21:51
Janni 07 Lücken schließen
Keine neuen Beiträge Excel VBA (Makros): Schließen und Zwischenablage nicht behalten 3 Tinko 3162 27. Okt 2006, 10:31
Raimund Schließen und Zwischenablage nicht behalten
Keine neuen Beiträge Excel VBA (Makros): Ausblenden der obersten Leiste ( Schließen Kreuz etc. ) 7 Benny Access 2524 18. Okt 2006, 09:40
Gast Ausblenden der obersten Leiste ( Schließen Kreuz etc. )
Keine neuen Beiträge Excel VBA (Makros): Schließen/Minimieren der UserForm über Taskleiste verhindern 1 Zonk 4827 05. Okt 2006, 09:16
Zonk Schließen/Minimieren der UserForm über Taskleiste verhindern
Keine neuen Beiträge Excel VBA (Makros): Formulare durch klicken schließen und neues öffnen 2 Gast 598 21. Sep 2006, 13:43
Gast Formulare durch klicken schließen und neues öffnen
Keine neuen Beiträge Excel VBA (Makros): UserForm schließen - Problem 3 funky_escobar 1610 11. Aug 2006, 12:42
bernd200 UserForm schließen - Problem
Keine neuen Beiträge Excel VBA (Makros): Schließen abbrechen 1 janno 804 10. Aug 2006, 10:03
nitro_storm Schließen abbrechen
Keine neuen Beiträge Excel VBA (Makros): UF automatisch schließen (mit Counteranzeige) 8 Frithjoff 703 09. Aug 2006, 20:01
Frithjoff UF automatisch schließen (mit Counteranzeige)
Keine neuen Beiträge Excel VBA (Makros): Excel schließen und VaterProgramm "hervorholen" 2 Gast 792 01. Aug 2006, 16:00
Karl_pb Excel schließen und VaterProgramm "hervorholen"
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Word VBA