Excel Macro

[nicolaux]

Hi All,

I need a simple macro that fill a cell of an excel sheet with some
data that comes from the file name.

Example:

If the file name is 35.xls the cell(B,2) contains the text "35".



Thanks a lot
Nicola

 

[Joel]

Sub test()

Folder = "C:\temp"
FName = "35.xls"

Workbooks.Open Filename:=Folder & "\" & FName
FNumber = Val(Left(FName, InStr(FName, ".") - 1))
Range("B2") = FNumber

End Sub