VBA Excel su due file

Hai un problema con Excel?

Nuova discussione

VBA Excel su due file
di FrisckY data: 21/02/2013 16:24:24
Un saluto a tutti.
Mi trovo in questa situazione: ho due file excel 2010 con le loro relative macro di calcolo.
Vorrei da uno dei due file lavorare e comandare l'avvio delle macro dell'altro file, ma continua a darmi errore.
Non riporto tutto il codice ma solo fino al punto dove mi da errore.
Il file su cui voglio lavorare lo scelgo da una textbox posizionata nel form.
Nel file su cui cerco di andare a scrivere ci sono più fogli, con nomi differenti ed ognuno con le sue macro "public"
ListaMateriali è un foglio
LM è un modulo

L'errore è sulla riga dell' "IF"
Qualcuno mi sa dire dove sbaglio?
Grazie!!!

Dim oBook As Object
Dim oSheet As Object
'Apro il nuovo file excel
Set oExcel = CreateObject("Excel.Application")
Dim Aperto As Boolean
'verifico se il file è aperto
Aperto = FileAperto(Me.FilePreventivoTxt.Value)
If Aperto = True Then
    MsgBox "Attenzione: il file del preventivo è APERTO" & vbCrLf & "Chiuderlo e riprovare", vbCritical, "File aperto"
    Exit Sub
Else
    Set oBook = oExcel.Workbooks.Open(Me.FilePreventivoTxt.Value)
    oExcel.Visible = True
    DoEvents
End If
'proseguo
x = 6
If obook.ListaMateriali.Cells(x, obook.LM.LMFamiglia).Value <> "" Then
    While obook.ListaMateriali.Cells(x, obook.LM.LMFamiglia).Value <> ""
        x = x + 1
    Wend

di Vecchio Frac data: 22/02/2013 18:38:43
Application.Run per eseguire macro di altri fogli.
Non hai riportato la function più importante, cioè FileAperto().
Che errore ricevi?

Vuoi Approfondire?