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, 1420 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 ..
Neuester Wissensbeitrag
Ähnliche Inhalte
Batch & Shell
CSV Dateien Vergeleichen (1)

Frage von Berlin62 zum Thema Batch & Shell ...

Batch & Shell
gelöst 2 Csv -Dateien zum Teil zusammenfügen (6)

Frage von Piotrney zum Thema Batch & Shell ...

Batch & Shell
Mehrere.csv Dateien zusammenfügen zu einer Datei mit bat (4)

Frage von Piotrney zum Thema Batch & Shell ...

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

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

Netzwerke
Abisolierwerkzeug (18)

Frage von SarekHL zum Thema Netzwerke ...

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

Frage von MarkusVH zum Thema Windows 10 ...

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

Frage von bogi1102 zum Thema Exchange Server ...