Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
Username: Password: oppure
Visual Basic 6 - vbs
Forum - Visual Basic 6 - vbs

Avatar
trittico69 (Normal User)
Pro


Messaggi: 144
Iscritto: 02/04/2010

Segnala al moderatore
Postato alle 19:02
Venerdì, 02/04/2010
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()



PM Quote
Avatar
GrG (Member)
Guru^2


Messaggi: 3430
Iscritto: 21/08/2007

Segnala al moderatore
Postato alle 23:05
Venerdì, 02/04/2010
anche se non ne sono sicruo prova con...
Codice sorgente - presumibilmente VB.NET
  1. Dim XL
  2. Dim wB
  3. Set XL = CreateObject("EXCEL.APPLICATION")
  4. XL.Visible = True
  5.  
  6. Set wB = XL.Workbooks.Open("\\CEDINFOSERVER\UfficioPosta\RUBRICA GENERALE MASCHILE.XLS")
  7. Set wB = XL.Workbooks.Open("\\CEDINFOSERVER\rotonda\MATTINALE TR2.xls")
  8. XL.DisplayAlerts = False
  9. XL.ActiveWorkBook.Close
  10. Set wB = XL.Workbooks.Open("\\CEDINFOSERVER\RepartoA\MATTINALI.xls")
  11. XL.ActiveWorkBook.Close
  12. Set wB = XL.Workbooks.Open("\\CEDINFOSERVER\Femminile\MATTINALI REPARTO FEMMINILE.xls")
  13. XL.ActiveWorkBook.Close
  14. Set wB = XL.Workbooks.Open("\\CEDINFOSERVER\Femminile\Transex.xls")
  15. XL.ActiveWorkBook.Close
  16. Set wB = XL.Workbooks.Open("\\CEDINFOSERVER\RepartoB\mattinali.xls")
  17. XL.ActiveWorkBook.Close
  18. Set wB = XL.Workbooks.Open("\\Cedinfoserver\rotonda\TR1 - Allegato 3.xls")
  19. XL.ActiveWorkBook.Close
  20. Set wB = XL.Workbooks.Open("\\CEDINFOSERVER\CentClinico\ELENCO DETENUTI --.xls")
  21. XL.ActiveWorkBook.Close
  22. XL.AskToUpdateLinks = False
  23. XL.DisplayAlerts = False
  24. Set wB = XL.Workbooks.Open("\\CEDINFOSERVER\Casellario\RUBRICA.XLS")
  25. XL.ActiveWorkBook.SaveAs "\\CEDINFOSERVER\UfficioPosta\RUBRICA.XLS"
  26. XL.ActiveWorkBook.Close(True)
  27. XL.Quit()

PM Quote
Avatar
trittico69 (Normal User)
Pro


Messaggi: 144
Iscritto: 02/04/2010

Segnala al moderatore
Postato alle 22:05
Lunedì, 05/04/2010
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”

PM Quote