Åbne flere filer i en løkke - Det er altså VBA-sprog!
Hej,
Håber, at der er en derude, der kan hjælpe mig.
Jeg prøver at lave en løkkestruktur, som kan åbne og søge i x antal filer automatisk. Dvs. Først skal vba-koden åbne den første fil og søge i den og dernæst den næste fil osv. Selve søge-strukturen har jeg lavet, men jeg kan ikke få det med filåbningen til at virke...:-( Hvordan kan man lave det lidt smart - jeg skal nemlig ca. søge i 250 forskellige filer - kan man godt lave noget der er smartere end at indtaste i en inputbox hvergang man skifter fil ?
OpenTextFile kan f.eks. bruges Sub OpenTextFileTest Const ForReading = 1, ForWriting = 2, ForAppending = 3 Dim fs, f Set fs = CreateObject("Scripting.FileSystemObject") Set f = fs.OpenTextFile("c:\testfile.txt", Sub OpenTextFileTest Const ForReading = 1, ForWriting = 2, ForAppending = 3 Dim fs, f Set fs = CreateObject("Scripting.FileSystemObject") Set f = fs.OpenTextFile("c:\testfile.txt", ForReading,TristateFalse) 'f.read .... 'f.Close End Sub
Undskyld senere svar...kæmpet på at løse det, desværre uden held.
Uddybe: Jeg kender alle filnavnene på forhånd og det er alle .txt filer, hvor jeg skal hente data fra. Jeg skal åbne (ca. 250 .txt filer) for at søge efter specifikt data, og derefter skriver jeg det i excel. Mit problem er at åbne 250 filer på en smart/let måde.
Jeg åbner .txt fil nr. 1 (af 250) - søger om der er noget brugbart - HVIS der er brugbart, så skriver jeg det i excel - HVIS ikke brugbart, så skal jeg åbne næste fil og gøre samme rutine... Håber dette gjorde det lidt mere klart, tak for hjælpen indtil nu !
Jeg åbner .txt fil nr. 1 (af 250) - søger om der er noget brugbart - HVIS der er brugbart, så skriver jeg det i excel - HVIS ikke brugbart, så skal jeg åbne næste fil og gøre samme rutine... Håber dette gjorde det lidt mere klart, tak for hjælpen indtil nu !
Jeg har desværre ikke så meget tid nu, men filnavnene må du have et eller andet sted - du kender dem jo på forhånd, derfor kan du vel skrive den ind i et array eller bedre: have dem i en kolonne i regnearket og læse filnavnene med Worksheets("ark1").range("a1").offset(i) (i en for-løkke, hvor i går fra 1 til 250). Der er nok ikke andre der nu deltager i et sådant "gammelt" spørgsmål, så måske skal du lukke dette (give dig selv point) og oprette et nyt?
Slut for nu.
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
