Run time Error när jag öppnar fil i kod

[Arne1]

Hej

Skall från en xls fil öppna en annan xls fil.

Koden ser ut som följer.

Provat med flera varianter som synes.

 

Sub openImportFile()

' Dim xlApp As Excel.Application

' Dim xlwbBook As Excel.Workbook

' Dim strPa As String

 

On Error GoTo errorH

 

Application.ScreenUpdating = False

' strPa = Range("input_File").Value

' 'Instantierar nytt Excel-object.

' Set xlApp = New Excel.Application

' Set xlwbBook = xlApp.Workbooks.Open(strPa) 'Spricker här

 

 

' Open input file

Workbooks.Open Filename:=Range("input_File").Value 'Spricker här

ThisWorkbook.Activate

 

Exit Sub

 

Filen som jag pekar ut öppnar sig men jag får ändå detta meddelande.

 

Run-time error '-2147024809 (80070057)

The item with the specified name wasn´t found.

 

Någon som har någon lösning?

 

Senaste service pack för W2000 är installerat på min maskin.

 

//PA

 

[Monshi]

testar din kod, den i ditt exempel "aktiva" koden fungerar, den bortkommenterade ger fel. Den bortkommentarde versionens aktiva sökväg är för mig c:\Program\Office.. (osv)

 

Du bör med andra ord kontrollera att Excel aktiva sökväg pekar dit där din fil är, misstänker att det är det felet du får i båda fallen.

 

 

 

/T

 

Even when we know we´ll never find the answers, we have to keep on asking questions.

 

[Arne1]

Hej

Sökvägen är ej fel.

"Range("input_File").Value" är en namnsatt cell på ett annat blad

och är en korrekt sökväg.

 

Programmet hittar filen och öppnar den, men jag får ändå Run time error.

 

//PA

 

[Arne1]

Hej

Problemet löst.

Felet var i filen jag skulle öppna.

 

//PA

 

[Monshi]

Trevligt att det löste sig.

 

Observerade för övrigt i mina test att skyddet mot makron inte reagerar när man öppnar en ny arbetsbok med VBA-kod i på detta sätt.

 

 

/T

 

Even when we know we´ll never find the answers, we have to keep on asking questions.