|
|
|
|
Strumenti |
04-04-2010, 23:48 | #1 |
Member
Iscritto dal: Mar 2009
Messaggi: 100
|
vbs
questi due file
Si posso unire in modo da diventare un unico file vbs? E il secondo file dovrebbe rimanere aperta il file \\CEDINFOSERVER\UfficioPosta\RUBRICA.XLS chi me lo sistema? posto qui il 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 E qui il secondo 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() |
Strumenti | |
|
|
Tutti gli orari sono GMT +1. Ora sono le: 20:16.