using macro to collect data into a workbook

[lintruthy]

how can I use macro to automatically put two sets (like name and score) of data from many workbooks (like 100) into a table in one other workbook.

 

[ask2tsp]

to process all files in a folder you could use

Sub processWorkbooks()
'for this to compile
'set a reference to Microsoft Scripting Runtime

    Dim fso         As Object
    Dim topFolder   As Scripting.folder
    Dim wbFile      As Scripting.file
    Dim wb          As Workbook
    
    'enter your path to the folder containing the workbooks
    Const top As String = "D:\users\ties\Documents\MrExcel\982030"
    
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set topFolder = fso.GetFolder(top)
    
    For Each wbFile In topFolder.Files
        Workbooks.Open wbFile
        Set wb = Workbooks(Workbooks.Count)
        '... process wb
        wb.Close False  'don't save changes
    Next wbFile
End Sub

 

[lintruthy]

I get;
compile error:
user defined type not defined

on line 6

 

[ask2tsp]

In vbe
Click References on the Project menu and select the Microsoft Scripting Runtime.
Now it should recognize scripting objects.

 

[lintruthy]

ok