Acquista i nostri libri consigliati su Amazon.it
+ Rispondi al messaggio
Visualizzazione dei risultati da 1 a 4 su 4

errore apertura file word da excel

  1. #1
    jon
    jon non è in linea Scolaretto
    salve a tutti
    sto creando una piccola applicazione in excel che esegue una serie di calcoli e poi crea un file in word con i vari risultati, ma nel creare il file in word ho la necessità di prendere alcune descrizioni in altri file word già esistenti, ed è proprio qui che nasce il problema.
    All'apertura del primo file word contenente la prima descrizione tutto ok, ma nel momento in cui cerco di aprire il secondo file word per prendere la seconda descrizione mi esce fuori l'errore che il file risulta aperto, questo è il codice che sto utilizzando:
    Dim WordDoc As Word.Document
    Dim WordDoc2 As Word.Document
    Dim WordApp As Word.Application
    Dim WordApp2 As Word.Application
    Set WordApp = New Word.Application
    Set WordApp2 = New Word.Application
    Set WordDoc = WordApp.Documents.Open("c:\nuovo.doc")
     
    'qui apro la prima descrizione
     Set WordDoc2 = WordApp2.Documents.Open("C:\primadescr.doc")
                    WordDoc2.Parent.Visible = False
                    WordApp2.Selection.WholeStory
                    WordApp2.Selection.Copy
                    WordApp2.Documents.Close
                    WordApp2.Quit
    
    'incollo la prima descrizione
    WordDoc.Bookmarks("manu_segna").Range.Paste
    
    'qui apro la seconda descrizione
     Set WordDoc2 = WordApp2.Documents.Open("C:\seconda.doc")
                    WordDoc2.Parent.Visible = False
                    WordApp2.Selection.WholeStory
                    WordApp2.Selection.Copy
                    WordApp2.Documents.Close
                    WordApp2.Quit
    
    'incollo la seconda descrizione
    WordDoc.Bookmarks("manu_segna2").Range.Paste
    
    e proprio nell'apertura della seconda descrizione che esce fuori l'errore.
    Sarei veramente grato a chiunque possa darmi un suggerimento, grazie anticipatamente.

  2. #2
    jon
    jon non è in linea Scolaretto
    ho fatto la prova a settare:
    set WordDoc2 = Nothing
    
    ma ottengo il seguente errore: il computer server remoto non esiste o non è disponibile qualcuno saprebbe darmi una dritta?

  3. #3
    L'avatar di TheTruster
    TheTruster non è in linea Moderatore Globale Ultimo blog: Mouse Wheel in Visual Basic 6 - ActiveX
    Quote Originariamente inviato da jon Visualizza il messaggio
    questo è il codice che sto utilizzando:
    Dim WordDoc As Word.Document
    Dim WordDoc2 As Word.Document
    Dim WordApp As Word.Application
    Dim WordApp2 As Word.Application
    Set WordApp = New Word.Application
    Set WordApp2 = New Word.Application
    Set WordDoc = WordApp.Documents.Open("c:\nuovo.doc")
     
    'qui apro la prima descrizione
     Set WordDoc2 = WordApp2.Documents.Open("C:\primadescr.doc")
                    WordDoc2.Parent.Visible = False
                    WordApp2.Selection.WholeStory
                    WordApp2.Selection.Copy
                    WordApp2.Documents.Close
                    WordApp2.Quit
    
    'incollo la prima descrizione
    WordDoc.Bookmarks("manu_segna").Range.Paste
    
    'qui apro la seconda descrizione
     Set WordDoc2 = WordApp2.Documents.Open("C:\seconda.doc")
                    WordDoc2.Parent.Visible = False
                    WordApp2.Selection.WholeStory
                    WordApp2.Selection.Copy
                    WordApp2.Documents.Close
                    WordApp2.Quit
    
    'incollo la seconda descrizione
    WordDoc.Bookmarks("manu_segna2").Range.Paste
    
    e proprio nell'apertura della seconda descrizione che esce fuori l'errore.
    Dopo aver copiato la prima descrizione, se ci fai caso, chiudi la WordApp2:

    WordApp2.Quit
    
    ma prima di aprire il secondo documento non la riapri.
    Quello che dovresti fare è chiudere solo il documento (WordDoc2), chiudendo ed annientando l'applicazione WordApp2 solo alla fine della procedura.

    TheTruster
    ℹ️ Leggi di più su TheTruster ...

  4. #4
    jon
    jon non è in linea Scolaretto
    grazie the truster sei stato come sempre utile e chiarissimo, ho risolto egreggiamente.

+ Rispondi al messaggio

Potrebbero interessarti anche ...

  1. Risposte: 3
    Ultimo Post: 25-05-2021, 21:56
  2. VB.net: Errore in apertura file Excel
    Da newcontex nel forum Visual Basic .Net
    Risposte: 2
    Ultimo Post: 30-04-2020, 09:53
  3. Errore all'apertura del file & Word 2003
    Da roccolamann nel forum Microsoft Word
    Risposte: 6
    Ultimo Post: 19-04-2014, 15:36
  4. errore apertura file esterno excel office 10
    Da brichet nel forum Microsoft Word
    Risposte: 1
    Ultimo Post: 10-11-2013, 19:19
  5. errore apertura file esterno excel office 10
    Da brichet nel forum Microsoft Excel
    Risposte: 1
    Ultimo Post: 10-11-2013, 19:19