VB procedure voor Excel

[PolPiet]

Hallo,

Ik heb de volgende Visual basic Excel vraag:
Ik heb een directory met 500 excel sheets waaruit ik graag informatie wil halen. Hiervoor ben ik op zoek naar de visual basic code waarmee ik in deze directory het eerste (willekeurige) sheet open, met een reeds geschreven macro de gevens uit het sheet haal om hierna het sheet te sluiten om vervolgens sheet nummer twee te openen en deze procedure te herhalen tot ik alle 500 sheets gehad heb.
Is er iemand die weet of dit kan en belangrijker weet hoe dit kan?
Het gaat mij dus om een soort code van Open first en Open Next


Hoor graag de briljante oplossing!

Gr. PolPiet

 

[Withaar]

Ik heb (zeker op dit moment nog niet, mede gezien mijn eigen VB kennis ) geen pas klaar antwoord, ik zou echter op zoek gaan in de richting van eerst een, bv txt, bestand aanmaken van alle bestanden die in, naar ik aan neem, één map staan, voorbeeld wat wel aangepast moet worden kun je hier vinden.
Volgende stap zou dan zijn regel voor regel (sheet) te gaan inlezen en bewerken.

 

[cbhonda]

Met FileSystemObject

Zo kan het in VB6, weet niet zeker of het beschikbaar is bij office.

Wanneer je reference maakt naar 'Microsoft scripting runtime' bibliotheek kan je het doen met volgende code.

Dim fs As New FileSystemObject, F As Folder, fc As Object, f1 As File

Set fs = CreateObject("Scripting.FileSystemObject")
Set F = fs.GetFolder("c:\Excel_Sheets\")
Set fc = F.Files

For Each f1 In fc

'dit wordt dan 500 keer doorlopen
'hier komt dan de code die je met f1 wil doen

Next

 

[HansVi]

Private Sub ophalen_excel_sheets()

With Application.FileSearch
.LookIn = "C:\eigen\ExcelStockFiles"
.FileType = msoFileTypeExcelWorkbooks
.Execute
End With

For inttemp1 = 1 To Application.FileSearch.Execute
MsgBox Application.FileSearch.FoundFiles(inttemp1)
Next

End Sub