Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

[VBS]Merge di due files

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: Triumph Of Steel, archimede

[VBS]Merge di due files

Postdi 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: 487
Iscritto il: 16/08/09 18:41

Sponsor
 

Postdi 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: 2755
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 6 ospiti