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

Geöffnete csv-Dateien ermitteln

Frage Entwicklung VB for Applications

Mitglied: goodbytes

goodbytes (Level 2) - Jetzt verbinden

26.04.2013 um 12:01 Uhr, 1427 Aufrufe, 1 Kommentar

Hallo,
gibt es eine Möglichkeit aus meiner Arbeitsmappe, in welcher das Makro steckt, heraus zu ermitteln welche aktuell auf diesem Rechner geöffneten csv-Dateien es gibt?

Hintergrund ist, dass in dieser Arbeitsmappe das Makro gestartet wird und die zuletzt geöffnete csv-Datei als ActiveWorkbook gesetzt werden soll und das Makro darauf den VBA-Code anwenden soll.

Vielen Dank im Voraus !!!

Gruß
Torsten
Mitglied: colinardo
26.04.2013, aktualisiert um 12:42 Uhr
Hallo Torsten,
folgender Code sucht alle offenen CSV-Dateien und übergibt die Workbook-Objekte an ein Array. Dies kannst du dann mit einer Schleife durchlaufen um diverse "Dinge" damit anzustellen...
01.
Dim wb As Workbook 
02.
Dim openworkbooks() As Workbook 
03.
counter = 0 
04.
For Each wb In Application.Workbooks 
05.
    If LCase(Right(wb.Name, 3)) = "csv" Then 
06.
        counter = counter + 1 
07.
        ReDim Preserve openworkbooks(counter) 
08.
        Set openworkbooks(counter) = wb 
09.
    End If 
10.
Next 
11.
 
12.
MsgBox "Anzahl der geöffneten CSV-Dateien: " & UBound(openworkbooks) 
13.
 
14.
For i = 1 To UBound(openworkbooks) 
15.
    MsgBox openworkbooks(i).Name 
16.
Next
Bei Fragen fragen

Grüße Uwe
Bitte warten ..
Ähnliche Inhalte
Microsoft Office
Mehrere .csv Dateien automatisch transponieren und zusammenführen (9)

Frage von HurtiKurti zum Thema Microsoft Office ...

Batch & Shell
gelöst Auslesen und Vergleichen Zweiter CSV Dateien Powershell (7)

Frage von Hainoon zum Thema Batch & Shell ...

VB for Applications
gelöst VBA Skript zum Import von CSV-Dateien (8)

Frage von Toepfi zum Thema VB for Applications ...

Neue Wissensbeiträge
Heiß diskutierte Inhalte
Festplatten, SSD, Raid
PC stellt nach dem Bios ab (20)

Frage von uridium69 zum Thema Festplatten, SSD, Raid ...

Server-Hardware
Einem Stromausfall entgegen wirken (19)

Frage von OIOOIOOIOIIOOOIIOIIOIOOO zum Thema Server-Hardware ...

iOS
16 iPads zentrall verwalten (18)

Frage von simonlohr zum Thema iOS ...

Windows 7
Freeware MSI Tool (13)

Frage von uridium69 zum Thema Windows 7 ...