Visual Basic 6 - vbs

questi sono due file
Si posso unire in modo da diventare un unico file vbs?
il secondo file dovrebbe rimanere aperta il file
\CEDINFOSERVER\UfficioPosta\RUBRICA.XLS

primo file

Dim XL
Dim wB
Set XL = CreateObject("EXCEL.APPLICATION"
XL.Visible = True
Set wB = XL.Workbooks.Open("\CEDINFOSERVER\UfficioPosta\RUBRICA GENERALE MASCHILE.XLS"
Set wB = XL.Workbooks.Open("\CEDINFOSERVER\rotonda\MATTINALE TR2.xls"
XL.DisplayAlerts = False
XL.ActiveWorkBook.Close
Set wB = XL.Workbooks.Open("\CEDINFOSERVER\RepartoA\MATTINALI.xls"
XL.ActiveWorkBook.Close
Set wB = XL.Workbooks.Open("\CEDINFOSERVER\Femminile\MATTINALI REPARTO FEMMINILE.xls"
XL.ActiveWorkBook.Close
Set wB = XL.Workbooks.Open("\CEDINFOSERVER\Femminile\Transex.xls"
XL.ActiveWorkBook.Close
Set wB = XL.Workbooks.Open("\CEDINFOSERVER\RepartoB\mattinali.xls"
XL.ActiveWorkBook.Close
Set wB = XL.Workbooks.Open("\Cedinfoserver\rotonda\TR1 - Allegato 3.xls"
XL.ActiveWorkBook.Close
Set wB = XL.Workbooks.Open("\CEDINFOSERVER\CentClinico\ELENCO DETENUTI --.xls"
XL.ActiveWorkBook.Close

secondo file

Dim XL
Dim wB
Set XL = CreateObject("EXCEL.APPLICATION"
XL.AskToUpdateLinks = False
XL.Visible = True
XL.DisplayAlerts = False
Set wB = XL.Workbooks.Open("\CEDINFOSERVER\Casellario\RUBRICA.XLS"
XL.ActiveWorkBook.SaveAs "\CEDINFOSERVER\UfficioPosta\RUBRICA.XLS"
'XL.DisplayAlerts = False
XL.ActiveWorkBook.Close(True)
XL.Quit()

anche se non ne sono sicruo prova con...

Dim XL
Dim wB 
Set XL = CreateObject("EXCEL.APPLICATION")
XL.Visible = True

Set wB = XL.Workbooks.Open("\CEDINFOSERVER\UfficioPosta\RUBRICA GENERALE MASCHILE.XLS")
Set wB = XL.Workbooks.Open("\CEDINFOSERVER\rotonda\MATTINALE TR2.xls")
XL.DisplayAlerts = False 
XL.ActiveWorkBook.Close
Set wB = XL.Workbooks.Open("\CEDINFOSERVER\RepartoA\MATTINALI.xls")
XL.ActiveWorkBook.Close
Set wB = XL.Workbooks.Open("\CEDINFOSERVER\Femminile\MATTINALI REPARTO FEMMINILE.xls")
XL.ActiveWorkBook.Close
Set wB = XL.Workbooks.Open("\CEDINFOSERVER\Femminile\Transex.xls")
XL.ActiveWorkBook.Close
Set wB = XL.Workbooks.Open("\CEDINFOSERVER\RepartoB\mattinali.xls")
XL.ActiveWorkBook.Close
Set wB = XL.Workbooks.Open("\Cedinfoserver\rotonda\TR1 - Allegato 3.xls")
XL.ActiveWorkBook.Close
Set wB = XL.Workbooks.Open("\CEDINFOSERVER\CentClinico\ELENCO DETENUTI --.xls")
XL.ActiveWorkBook.Close
XL.AskToUpdateLinks = False
XL.DisplayAlerts = False
Set wB = XL.Workbooks.Open("\CEDINFOSERVER\Casellario\RUBRICA.XLS") 
XL.ActiveWorkBook.SaveAs "\CEDINFOSERVER\UfficioPosta\RUBRICA.XLS"
XL.ActiveWorkBook.Close(True)
XL.Quit()
 

con qualche piccola modifica è andato grazie...
Si puo fare un comando che con un unico clic,tipo un file vbs, faccia questo:
Aprire pagina iternet(gia impostata pagina iniziale)
Ciccare su “siap/afis”
Ciccare su “accedi al srvizio”
Inserire nome utente XXXXXX
Inserire pasword XXXXXX
Ciccare su “cartella D” e infine “consultazioneD”