Condividi:
Problemi di HTML? Di PHP, ASP, .NET, JSP, Perl, SQL, JavaScript, Visual Basic..?
Vuoi realizzare programmi in C, C++, Java, Ruby o Smalltalk, e non sai da che parte cominciare?
Entra qui e troverai le risposte!
Moderatori: Anthony47, Triumph Of Steel, archimede
di trittico69 » 02/04/10 21:53
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
- Codice: Seleziona tutto
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
- Codice: Seleziona tutto
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()
Moderazione: titolo modificato perché in violazione della Netiquette (#3).
-
trittico69
- Utente Senior
-
- Post: 497
- Iscritto il: 16/08/09 18:41
di archimede » 06/04/10 08:22
Hai già provato così?
- Codice: Seleziona tutto
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
Set wB = XL.Workbooks.Open("\\CEDINFOSERVER\Casellario\RUBRICA.XLS")
XL.ActiveWorkBook.SaveAs "\\CEDINFOSERVER\UfficioPosta\RUBRICA.XLS"
HTH.
Alessandro
-
archimede
- Moderatore
-
- Post: 2851
- Iscritto il: 07/11/02 12:41
- Località: Genova
-
Torna a Programmazione
Topic correlati a "[VBS]Merge di due files":
Chi c’è in linea
Visitano il forum: Nessuno e 12 ospiti