Top-Themen

Aktuelle Themen (A bis Z)

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

gelöst Exceldateien per vba im Hintergrund öffnen

Mitglied: BigWim

BigWim (Level 2) - Jetzt verbinden

31.08.2011, aktualisiert 10:26 Uhr, 11947 Aufrufe, 1 Kommentar

Achtung Anfänger!

Hallo zusammen,

ich möchte gern ein Inventar unserer Exceldateien incl. der Gesamtzahl Arbeitsblätter und Formeln anfertigen (fragt nicht - ich versuche mich an einer Art Vorsortierung für das Thema Programmeinsatzverfahren).

Meine Funktion macht im wesentlichen schon das, was sie soll - nur Recht unschön. Die zu analysierende Datei wird (sichtbar) geöffnet und wieder geschlossen.
Ich denke, dass kann ich bestimmt auch eleganter lösen, komme nur nicht dahinter wie und habe jetzt die Hoffnung, dass jemand einen Tipp für mich hat ....

Danke im voraus
Markus


01.
Sub Statistik() 
02.
Dim Anzahl              As Long 
03.
Dim Blatt               As Variant 
04.
Dim Zeile               As Long 
05.
Dim Dateiname          As String 
06.
Dim wbXL                As Excel.Workbook 
07.
 
08.
 
09.
Zeile = 5 
10.
Dateiname = Cells(Zeile, 1) 
11.
While Dateiname <> "" 
12.
    Anzahl = 0 
13.
    Set wbXL = workbooks.open(Dateiname) 
14.
     
15.
    On Error Resume Next 
16.
    For Each Blatt In wbXL.Worksheets 
17.
        Anzahl = Anzahl + CLng(Blatt.Cells.SpecialCells(xlCellTypeFormulas).Count) 
18.
    Next 
19.
 
20.
    On Error GoTo 0 
21.
    Cells(Zeile, 2) = wbXL.Worksheets.Count 
22.
    Cells(Zeile, 3) = Anzahl 
23.
     
24.
    wbXL.Close (False) 
25.
    Set wbXL = Nothing 
26.
    Zeile = Zeile + 1 
27.
    Dateiname = Cells(Zeile, 1) 
28.
Wend 
29.
 
30.
End Sub
Quelle der Zeile 17: www.excel-inside.de Der Rest ist von mir *stolz*

Version 1.0
In den Zellen A5, A6, A7, ... steht der Dateiname mit vollständigen Pfad.
Die Funktion öffnet die Tabelle, ermittelt Statistik und schreibt diese dann in B5 (Anzahl Blätter), C5 (Anzahl Formeln)

Version 1.1
Wenn ich herausgefunden habe, wie ich Verzeichnisse lesen kann, werden ab dem Startverzeichnis alle Exceldateien gelistet und analyisert ....

[Edit]
GetObject(Dateiname) ersetzt durch Workbooks.open(Dateiname)
mußte feststellen, dass das auf Nicht-Entwickler-PC's besser läuft ...
[/Edit]
Mitglied: BigWim
31.08.2011 um 10:04 Uhr
Kaum benutzt man die richtigen Suchwörter ....
01.
Sub Statistik() 
02.
.... 
03.
Application.ScreenUpdating = False 
04.
While Dateiname <> "" 
05.
...     
06.
Wend 
07.
Application.ScreenUpdating = True 
08.
 
09.
End Sub
Gruß
Markus
Bitte warten ..
Ähnliche Inhalte
VB for Applications

VBS - Exceldatei öffnen, drucken und schließen

gelöst Frage von KyrinjaVB for Applications8 Kommentare

Hallöle, ich habe da ein Problemunzwar will ich mehrere Exceldateien nacheinander öffnen jeweils mit dem aktuellen Monatsnamen als Arbeitsblatt. ...

Microsoft Office

Exceldatei: Erstellungsdatum auslesen und in Spalte integrieren per VBA

gelöst Frage von abuelitoMicrosoft Office2 Kommentare

Hallo an Alle, ich wieder mal mit einem Problem. In einem Ordner habe ich ca 500 xls Dateien mit ...

Microsoft Office

Microsoft Excel 2016 öffnet immer Exceldateien im Hintergrund warum?

Frage von GeforceMicrosoft Office3 Kommentare

Guten Morgen zusammen, Seit geraumer Zeit öffnet mein Microsoft Excel 2016 immer neue Exceldateien im Hintergrund. Also die erste ...

Microsoft Office

VBA Verzeichnis mit Istgleich Zeichen öffnen

gelöst Frage von BloodyRulzMicrosoft Office2 Kommentare

Hallo, ich hoffe Ihr könnt mir helfen. Zuerst einmal, ich bin ein kompletter Anfänger in VBA. Problem: In meiner ...

Neue Wissensbeiträge
Windows Netzwerk
Browser-Lags und IPv6
Erfahrungsbericht von NixVerstehen vor 5 StundenWindows Netzwerk1 Kommentar

Hallo zusammen, wir betreiben als kleines Speditionsunternehmen ein überschaubares Windows-Netzwerk mit Win10-Clients sowie einem Server 2016 Essentials als "eierlegende ...

Humor (lol)

Erstaunlich, Windows mit extremer Laufzeit (Server) lol

Tipp von mathu vor 7 StundenHumor (lol)5 Kommentare

Was es so alles gibt. :-)

Windows Netzwerk

CGM Praxisarchiv funktioniert auf Clients nach Update auf 4.14 nicht mehr

Tipp von MOS6581 vor 1 TagWindows Netzwerk

Moin, ein Kunde setzt das CGM-Praxisarchiv ein. Mehrplatzinstallation mit SQL-Server. Nachdem letzte Woche auf die 4.14 aktualisiert wurde, funktionierte ...

Windows 10

Windows 10 - Storage Sense - neues herstellerseitiges Cleaning-Tool statt cleanmgr

Tipp von mathu vor 1 TagWindows 102 Kommentare

Vermutlich ab dem Oktoberrelease wird eine neue Speicherbereinigungssuftware ausgeliefert von Microsoft. Cleanmgr.exe soll angeblich aber noch weiter parallel verfügbar ...

Heiß diskutierte Inhalte
Hyper-V
Windows Serer 2016 Standard virtualisieren
gelöst Frage von fritte87Hyper-V33 Kommentare

Hallo zusammen, ich muss für eine kleine Firma ein entsprechendes neues kleines Konzept bauen. Ich habe einen Server Standard ...

LAN, WAN, Wireless
Kombiniere mehrere 4G Router zu einem Netzwerk - Anwendung kleine LAN (10-20 Leute)
Frage von HulkTheHeroLAN, WAN, Wireless24 Kommentare

Guten Mittag liebes Administrator - Fourm, ich hoffe ich habe das richtige Thema ausgewählt - ansonsten bitte gerne verschieben ...

Windows Server
Fileserver von 2012 R2 auf 2012R2
gelöst Frage von ThabeusWindows Server23 Kommentare

Moin moin, leider war in der Vergangenheit der Fokus des Betriebs nicht auf Langfristigkeit ausgelegt. Daher stehe ich jetzt ...

Router & Routing
Größere Zahl VPN-Verbindungen mit Fritz-Box einrichten
Frage von miscmikeRouter & Routing15 Kommentare

Hallo Zusammen, ich supporte verschiedene Kunden mit bestehenden LAN-LAN-Kopplungen via FritzBox (7490, FritzOS 7.01) . Anwendungen sind z.B. Kaspersky-KSC ...