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, 1425 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
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 ...

Batch & Shell
CSV Dateien Vergeleichen (1)

Frage von Berlin62 zum Thema Batch & Shell ...

Neue Wissensbeiträge
RedHat, CentOS, Fedora

Fedora, RedHat, Centos: DNS-Search Domain setzen

(13)

Tipp von Frank zum Thema RedHat, CentOS, Fedora ...

Drucker und Scanner

Samsung SL-M4025ND, firmware update und (kompatible) Tonerkassetten

(1)

Erfahrungsbericht von markus-1969 zum Thema Drucker und Scanner ...

Heiß diskutierte Inhalte
CMS
Lokales Wordpress im LAN - wie aufsetzen? (16)

Frage von Static zum Thema CMS ...

Java
gelöst Net user per script aus txt oder csv für FTP (15)

Frage von OlliPWS zum Thema Java ...

Exchange Server
Microsoft Exchange Weiterleitung mit anderer primären E-Mail Adresse (14)

Frage von Rene12345 zum Thema Exchange Server ...

LAN, WAN, Wireless
IP im privaten Netz nicht erreichbar (14)

Frage von guntis zum Thema LAN, WAN, Wireless ...