Hi! Plz Help ME...

[Shariq.khan]

HI! Im Having a problem with this code. I wanna create a new Excel WOrkBook. But I've a problem In the solution Given below:

Sub Test()
x = InputBox("Enter WOrkbook Name")


Dim strDir As String
'// Please Note ""
strDir = "E:Check"
With Application.FileSearch
.LookIn = strDir
.FileName = x
.FileType = msoFileTypeAllFiles

If .Execute() > 0 Then
'// Please Note ""
Workbooks.Open (strDir & "" & x)
Exit Sub
Else
'// Please Note ""
Workbooks.Add.SaveAs (strDir & "" & x )
ActiveWorkbook.Close
End If
End With

End Sub

 

[Sektor]

strDir = "E:[B][COLOR="Red"]\[/COLOR][/B]Check"

 

[Trevor G]

Welcome to the forum.

If you are using an inputbox to create a workbook, in the code you are using you are not refering to ".xls" as an extension. You are also missing the E:\ (Slash)

The code is also looking at using FileSearch which has been removed in 2007, so one question is are you using 2007 or 2003 or below?

 

[Shariq.khan]

HI! Trevor

I'm using 2003.
ANd in the Input box Name of the file with the full extension is given, e.g. x.xls.

 

[Trevor G]

Re: HI! Trevor

I'm using 2003.
ANd in the Input box Name of the file with the full extension is given, e.g. x.xls.

Look to modify this line
From

Workbooks.Add.SaveAs (strDir & "" & x )

To

Workbooks.Add.SaveAs (strDir & "\" & x )

 

[Shariq.khan]

Thanx,
but
I've an error on this location of code i.e. Object Required
on the statement:
With Application.FileSearch