Avatar billede asol Nybegynder
16. juni 2004 - 10:29 Der er 8 kommentarer og
1 løsning

Sporadisk fejl ifm indsættelse af data fra xl til word

Hej alle

Jeg har brug for hjælp til en sporadisk fejl ifm. med, at jeg indsætter data fra xl i et word-dokument. Word-dokumentet oprettes fint nok og jeg inden fejlen opstår lykkes det også at indsætte en del tekst med mere. Fejlen (Run-time error '462': The remote server machine does not exist or is unavailable) opstår i forbindelse med formateringen af en table. Tabellen oprettes fint nok. Som sagt - nogle gange virker det perfekt andre gange kommer fejlen. Hvad er problemet?

asol



Dim objWord As New Word.Application
Dim docWord As New Word.Document
Dim wordTable As Word.Table
Set objWord = New Word.Application
Set docWord = objWord.Documents.Add
objWord.Visible = True
Dim strDocName As String


masser af tekst mv videre indsættes



Set wordTable = docWord.Tables.Add(objWord.Selection.Range, 1, 2)
                           
'HER GÅR DET GALT (EN GANG I MELLEM)
wordTable.Columns(1).Width = CentimetersToPoints(1.82)
wordTable.Columns(2).Width = CentimetersToPoints(14.89)
wordTable.Rows.LeftIndent = CentimetersToPoints(0.12)
Avatar billede bak Forsker
16. juni 2004 - 11:46 #1
Måske kan det skyldes at du bruger ordet New i de 2 første linier. og igen i linie 4.
Prøv at fjerne New i de 2 første. Det skal køre alligevel.
Det der kan ske, er at du pludselig kører med 2 word.applicationer, (new 2 gangehvoraf den ene er skjult.
Avatar billede asol Nybegynder
16. juni 2004 - 12:05 #2
OK nu har jeg fjernet New i de første to linier. I sig selv hjælper det ikke. MEN jeg havde 'glemt' af sætte de tre objektvariable til nothing til sidst. Kombinationen af at fjerne New i de første to linier og Set objektvariabel = Nothing ser ud til at virke.
Skal man set objektvariabel = nothing sidst i proceduren? Jeg troede det skete automatisk ved End Sub
Avatar billede asol Nybegynder
16. juni 2004 - 12:06 #3
Øv nu får jeg fejlen igen :-(
Avatar billede bak Forsker
16. juni 2004 - 12:31 #4
Sådan, så skulle det funke

Dim objWord As Word.Application
Dim docWord As Word.Document
Dim wordTable As Word.Table
Set objWord = New Word.Application
Set docWord = objWord.Documents.Add
objWord.Visible = True
Set wordTable = docWord.Tables.Add(objWord.Selection.Range, 1, 2)
                           
'HER GÅR DET GALT (EN GANG I MELLEM)
wordTable.Columns(1).Width = objWord.CentimetersToPoints(1.82)
wordTable.Columns(2).Width = objWord.CentimetersToPoints(14.89)
wordTable.Rows.LeftIndent = objWord.CentimetersToPoints(0.12)
Avatar billede asol Nybegynder
16. juni 2004 - 12:41 #6
Det virker perfekt først gang jeg kører proceduren.
Hvis jeg lukker word, og kører proceduren igen så kommer fejlen. Hvis jeg ikke lukker word så kan jeg kører proceduren alle de gange jeg vil.

Jeg sidder og læser
http://support.microsoft.com/default.aspx?scid=kb;EN-US;319832
Avatar billede bak Forsker
16. juni 2004 - 12:43 #7
efter at have ændret disse tre linier virker det perfekt her, ellers fik jeg samme fejl hver anden gang.

wordTable.Columns(1).Width = objWord.CentimetersToPoints(1.82)
wordTable.Columns(2).Width = objWord.CentimetersToPoints(14.89)
wordTable.Rows.LeftIndent = objWord.CentimetersToPoints(0.12)
Avatar billede asol Nybegynder
16. juni 2004 - 12:51 #8
Perfekt! Tusinde tak!!!

Nu virker det også hos mig. Dum fejl fra min side :-)

Smid et svar
Avatar billede bak Forsker
16. juni 2004 - 13:07 #9
:-)
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Excel kurser for alle niveauer og behov – find det kursus, der passer til dig

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester