Hot News:

Unser Angebot:

  Foren auf CAD.de (alle Foren)
  Excel
  Ordner auswählen dauert ewig

Antwort erstellen  Neues Thema erstellen
CAD.de Login | Logout | Profil | Profil bearbeiten | Registrieren | Voreinstellungen | Hilfe | Suchen

Anzeige:

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen nächster neuer Beitrag | nächster älterer Beitrag
Autor Thema:  Ordner auswählen dauert ewig (1383 mal gelesen)
Enza
Mitglied



Sehen Sie sich das Profil von Enza an!   Senden Sie eine Private Message an Enza  Schreiben Sie einen Gästebucheintrag für Enza

Beiträge: 27
Registriert: 04.06.2007

Excel 2003

erstellt am: 02. Okt. 2009 13:22    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

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


Sehen Sie sich das Profil von Paulchen an!   Senden Sie eine Private Message an Paulchen  Schreiben Sie einen Gästebucheintrag für Paulchen

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 oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Enza 10 Unities + Antwort hilfreich

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)


Sehen Sie sich das Profil von Beverly an!   Senden Sie eine Private Message an Berverly  Schreiben Sie einen Gästebucheintrag für Berverly

Beiträge: 394
Registriert: 11.08.2007

erstellt am: 05. Okt. 2009 09:55    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Enza 10 Unities + Antwort hilfreich

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 ansehenTeamleitung, Gruppenleitung
Enza
Mitglied



Sehen Sie sich das Profil von Enza an!   Senden Sie eine Private Message an Enza  Schreiben Sie einen Gästebucheintrag für Enza

Beiträge: 27
Registriert: 04.06.2007

Excel 2003

erstellt am: 19. Jan. 2010 10:36    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

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 >>)

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen

nächster neuerer Beitrag | nächster älterer Beitrag
Antwort erstellen


Diesen Beitrag mit Lesezeichen versehen ... | Nach anderen Beiträgen suchen | CAD.de-Newsletter

Administrative Optionen: Beitrag schliessen | Archivieren/Bewegen | Beitrag melden!

Fragen und Anregungen: Kritik-Forum | Neues aus der Community: Community-Forum

(c)2023 CAD.de | Impressum | Datenschutz