OPEN WORKBOOK

[FIRSTROUNDKO via OfficeKB.com]

Hi,

have a workbook abc****.xls in c:\myfolder\

I want to open it

**** is of variable length

I think I need to use something like

Workbooks.Open Filename:= c:\myfolder\

or maybe should I call the abc****.xls to a cell first

Thanks in advance

 

[joel]

FName = dir("c:\myfolder\*.xls")
set bk = Workbooks.Open( Filename:= FName)

 

[Dave Peterson]

Dim TestStr as string
dim wkbk as workbook

teststr = ""
on error resume next
teststr = dir("C:\myfolder\abc*.xls")
on error goto 0

if teststr = "" then
'nothing found, what should happen
else
set wkbk = workbooks.open(filename:="C:\myfolder\" & teststr)
'do stuff with wkbk???
end if

 

[FIRSTROUNDKO via OfficeKB.com]

Thank You, Perfect!

Dim TestStr as string
dim wkbk as workbook

teststr = ""
on error resume next
teststr = dir("C:\myfolder\abc*.xls")
on error goto 0

if teststr = "" then
'nothing found, what should happen
else
set wkbk = workbooks.open(filename:="C:\myfolder\" & teststr)
'do stuff with wkbk???
end if

Hi,

[quoted text clipped - 11 lines]

Thanks in advance