[VB6 sp6] Errore automazione creando file excel

[gibra]

su un pc nuovo con W10 pro, dove è stato

installato office 2007
disintallato office 365 (quello fornito di default)

nell'ordine.

Spero che tu abbia fatto l'inverso.
Se non è così, essendo un nuovo pc, fai il ripristino e rimuovi Office 365, riavvia il pc, e solo DOPO installa Office 2007.
Anche se, francamente, installare la 2007 mi sembra un azzardo, in quanto non più supportata.
Assicurati di installare la versione a 32 bit (MAI la 64 bit) sopratutto se devi interagire con VB6!!!

Su un altro pc, avevo avuto un problema simile [...], ma ho potuto risolvere in quanto pc nuovissimo, e quindi fatto ripristino

Appunto.

N.B.
- WMI non c'entra nulla

[Manu2020]

- WMI non c'entra nulla

Infatti, mi sono sbagliato

[benjy]

Buongiorno Gibra,

grazie per il tuo intervento, come sempre preciso, professionale e risolutivo.

Spero che tu abbia fatto l'inverso.

... purtroppo no.

più che altro perchè dopo che il cliente ha iniziato ad usarlo, è riuscito a far in modo che il pc aprisse i documenti office con il 365 e non con il suo 2007 [me lo hanno dato loro per l'installazione, per cui non so dirti se è 32 o 64, ma penso 32 visto che mi punta alla cartella program file (x86)]

fai il ripristino

Non vedo tra i punti di ripristino quello relativo alla disintallazione di 365 (strano, mi va indietro solo di un paio di giorni, e il cliente ci sta lavorando da 15gg circa)

Sarò costretto a fare la copia di tutti i documenti e ripristino di fabbrica, non c'è altro modo, vero, di risolvere il danno fatto.

Grazie e saluti

P.S: nel frattempo ho provato a sostituire l'istruzione incriminata

  
   Set appex = New Excel.Application  ' su questa istruzione esce l'errore
 

   Set carex = Excel.Workbooks.Add
    Set fogex = Excel.Worksheets(1)

con

Set app_exc = CreateObject("Excel.Application")
   Set carex = Excel.Workbooks.Add
    Set fogex = Excel.Worksheets(1)

e una prima volta mi ha funzionato ma si è bloccata poi su

fogex.Cells(1, 1) = "(1) Numero cartella"

dando lo stesso errore
e poi ha iniziato a bloccarsi su

Set carex = Excel.Workbooks.Add

Ho voluto lo stesso farVi partecipe dei tentativi finora fatti

Ora torno a... ripristinare il tutto.
Grazie ancora.