Excel Macro

  • Thread starter Thread starter nicolaux
  • Start date Start date
N

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
 
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
 
Back
Top