webForumDet fria alternativet

Excel: "Körfel 1004", men bara ibland?

.NET

0 svar · 1 552 visningar · startad av evilaid

Medlem sedan apr. 2009433 inlägg
Frågan#1

Hej

Har ett fel som får en att slita sitt hår..

Jag använder vba kod i ett Word dokument som ska starta en excelfil och samtidigt anropa ett makro, filen funkar att öppna, makro funkar att starta men stannar och ger felet:

Körfel nr '1004'
Egenskapen Printarea går inte ange för klassen Pagesetup.

Väljer jag felsök så markeras raden nedan

.PrintArea = "$A$1:$O$49;$Q$1:$AE$49;$Q$50:$AE$97;$AG$50:$AU$97"

Hela kodstycket ser ut så här

   If Sheets("Beräkningar").Cells(6, 2) = "4V" Then 
        With Sheets("Ritn").PageSetup 
            .PrintArea = "$A$1:$O$49;$Q$1:$AE$49;$Q$50:$AE$97;$AG$50:$AU$97" 
            .Zoom = 85 
        End With 
        Sheets("Ritn").PrintOut 
    End If

Det skumma är att nu när exceldokumentet är öppet så kan jag anropa ovan kod som ligger i en subrutin och sidan skrivs ut, men ova fel kommer bara när jag anropar makrot från word dokumentet

KOden i word dokumentet ser ut så här.

Set oExcelApp = CreateObject("Excel.Application") 
Set oWorkbook = oExcelApp.workbooks.Open("C:\Documents and Settings\bosse\Mina dokument\eco.xls") 
oExcelApp.Visible = True 
'oExcelApp.Wait (Now + TimeValue("0:00:05")) 
oExcelApp.Run "'ECO.xls'!Ritning"

Tacksam för all hjälp, inte många hårstrån kvar på huvudet nu

266 ms totalt · 4 externa anrop · v20260731065814-full.6fe65c25
127 ms — deklarationer (db)
0 ms — hämta statistik (cache)
137 ms — hämta tråd, inlägg och bilagor (db)
127 ms — ändringar (db)