Moderatori: Anthony47, Triumph Of Steel, archimede
Dim myExcelApp As Object
Set myExcelApp = GetObject(, "Excel.application")
myExcelApp.Visible = True '<<Opzionale
myExcelApp.Run "Multi_B10812.xls!Giropt"
Su quale riga??mi dice prevista fine isruzione...
Set XL = CreateObject("EXCEL.APPLICATION")
XL.Visible = True
XL.AskToUpdateLinks = False
XL.DisplayAlerts = False
Set wB = XL.Workbooks.Open ("\\Cedinfoserver\UfficioPosta\nuova cartella\rubrica11ctc")
XL.AskToUpdateLinks = False
XL.DisplayAlerts = False
Set wB = XL.Workbooks.Open("\\CEDINFOSERVER\rotonda\MATTINALE TR2.xls")
XL.ActiveWorkBook.Close
Set wB = XL.Workbooks.Open("\\CEDINFOSERVER\RepartoA\MATTINALI bis.xls")
XL.ActiveWorkBook.Close
Set wB = XL.Workbooks.Open("\\CEDINFOSERVER\Femminile\MATTINALI REPARTO FEMMINILE.xls")
XL.ActiveWorkBook.SaveAs "C:\Documents and Settings\utente\Desktop\RUBRICActc.XLS"
XL.ActiveWorkBook.Close
Set wB = XL.Workbooks.Open ("\\Cedinfoserver\UfficioPosta\nuova cartella\rubrica11ctc")
Set wB = XL.Workbooks.Open ("\\Cedinfoserver\UfficioPosta\nuova cartella\rubrica11ctc") 'ESISTENTE
xl.Run "rubrica11ctc.xls!avvia" '<<< AGGIUNTA
xl.run ("rubrica11ctc.xls!avvia")
Macro che scatta quando cambia dato in un altro file Autore: systemcrack |
Forum: Applicazioni Office Windows Risposte: 14 |
Problema con macro copia e rinomina file Autore: systemcrack |
Forum: Applicazioni Office Windows Risposte: 2 |
Macro che ricerca combinazioni che danno un valore Autore: kar64 |
Forum: Applicazioni Office Windows Risposte: 10 |
Macro che indica la riga prima della cella attiva Autore: systemcrack |
Forum: Applicazioni Office Windows Risposte: 19 |
Visitano il forum: Nessuno e 15 ospiti