Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
VBA Post
Could someone please tell me what this vba code is doing? Especially the top
part ... where it says; Dim fso f ... Thanks. Sub LoopThroughFolder() Dim fso, f, fldnm As String, WB As Workbook, WS As Worksheet, r As Long Dim ws2 As Worksheet Set fso = CreateObject("Scripting.FileSystemObject") fldnm = "C:\Documents and Settings\moyea0\My Documents\And\10K\2005\Data" 'Folder to loop through Set WS = Workbooks("10K_DataEntry.xls").Sheets("Data") r = WS.Cells.Find(What:="*", LookAt:=xlWhole, SearchOrder:=xlByRows, _ SearchDirection:=xlPrevious).Row + 1 Application.ScreenUpdating = False For Each f In fso.GetFolder(fldnm).Files If UCase(Right(f.Name, 3)) = "XLS" Then Set WB = Workbooks.Open(f.Path) Set ws2 = WB.Sheets("WOR Summary") With WS.Rows(r) .Columns("J") = ws2.Range("C2").Value .Columns("L") = ws2.Range("C4").Value .Columns("M") = ws2.Range("C7").Value .Columns("N") = ws2.Range("C9").Value .Columns("O") = ws2.Range("F2").Value .Columns("P") = ws2.Range("F3").Value .Columns("Q") = ws2.Range("F4").Value .Columns("R") = ws2.Range("F5").Value .Columns("S") = ws2.Range("F6").Value .Columns("T") = ws2.Range("F7").Value .Columns("U") = ws2.Range("F8").Value .Columns("V") = ws2.Range("F9").Value .Columns("W") = ws2.Range("F10").Value .Columns("X:BG") = Application.Transpose(ws2.Range("F13:F48").Value) .Columns("BH") = ws2.Range("F50").Value .Columns("BI:BN") = Application.Transpose(ws2.Range("F54:F59").Value) End With r = r + 1 WB.SaveAs fldnm & "\archive1\" & f.Name WB.Close f.Delete End If Next Application.ScreenUpdating = True End Sub |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Before my first post | About this forum | |||
Post | Excel Worksheet Functions | |||
my post | Excel Discussion (Misc queries) | |||
Further to my other post.... | Excel Worksheet Functions | |||
Should I generally request "post a poll" when I post a new thread? | Excel Discussion (Misc queries) |