CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg

Log ind eller opret profil

Du kan også logge ind via nedenstående tjenester

r_ibsen Nybegynder

01. juli 2004 - 10:53 Der er 6 kommentarer

At åbne alle filer i et bibliotek efter tur

Jeg ønsker at skrive en metode (Sub) der åbner alle filer i et bibliotek efter tur og behandler hver af dem (filerne er .xls). Jeg er ikke så stiv i VB syntaks, så her er i pseudokode hvad jeg ønsker:

Dim dir As String
dir = "mypath/mydir"
foreach myfile in dir
open myfile
' Process myfile in Excel
save myfile
end foreach

Hvordan læser jeg et bibliotek, således at jeg kan åbne og behandle alle filer i biblioteket??

Synes godt om

kabbak Professor

01. juli 2004 - 12:41 #1

noget i denne stil

Public Sub hent()
Dim AD As String, strFilNavn(300), Nr As Integer
mypath = "C:\mitbibliotek\" ' ret til din sti
If Right(mypath, 1) <> "\" Then mypath = mypath & "\"
Nr = 1
strFilNavn(Nr) = dir(mypath & "*.xls") ' Hent den første filnavn.
Do While strFilNavn(Nr) <> "" ' Start løkken
If strFilNavn(Nr) <> "." And strFilNavn(Nr) <> ".." Then
Nr = Nr + 1
End If
strFilNavn(Nr) = dir ' Hent næste filnavn.
Loop

For I = 1 To Nr - 1
FilogSti = mypath & strFilNavn(I)
PA = Left(strFilNavn(I), 1)
Workbooks.OpenText Filename:=FilogSti

' Process myfile in Excel

ActiveWorkbook.Save
ActiveWorkbook.Close
Next
End Sub

Synes godt om

r_ibsen Nybegynder

01. juli 2004 - 13:58 #2

Tak. Smid et svar.

Synes godt om

kabbak Professor

01. juli 2004 - 15:06 #3

funker det. ?

og et svar

Synes godt om

kabbak Professor

01. juli 2004 - 22:55 #4

http://www.eksperten.dk/spm/476403
http://www.eksperten.dk/spm/477186
http://www.eksperten.dk/spm/515583
http://www.eksperten.dk/spm/515774

Husk at accepter i disse spørgsmål, du har ikke lukket en eneste af de 6 du har stillet

Synes godt om

kabbak Professor

25. januar 2005 - 23:46 #5

lukketid

Synes godt om

kabbak Professor

25. januar 2006 - 22:12 #6

marker mit navn og tryk accepter

Synes godt om

Ny bruger Nybegynder

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.

Følg dette spørgsmål

Opret Preview

Programmeringssprog kurser

Kurser inden for grundlæggende programmering

Se alle Programmeringssprog kurser

Flere spørgsmål fra Visual Basic kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Proxy server.. Af SommerFyr i Visual Basic	12	10/07/202417:34	12/07/202414:34
Opdatering af SAPgrid værdi Af dane022 i Visual Basic	2	25/04/202414:26	25/04/202422:06
overskrive datasæt hvis det allerede eksistere Af overisen i Visual Basic	0	08/12/202320:00	-
Manuel rotering af billedfil i en formular, 90 - 180 - 270 - 360 grader Af stejuu i Visual Basic	2	04/12/202320:07	09/12/202310:49
Erstat http med faktisk billede Af crjensen i Visual Basic	0	09/10/202309:14	-

Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS