Sub List_Files() 'List Files from a given directory in Column A of current excel worksheet Dim MyFolder As String Dim MyFile As String Dim a As Integer MyFolder = "C:\Test\" ' <-- Change to your folder MyFile = Dir(MyFolder & "*.*") a = 0 Do While MyFile <> "" a = a + 1 Cells(a, 1).Value = MyFile MyFile = Dir Loop MsgBox "Done." End Sub
|Hard coding time and date into Excel||2||30|
|FormulaArray VBA Issue||6||17|
|SUMIFS with a criteria that could be in multiple rows||21||33|
|Excel VBA - merge "specific" data from workbook in to "new" workbook.||19||22|
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
23 Experts available now in Live!