vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
 Zippen wie die Profis!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2025
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Allgemeine Diskussionen
Re: 1001 Datei auslesen 
Autor: Mortendo
Datum: 27.11.02 10:26
Mit folgender Sub bekommst Du schon mal die Namen aller Exel Files in einem Ordner samt Unterordner. 

Public Sub Verzeichnis_auslesen(verz As String)
 
Dim unterverz As Folder
Set ordner = fso.GetFolder(verz)
 
For Each datei In ordner.Files
  If LCase(fso.GetExtensionName(datei)) = "xls" Then
     Hier mußt Du nun die Prozedur für das Auslesen der Spalte A1 _
       reinschreiben  End If
Next
 
For Each unterverz In ordner.SubFolders
  Call  Verzeichnis_auslesen(CStr(unterverz))
Next
 
End Sub
Vorher ist es aber wichtig, dass Du in
1. unter Projekt - Verweise, die Microsoft Scripting Runtime aktivierst
2. der Option Explicit folgendes vermerkst: 

Public fso As New FileSystemObject
Public ordner As Folder
Public datei As File
0
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
1001 Datei auslesen436Lolli27.11.02 06:42
Re: 1001 Datei auslesen283Mortendo27.11.02 10:26

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
  
   

Copyright ©2000-2025 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel