Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Directory List of Excel Files
Is there a way, through VB, to get a list of excel files
from a folder and loop through that list??? I am looking at the "Directory" command but can not figure out the syntax, and I don't think it can do want I need anyway! Any help would be great!!! |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Directory List of Excel Files
Try to understand this example
http://www.rondebruin.nl/copy3.htm Post back if you need help -- Regards Ron de Bruin http://www.rondebruin.nl wrote in message ... Is there a way, through VB, to get a list of excel files from a folder and loop through that list??? I am looking at the "Directory" command but can not figure out the syntax, and I don't think it can do want I need anyway! Any help would be great!!! |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Directory List of Excel Files
What you have is great! But I will only need the list of
worksheets from each workbook. Can you provide some assistance on that ??? -----Original Message----- Try to understand this example http://www.rondebruin.nl/copy3.htm Post back if you need help -- Regards Ron de Bruin http://www.rondebruin.nl wrote in message ... Is there a way, through VB, to get a list of excel files from a folder and loop through that list??? I am looking at the "Directory" command but can not figure out the syntax, and I don't think it can do want I need anyway! Any help would be great!!! . |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Directory List of Excel Files
Try this
Sub test2() Dim i As Long With Application.FileSearch .NewSearch .LookIn = "c:\Data" .SearchSubFolders = False .MatchTextExactly = False .FileType = msoFileTypeAllFiles If .Execute(msoSortOrderDescending) 0 Then MsgBox "There were " & .FoundFiles.Count & " file(s) found." For i = 1 To .FoundFiles.Count Cells(i, 1).Value = .FoundFiles(i) Cells(i, 2).Value = FileDateTime(.FoundFiles(i)) Cells(i, 3).Value = FileLen(.FoundFiles(i)) Next i Else MsgBox "There were no files found." End If End With End Sub -- Regards Ron de Bruin http://www.rondebruin.nl wrote in message ... What you have is great! But I will only need the list of worksheets from each workbook. Can you provide some assistance on that ??? -----Original Message----- Try to understand this example http://www.rondebruin.nl/copy3.htm Post back if you need help -- Regards Ron de Bruin http://www.rondebruin.nl wrote in message ... Is there a way, through VB, to get a list of excel files from a folder and loop through that list??? I am looking at the "Directory" command but can not figure out the syntax, and I don't think it can do want I need anyway! Any help would be great!!! . |
#6
Posted to microsoft.public.excel.programming
|
|||
|
|||
Directory List of Excel Files
My opologees for not being clear. I will have a summary
spreadsheet open, that will be gathering data from 400 excel files, each of which will have an unknown number of worksheets (but each sheet will be identical in the layout). I need to open 1 excel file at a time (your code you pointed to me early does that!) then I need to get a list of worksheet names from that workbook and use that info in the other workbook I have open (name summary.xls). I can not figure this out as I will also have summary.xls open and I will be opening and closing all the workbooks one at a time to extact the data. -----Original Message----- Try this Sub test2() Dim i As Long With Application.FileSearch .NewSearch .LookIn = "c:\Data" .SearchSubFolders = False .MatchTextExactly = False .FileType = msoFileTypeAllFiles If .Execute(msoSortOrderDescending) 0 Then MsgBox "There were " & .FoundFiles.Count & " file (s) found." For i = 1 To .FoundFiles.Count Cells(i, 1).Value = .FoundFiles(i) Cells(i, 2).Value = FileDateTime(.FoundFiles (i)) Cells(i, 3).Value = FileLen(.FoundFiles(i)) Next i Else MsgBox "There were no files found." End If End With End Sub -- Regards Ron de Bruin http://www.rondebruin.nl wrote in message ... What you have is great! But I will only need the list of worksheets from each workbook. Can you provide some assistance on that ??? -----Original Message----- Try to understand this example http://www.rondebruin.nl/copy3.htm Post back if you need help -- Regards Ron de Bruin http://www.rondebruin.nl wrote in message ... Is there a way, through VB, to get a list of excel files from a folder and loop through that list??? I am looking at the "Directory" command but can not figure out the syntax, and I don't think it can do want I need anyway! Any help would be great!!! . . |
#7
Posted to microsoft.public.excel.programming
|
|||
|
|||
Directory List of Excel Files
Oops
You say worksheets See Jake's code -- Regards Ron de Bruin http://www.rondebruin.nl "Ron de Bruin" wrote in message ... Try this Sub test2() Dim i As Long With Application.FileSearch .NewSearch .LookIn = "c:\Data" .SearchSubFolders = False .MatchTextExactly = False .FileType = msoFileTypeAllFiles If .Execute(msoSortOrderDescending) 0 Then MsgBox "There were " & .FoundFiles.Count & " file(s) found." For i = 1 To .FoundFiles.Count Cells(i, 1).Value = .FoundFiles(i) Cells(i, 2).Value = FileDateTime(.FoundFiles(i)) Cells(i, 3).Value = FileLen(.FoundFiles(i)) Next i Else MsgBox "There were no files found." End If End With End Sub -- Regards Ron de Bruin http://www.rondebruin.nl wrote in message ... What you have is great! But I will only need the list of worksheets from each workbook. Can you provide some assistance on that ??? -----Original Message----- Try to understand this example http://www.rondebruin.nl/copy3.htm Post back if you need help -- Regards Ron de Bruin http://www.rondebruin.nl wrote in message ... Is there a way, through VB, to get a list of excel files from a folder and loop through that list??? I am looking at the "Directory" command but can not figure out the syntax, and I don't think it can do want I need anyway! Any help would be great!!! . |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Combo box with list of xls files in a directory | Excel Discussion (Misc queries) | |||
List of Files in A Directory | Excel Discussion (Misc queries) | |||
list box- list all files ina directory | Excel Programming | |||
Check if directory empty OR no of files in directory. | Excel Programming | |||
Printing .pdf files from directory from excel | Excel Programming |