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, 18139 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
Windows 10

Powershell 5 BSOD

(8)

Tipp von agowa338 zum Thema Windows 10 ...

Ähnliche Inhalte
Microsoft Office
gelöst Excel-Makro (7)

Frage von yuki13 zum Thema Microsoft Office ...

Microsoft Office
gelöst Excel Makro : Erst prüfen bei erfolgreicher IF einen Wert überschreiben (4)

Frage von Matze1508 zum Thema Microsoft Office ...

Microsoft Office
gelöst Excel Makro - Button "Springe zu Zeile mit heutigem Datum" (5)

Frage von hannsgmaulwurf zum Thema Microsoft Office ...

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

Frage von mcandyyyyy zum Thema VB for Applications ...

Heiß diskutierte Inhalte
Microsoft
Ordner mit LW-Buchstaben versehen und benennen (21)

Frage von Xaero1982 zum Thema Microsoft ...

Windows Update
Treiberinstallation durch Windows Update läßt sich nicht verhindern (17)

Frage von liquidbase zum Thema Windows Update ...

Windows Tools
gelöst Aussendienst Datensynchronisierung (12)

Frage von lighningcrow zum Thema Windows Tools ...

Windows Server
Suche passender Treiber (12)

Frage von stolli zum Thema Windows Server ...