Autor
|
Thema: Ordner auswählen dauert ewig (1383 mal gelesen)
|
Enza Mitglied
Beiträge: 27 Registriert: 04.06.2007 Excel 2003
|
erstellt am: 02. Okt. 2009 13:22 <-- editieren / zitieren --> Unities abgeben:
Hallo! Ich habe ein Macro geschrieben, bei dem der Benutzer zu Beginn einen Ordner auswählen kann. Funktioniert auch gut, das Fenster "Browse for Folder" erscheint und zeigt alle Laufwerke an, nur dann kommt jedes Mal ein etwa 10 Sekunden langer Aussetzer bevor der Inhalt eines Laufwerks angezeigt werden kann. Diese Aussetzer kommen auch manchmal vor, wenn ich normal über den Explorer einen Ordner öffnen möchte, aber bei dem Macro muss ich jedes Mal warten. Habt ihr irgendwelche Ideen woran das liegen könnte? Vielen Dank und viele Grüsse, Insa
Code:
Sub Main() 'Variablen für die Ordnerauswahl Dim AppShell As Object Dim BrowseDir As Variant Dim S_path As String 'Order auswählen Set AppShell = CreateObject("Shell.Application") Set BrowseDir = AppShell.BrowseForFolder(0, "Choose folder.", &H1000, 17) On Error Resume Next S_path= BrowseDir.items().Item().Path If S_path = "" Then Exit Sub ..... End sub
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Paulchen Mitglied Bauing./SW-Entwickler
Beiträge: 1227 Registriert: 19.08.2004 Büro: Win10 Enterprise 64bit, Office Professional Plus 2013 - Privat: Linux Mint 15, LibreOffice
|
erstellt am: 02. Okt. 2009 14:21 <-- editieren / zitieren --> Unities abgeben: Nur für Enza
Hallo Enza, hm... Arbeitest Du in einem Netzwerk? Hast Du evtl. einen Rechner zur Verfügung, der ausschließlich lokalen Zugriff (bei Windows natürlich C:\) besitzt? Vielleicht hilft auch ein behutsames (!), vorübergehendes Trennen der/des Netzlaufwerke/s? Falls ja: Ist der Zugriff via Explorer immer noch langsam? In meinen Versuchen mit BrowseForFolder lief das bisher immer wunderbar, keine Verlangsamung feststellbar. Und 10 Sekunden sind verdammt lang - zu lang. Was tut der Benutzer denn, wenn er den Ordner gewählt hat bzw. wofür wird der Ordner ausgewählt? Als Standard-Arbeitsverzeichnis? Soll er daraus dann Dateien öffnen können? Das ginge z. B. auch mit Code: fileToOpen = Application.GetOpenFilename("Program Files (*.exe), *.exe") If fileToOpen <> False Then...
------------------ DIN1055.de | Lastannahmen für Anwender NEU: Foren zu DIN 1055 Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Beverly Mitglied Dipl.-Geologe (Rentner)
Beiträge: 394 Registriert: 11.08.2007
|
erstellt am: 05. Okt. 2009 09:55 <-- editieren / zitieren --> Unities abgeben: Nur für Enza
Hi Enza, ich hatte das gleiche Problem, wenn ich Ordner über den Windows-Explorer öffnen wollte. Meist kam dann noch die Meldung: Ordner werden indiziert (oder so ähnlich). Ich habe das Problem damit behoben, dass ich die Indizierung abgeschaltet habe - bei mir (WIN XP Pro) war in der Taskleiste ganz rechts (wo die Symbole der Programme zu sehen sind, die beim Start automatisch geladen werden) ein Symbol, das wie eine Lupe aussieht. Dieses Programm habe ich beendet und seitdem funktioniert das Öffnen der Ordner wieder normal. ------------------ Bis später, Karin Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
| Teamleiter Fachabteilung Maschinenbau (m/w/d) | Was unsere Kunden von ihren Technologielösungen erwarten? Das nächste Level! Das gelingt unserem Team bei FERCHAU Tag für Tag. Wir suchen dich: als ambitionierte:n Teamleiter:in, der:die wie wir Technologien auf die nächste Stufe bringen möchte. Wir realisieren spannende Projekte für namhafte Kunden im Anlagenbau und überzeugen täglich mit fundierter Expertise und fachlichem Know-how. Du möchtest dein ... | Anzeige ansehen | Teamleitung, Gruppenleitung |
|
Enza Mitglied
Beiträge: 27 Registriert: 04.06.2007 Excel 2003
|
erstellt am: 19. Jan. 2010 10:36 <-- editieren / zitieren --> Unities abgeben:
Hallo! Ich konnte das Problem inzwischen dadurch einigermassen lösen, dass ich meinen Computer nur noch mit 2GB Arbeitsspeicher statt mit 3GB starte. Alle anderen Programme sind dadurch auch deutliche schneller und stabiler geworden. Viele Grüsse, Insa Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
| Anzeige.:
Anzeige: (Infos zum Werbeplatz >>)
|