Torna indietro   Hardware Upgrade Forum > Software > Programmazione

Tre giorni in Finlandia con OnePlus Watch 2 Nordic Blue. La nostra prova a temperature estreme
Tre giorni in Finlandia con OnePlus Watch 2 Nordic Blue. La nostra prova a temperature estreme
Siamo volati a Helsinki, in Finlandia, per testare a fondo il nuovo OnePlus Watch 2 Nordic Blue Edition. L'orologio ci ha convinti durante gli i test invernali ad Helsinki, grazie al design raffinato, alle prestazioni impeccabili, alla resistenza agli ambienti estremi e all'ottima autonomia garantita dalla modalità intelligente.
Lenovo Factory Tour: siamo entrati nella fabbrica ungherese che produce PC, storage e server
Lenovo Factory Tour: siamo entrati nella fabbrica ungherese che produce PC, storage e server
Edge9 ha visitato lo stabilimento produttivo di Lenovo nei pressi di Budapest in Ungheria, che serve tutta la zona EMEA per i prodotti “business”: PC, storage e server. Un impianto all’avanguardia, con altissimi tassi di efficienza ma anche una grande attenzione alle condizioni lavorative dei dipendenti e alla sostenibilità ambientale
Acer Nitro V 15, alla prova il notebook gaming essenziale con RTX 4050 Laptop
Acer Nitro V 15, alla prova il notebook gaming essenziale con RTX 4050 Laptop
Acer Nitro V 15 è un notebook gaming che punta sul rapporto prezzo-prestazioni per garantire a chi ha un budget intorno o persino inferiore ai 1000€ di giocare abbastanza bene in Full HD grazie alla RTX 4050 Laptop di NVIDIA e la compatibilità con il DLSS 3.
Tutti gli articoli Tutte le news

Vai al Forum
Rispondi
 
Strumenti
Old 04-04-2010, 23:48   #1
trittico69
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()
trittico69 è offline   Rispondi citando il messaggio o parte di esso
 Rispondi


Tre giorni in Finlandia con OnePlus Watch 2 Nordic Blue. La nostra prova a temperature estreme Tre giorni in Finlandia con OnePlus Watch 2 Nord...
Lenovo Factory Tour: siamo entrati nella fabbrica ungherese che produce PC, storage e server Lenovo Factory Tour: siamo entrati nella fabbric...
Acer Nitro V 15, alla prova il notebook gaming essenziale con RTX 4050 Laptop Acer Nitro V 15, alla prova il notebook gaming e...
Stellar Blade: l'action RPG di Shift Up sfoggia uno stile (quasi) unico su PS5 - Recensione Stellar Blade: l'action RPG di Shift Up sfoggia ...
Recensione Zenfone 11 Ultra: il flagship ASUS ritorna a essere un 'padellone' Recensione Zenfone 11 Ultra: il flagship ASUS ri...
Samsung dirà addio alle GPU AMD p...
PlayStation Plus: a maggio regala EA Spo...
Intel ha ricevuto 30 milioni di euro dal...
Offerte Amazon del Weekend: super prezzi...
I Google Pixel Watch 2 sono crollati a 2...
Creator digitali, c'è un PC LG Gr...
La sindrome da inseguimento ad OpenAI st...
Da non credere: questo TV Nokia UHD da 6...
Senza precedenti: portatile Medion Full ...
Torna disponibile il super tablet da 109...
Torna in scorte il portatile low cost 16...
Open RAN: Nokia e Vodafone hanno complet...
Google: licenziamenti in California e nu...
Il Gusto delle cose: un'ode alla passion...
Emergono dettagli sull'attacco informati...
Chromium
GPU-Z
OCCT
LibreOffice Portable
Opera One Portable
Opera One 106
CCleaner Portable
CCleaner Standard
Cpu-Z
Driver NVIDIA GeForce 546.65 WHQL
SmartFTP
Trillian
Google Chrome Portable
Google Chrome 120
VirtualBox
Tutti gli articoli Tutte le news Tutti i download

Strumenti

Regole
Non Puoi aprire nuove discussioni
Non Puoi rispondere ai messaggi
Non Puoi allegare file
Non Puoi modificare i tuoi messaggi

Il codice vB è On
Le Faccine sono On
Il codice [IMG] è On
Il codice HTML è Off
Vai al Forum


Tutti gli orari sono GMT +1. Ora sono le: 20:16.


Powered by vBulletin® Version 3.6.4
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Served by www2v