{"id":1198,"date":"2014-08-12T09:43:17","date_gmt":"2014-08-12T07:43:17","guid":{"rendered":"http:\/\/www.capri-soft.de\/blog\/?p=1198"},"modified":"2014-08-12T09:44:43","modified_gmt":"2014-08-12T07:44:43","slug":"excel-dateien-aus-verzeichnis-einlesen","status":"publish","type":"post","link":"https:\/\/www.capri-soft.de\/blog\/?p=1198","title":{"rendered":"VBA und Excel: Dateien aus Verzeichnis einlesen \/ Read all files from directory"},"content":{"rendered":"<h1>Problem<\/h1>\n<p>In VBA sollen alle Dateien eines Verzeichnisses eingelesen und ausgegeben werden.<\/p>\n<h1>Ansatz<\/h1>\n<p>\u00dcber das OLE Object scripting.FileSystemObject bekommt Excel die M\u00f6glichkeit f\u00fcr diese Operation<\/p>\n<h1>L\u00f6sung<\/h1>\n<p>Mit dem folgenden Code lassen sich alle Dateien eines Verzeichnisses einlesen.<\/p>\n<pre class=\"brush: jscript; title: ; notranslate\" title=\"\">\r\nSub Schaltfl\u00e4che1_KlickenSieAuf()\r\n&#039; Hole alle Dateien vom Verzeichnis\r\n    Dim fs As Object\r\n    Dim fVerz As Object\r\n    Dim fDatei As Object\r\n    Dim fdateien As Object\r\n    Dim strDat As String\r\n    Dim Zeile As Integer\r\n\r\n    Set fs = CreateObject(&quot;scripting.FileSystemObject&quot;)\r\n    Set fVerz = fs.getFolder(&quot;C:\\verzeichnis&quot;)\r\n    \r\n    Set fdateien = fVerz.Files\r\n\r\n    For Each fDatei In fdateien\r\n        If InStr(fDatei, &quot;&quot;) &amp;gt; 0 Then\r\n            Zeile = Zeile + 1\r\n            Debug.Print fDatei.Name\r\n        End If\r\n    Next fDatei\r\nEnd Sub\r\n<\/pre>\n<iframe src=\"http:\/\/www.facebook.com\/plugins\/like.php?href=https%3A%2F%2Fwww.capri-soft.de%2Fblog%2F%3Fp%3D1198&amp;layout=standard&amp;show_faces=true&amp;width=450&amp;action=like&amp;colorscheme=light\" scrolling=\"no\" frameborder=\"0\" allowTransparency=\"true\" style=\"border:none; overflow:hidden; width:450px;margin-top:5px;\"><\/iframe>","protected":false},"excerpt":{"rendered":"<p>Problem In VBA sollen alle Dateien eines Verzeichnisses eingelesen und ausgegeben werden. Ansatz \u00dcber das OLE Object scripting.FileSystemObject bekommt Excel die M\u00f6glichkeit f\u00fcr diese Operation L\u00f6sung Mit dem folgenden Code lassen sich alle Dateien eines Verzeichnisses einlesen. Sub Schaltfl\u00e4che1_KlickenSieAuf() &#039; Hole alle Dateien vom Verzeichnis Dim fs As Object Dim fVerz As Object Dim fDatei &hellip; <a href=\"https:\/\/www.capri-soft.de\/blog\/?p=1198\" class=\"more-link\"><span class=\"screen-reader-text\">VBA und Excel: Dateien aus Verzeichnis einlesen \/ Read all files from directory<\/span> weiterlesen <span class=\"meta-nav\">&rarr;<\/span><\/a><\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"_monsterinsights_skip_tracking":false,"_monsterinsights_sitenote_active":false,"_monsterinsights_sitenote_note":"","_monsterinsights_sitenote_category":0,"jetpack_post_was_ever_published":false,"_jetpack_newsletter_access":"","_jetpack_dont_email_post_to_subs":false,"_jetpack_newsletter_tier_id":0,"_jetpack_memberships_contains_paywalled_content":false,"_jetpack_memberships_contains_paid_content":false,"footnotes":"","jetpack_publicize_message":"","jetpack_publicize_feature_enabled":true,"jetpack_social_post_already_shared":true,"jetpack_social_options":{"image_generator_settings":{"template":"highway","default_image_id":0,"font":"","enabled":false},"version":2}},"categories":[12],"tags":[],"class_list":["post-1198","post","type-post","status-publish","format-standard","hentry","category-vba"],"jetpack_publicize_connections":[],"jetpack_featured_media_url":"","jetpack_sharing_enabled":true,"jetpack_shortlink":"https:\/\/wp.me\/p4yGeN-jk","jetpack_likes_enabled":true,"jetpack-related-posts":[],"_links":{"self":[{"href":"https:\/\/www.capri-soft.de\/blog\/index.php?rest_route=\/wp\/v2\/posts\/1198","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/www.capri-soft.de\/blog\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.capri-soft.de\/blog\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.capri-soft.de\/blog\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/www.capri-soft.de\/blog\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=1198"}],"version-history":[{"count":2,"href":"https:\/\/www.capri-soft.de\/blog\/index.php?rest_route=\/wp\/v2\/posts\/1198\/revisions"}],"predecessor-version":[{"id":1200,"href":"https:\/\/www.capri-soft.de\/blog\/index.php?rest_route=\/wp\/v2\/posts\/1198\/revisions\/1200"}],"wp:attachment":[{"href":"https:\/\/www.capri-soft.de\/blog\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=1198"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.capri-soft.de\/blog\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=1198"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.capri-soft.de\/blog\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=1198"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}