Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

Excel Makro muss alle Dateien im Ordner durchlaufen

Frage Microsoft Microsoft Office

Mitglied: 45754

45754 (Level 1)

04.05.2007, aktualisiert 09:53 Uhr, 18309 Aufrufe, 3 Kommentare

Hallo zusammen!

Ich bräuchte ein Excel Makro, dass mir aus jeder XLS Datei (Dateiname ansonsten unbekannt), die in dem Unterordner c:\Input liegt, jeweils die Werte A1; B2;C3 holt und schön spaltenweise in eine Zieldatei c:\ziel.XLS schreibt.

Mit einer Datei kein Problem, aber wie sieht die Schleife aus um durch alle Dateien in einem Ordner zu laufen, wenn die Anzahl und der Dateiname bis auf die Endung .xls nicht bekannt ist?

Vielen Dank für eure Hilfe
Mitglied: bastla
04.05.2007 um 07:55 Uhr
Hallo tooltime!

Eine Möglichkeit wäre das "FileSystemObject" von VBScript:
01.
Const sSourcePath As String = "D:\Daten" 
02.
Dim fso as Object, oFile as Object 
03.
Set fso = CreateObject("Scripting.FileSystemObject") 
04.
For Each oFile In fso.GetFolder(sSourcePath).Files 
05.
    If LCase(Right(oFile.Name, 4)) = ".xls" Then 
06.
        Application.Workbooks.Open (oFile.Path) 
07.
        ... 
08.
        ... 
09.
    End If 
10.
Next
Grüße
bastla
Bitte warten ..
Mitglied: 45754
04.05.2007 um 09:36 Uhr
TOP! Vielen Dank

Das funktioniert in soweit, ...

nur kommt bei meinen Dateien sowohl beim Öffnen von Hand als auch mit Makro folgende Fehlermeldung:

Diese Datei enthält Verknüpfungen zu anderen Dateiquellen
...blabla ...dann die Auswahl:
Aktualisieren ............................ Nicht aktualisieren ........................Hilfe

Ich würde natürlich gerne "Nicht aktualisieren" wählen und das automatisch, aber das Makro zeigt mir auch beim Weg MAKRO AUFZEICHNEN keinen Weg diese Fehlermeldung automatisch beantworten zu lassen.

Habt ihr Ideen?
Bitte warten ..
Mitglied: 45754
04.05.2007 um 09:53 Uhr
Lösung geb ich mir gleich selbst:

UpdateLinksAtOpen = True

Die Frage ist nur warum

- True = Nicht aktualisieren
- False = aktualisieren

ist (für mich wäre es umgekehrt logischer) ??

..und ja ich bin mir sicher und hab es schon 5 x ausprobiert ;)
Bitte warten ..
Neuester Wissensbeitrag
Ähnliche Inhalte
VB for Applications
Excel Makro zum Suchen von Spalten und exportieren in CSV (3)

Frage von Raptox zum Thema VB for Applications ...

Microsoft Office
gelöst Excel Makro zum Sortieren von Spalten an größeres Dokument Anpassen (2)

Frage von Rolfor zum Thema Microsoft Office ...

VB for Applications
gelöst Makro auf alle Dateien im Ordner (1)

Frage von mcandyyyyy zum Thema VB for Applications ...

Microsoft Office
Excel VBA "SVERWEIS" über mehrere Dateien in Ordner (2)

Frage von Acht85 zum Thema Microsoft Office ...

Heiß diskutierte Inhalte
Erkennung und -Abwehr
Virenschutz - Meinungen (25)

Frage von honeybee zum Thema Erkennung und -Abwehr ...

Windows 10
Welches OS für Firmengeräte? (17)

Frage von MarkusVH zum Thema Windows 10 ...

Server-Hardware
gelöst Erfahrungswerte Hardwaresupport physikalische Server (16)

Frage von Devilx zum Thema Server-Hardware ...

Exchange Server
SBS2011: POP3-Connector 10 MB Grenze Email Benachrichtigung (15)

Frage von bogi1102 zum Thema Exchange Server ...