excel 2002 runtime error 1004

[xenod]

Hi, I have a problem with this code, when open a file excel show an
error runtime 1004 on add method, Why ?

Thanks for help


private sub aprifile()
Set EExcel = CreateObject("Excel.Application")
Set EWorkbook = EExcel.Workbooks

'Apre File Excel Template
Call EWorkbook.Add("p:\pubblica\procedure\modulistica\rilevazione
personale.xlt")

EExcel.Visible = True
end sub

[JE McGimpsey]

Sounds like XL can't find your template file. Are you sure the path and
filename are correct?

In article <MPG.1cbc59e538918b1f989701@news.it.net>, xenod <xxx@xxx.xx>
wrote:

> Hi, I have a problem with this code, when open a file excel show an
> error runtime 1004 on add method, Why ?
>
> Thanks for help
>
>
> private sub aprifile()
> Set EExcel = CreateObject("Excel.Application")
> Set EWorkbook = EExcel.Workbooks
>
> 'Apre File Excel Template
> Call EWorkbook.Add("p:\pubblica\procedure\modulistica\rilevazione
> personale.xlt")
>
> EExcel.Visible = True
> end sub

[xenod]

In article <jemcgimpsey-F50C84.07485905042005@msnews.microsoft.com>,
jemcgimpsey@mvps.org says...
> Sounds like XL can't find your template file. Are you sure the path and
> filename are correct?
>
> In article <MPG.1cbc59e538918b1f989701@news.it.net>, xenod <xxx@xxx.xx>
> wrote:
>
> > Hi, I have a problem with this code, when open a file excel show an
> > error runtime 1004 on add method, Why ?
> >
> > Thanks for help
> >
> >
> > private sub aprifile()
> > Set EExcel = CreateObject("Excel.Application")
> > Set EWorkbook = EExcel.Workbooks
> >
> > 'Apre File Excel Template
> > Call EWorkbook.Add("p:\pubblica\procedure\modulistica\rilevazione
> > personale.xlt")
> >
> > EExcel.Visible = True
> > end sub
>
yes, i'm sure, the file exist, before open file I check the file.
The error is:
Run-time error 1004
'add' method for object workbooks not success

[NickHK]

xenod
How about:

private sub aprifile()
Set EExcel = CreateObject("Excel.Application")

'Apre File Excel Template
Set EWorkbook
=EExcel.Workbooks.Add("p:\pubblica\procedure\modulistica\rilevazione
personale.xlt")

EExcel.Visible = True
end sub

NickHK



"xenod" <xxx@xxx.xx> wrote in message
news:MPG.1cbc59e538918b1f989701@news.it.net...
> Hi, I have a problem with this code, when open a file excel show an
> error runtime 1004 on add method, Why ?
>
> Thanks for help
>
>
> private sub aprifile()
> Set EExcel = CreateObject("Excel.Application")
> Set EWorkbook = EExcel.Workbooks
>
> 'Apre File Excel Template
> Call EWorkbook.Add("p:\pubblica\procedure\modulistica\rilevazione
> personale.xlt")
>
> EExcel.Visible = True
> end sub