Overførsel af data fra excel til Word
Styresystem: Win 2000 og XP.Beskrivelse:
Jeg er i gang med et projekt, hvor der først importeres eksterne data til et regneark i Excel.
Disse data gennem går derefter adskillige beregninger og spredes ud i 15-20 regnark i projektmappen.
Når beregningerne er slut, kopieres de relevante resultater over i Word, som en endelig rapport til slutbruger.
Undervejs kan bruger foretage en række valg, som præsenteres i 5-6 dialogbokse.
Det meste er styret af VBA.
Spørgsmål:
Når jeg i slutningen af ovenstående proces ”smider” data over i Word, har jeg ikke nogen problemer første gang jeg gør det, men hvis jeg gør det igen lige efter, får jeg fejl ”462: The remote server machine does not exist or is unavarable”.
Skelettet i min kode ser således ud:
Sub KopierTilWordTest()
'Dim MSW As Word.Application
Dim MSW As Object
On Error GoTo FejlBehandling
Call InitierTest
Set MSW = GetObject(, "Word.Application")
MSW.Visible = True
Documents.Add Template:= _
varStiTilSkabeloner & "\Specifikationer.dot" , NewTemplate:=False, DocumentType:=0
’Her kommer så koden, der smider data fra Excel til Word og det virker ;-)
MSW.Quit
Set MSW = Nothing
Exit Sub
FejlBehandling:
Select Case Err.Number
Case 91
' MSW.Quit
Resume Next
Case 429
Set MSW = CreateObject("Word.Application")
Resume Next
Case 462
' MsgBox Err.Number & Error(Err.Number)
' Set MSW = Nothing
' MSW.Quit
' Resume
Case 5941
MsgBox Err.Number & Error(Err.Number)
MSW.Selection.MoveUp Unit:=wdLine, Count:=1
Case Else
MsgBox Err.Number & Error(Err.Number)
End Select
End Sub
Jeg har på fornemmelsen at problemet har noget med oprydning efter den første kørsel at gøre.
Hvis jeg ser i Task Manager kører WINWORD.EXE nogle gange som process og andre gange ikke.
De mange udkommenteringer i fejlproceduren er udtryk for diverse forsøg under vejs. Foruden de Err.Number, der fremgår af koden har jeg også undervej fået nogle uden forklaring og med et stort negativt nummer.
I korthed: hvad gør jeg for at undgå eller handle fejl 462?