Torna indietro   Hardware Upgrade Forum > Software > Programmazione

MSI Creator P100X 10th, un sistema desktop elegante per chi dà vita ai contenuti
MSI Creator P100X 10th, un sistema desktop elegante per chi dà vita ai contenuti
Abbiamo provato il nuovo MSI Creator P100X 10th, un PC desktop non troppo ingombrante pensato per chi crea contenuti ma vuole un sistema di indubbio impatto visivo. Il sistema da noi provato è basato sulla CPU a 10 core Intel Core i9-10900K, una GPU RTX 2080 SUPER, 64 GB di RAM e un comparto di archiviazione molto completo. Scopriamo insieme punti di forza e debolezza di un PC con, volendo, si può giocare alla grande.
Intel NUC 9 Extreme 'Ghost Canyon': Compute Element al centro di un progetto fuori dal comune
Intel NUC 9 Extreme 'Ghost Canyon': Compute Element al centro di un progetto fuori dal comune
Abbiamo avuto la possibilità di mettere le mani sul NUC 9 Extreme "Ghost Canyon" di Intel, un mini PC molto interessante perché si basa Compute Element, una scheda che ospita CPU, RAM e storage, semplificando potenzialmente le procedure di aggiornamento. Un'idea interessante e insolita, da sviluppare e magari applicare ad altri contesti. Nel complesso il mini PC è decisamente potente, ma un po' rumoroso sotto carico e di non facile reperimento sul mercato.
KFA2 GeForce RTX 2060 Super EX (1-Click OC), il dissipatore abbassa temperatura e rumorosità
KFA2 GeForce RTX 2060 Super EX (1-Click OC), il dissipatore abbassa temperatura e rumorosità
Abbiamo provato la KFA2 GeForce RTX 2060 Super EX (1-Click OC), una scheda video che si presenta con un dissipatore migliore rispetto al modello 1-Click OC testato nelle scorse settimane. La versione EX scalda meno e fa meno rumore, ha un comparto di porte posteriori più aggiornato e un doppio connettore PCI Express per favorire l'overclock.
Tutti gli articoli Tutte le news

Vai al Forum
Rispondi
 
Strumenti
Old 04-07-2009, 11:25   #1
john_revelator
Senior Member
 
L'Avatar di john_revelator
 
Iscritto dal: Jul 2007
Messaggi: 1092
[vba excel] verificare se un file è aperto o meno

Salve a tutti. Sono ancora qui a rompere.
Tramite word dovrò importare in excel dei dati ma prima devo verificare che il file di excel sia aperto o meno.

Il codice che ho scritto finora è questo. Anche se il file è chiuso mi dice che in realtà è già aperto. Potete darmi un consiglio? Grazie ancora.

Codice:
Sub cicla()

On Error GoTo apriFile:

Dim strPath As String
Dim xlApp As Excel.Application
Set xlApp = CreateObject("Excel.Application")
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet

strPath = "C:\mio_path\2009-06-19.xls"

xlApp.Visible = True


If Dir(strPath) <> "" Then
    'MsgBox "Il file esiste"
        
        If Not Workbooks(strPath) Is Nothing Then
            MsgBox "file aperto"
        Else
            MsgBox "file chiuso"
        End If

Workbooks(strPath).Activate

Else
    MsgBox "Il file non esiste"
    Exit Sub
End If


apriFile:
If Err.Number = 9 Then
    xlApp.Workbooks.Open FileName:=strPath
    Resume
End If

End Sub
john_revelator è offline   Rispondi citando il messaggio o parte di esso
Old 04-07-2009, 12:38   #2
MarcoGG
Senior Member
 
L'Avatar di MarcoGG
 
Iscritto dal: Dec 2004
Messaggi: 3201
Mmm, quanto codice...

Meglio così ?

Codice:
Private Function FileAperto(pathNomeFile As String) As Boolean

   On Error Resume Next
   Open pathNomeFile For Binary Access Read Write Lock Read Write As #1
   Close #1
   If Err.Number <> 0 Then
      FileAperto = True
      Err.Clear
   End If
   
End Function
Da usare così :

Codice:
    Dim nomeFile As String
    nomeFile = "C:\Test.xls"

    If FileAperto(nomeFile) = True Then MsgBox "File già aperto !"
MarcoGG è offline   Rispondi citando il messaggio o parte di esso
Old 05-07-2009, 17:30   #3
john_revelator
Senior Member
 
L'Avatar di john_revelator
 
Iscritto dal: Jul 2007
Messaggi: 1092
Grazie infinite per la "millantesima" volta.
john_revelator è offline   Rispondi citando il messaggio o parte di esso
Old 05-07-2009, 20:09   #4
MarcoGG
Senior Member
 
L'Avatar di MarcoGG
 
Iscritto dal: Dec 2004
Messaggi: 3201
Quote:
Originariamente inviato da john_revelator Guarda i messaggi
Grazie infinite per la "millantesima" volta.
Mi dovrai come minimo citare negli "special thanks"...
MarcoGG è offline   Rispondi citando il messaggio o parte di esso
Old 21-06-2020, 16:51   #5
boomalek79
Junior Member
 
Iscritto dal: Jun 2020
Messaggi: 1
quasi perfetto...

Quote:
Originariamente inviato da MarcoGG Guarda i messaggi
Mmm, quanto codice...

Meglio così ?

Codice:
Private Function FileAperto(pathNomeFile As String) As Boolean

   On Error Resume Next
   Open pathNomeFile For Binary Access Read Write Lock Read Write As #1
   Close #1
   If Err.Number <> 0 Then
      FileAperto = True
      Err.Clear
   End If
   
End Function
Da usare così :

Codice:
    Dim nomeFile As String
    nomeFile = "C:\Test.xls"

    If FileAperto(nomeFile) = True Then MsgBox "File già aperto !"
Anche io uso questo codice... ho un solo problema..
se lo uso per verificare se è già aperto un file che è in SOLA LETTURA mi dice (giustamente visto che prova bloccarlo anche in scrittura e non ci riesce) che è aperto anche se non lo è...

c'è un modo di risolvere questa particolarità?

Grazie
boomalek79 è offline   Rispondi citando il messaggio o parte di esso
Old 24-06-2020, 11:40   #6
misterx
Senior Member
 
Iscritto dal: Apr 2001
Messaggi: 3494
per tagliare la testa al toro con una sporca: io proverei a rinominarlo aggiungendo semplicemente un carattere, se l'SO non si arrabbia, il file non è aperto e lo si riporta al nome precedente.
misterx è offline   Rispondi citando il messaggio o parte di esso
Old 01-07-2020, 15:46   #7
lorenzo001
Senior Member
 
Iscritto dal: Jul 2008
Città: Roma
Messaggi: 526
Quote:
Originariamente inviato da boomalek79 Guarda i messaggi
Anche io uso questo codice... ho un solo problema..
se lo uso per verificare se è già aperto un file che è in SOLA LETTURA mi dice (giustamente visto che prova bloccarlo anche in scrittura e non ci riesce) che è aperto anche se non lo è...

c'è un modo di risolvere questa particolarità?

Grazie
Lo avevi scritto anche qui

http://forum.masterdrive.it/visual-b...tml#post377488

ma non hai creato nessun nuovo thread per avere la risposta ...
lorenzo001 è offline   Rispondi citando il messaggio o parte di esso
 Rispondi


MSI Creator P100X 10th, un sistema desktop elegante per chi dà vita ai contenuti MSI Creator P100X 10th, un sistema desktop elega...
Intel NUC 9 Extreme 'Ghost Canyon': Compute Element al centro di un progetto fuori dal comune Intel NUC 9 Extreme 'Ghost Canyon': Compute Elem...
KFA2 GeForce RTX 2060 Super EX (1-Click OC), il dissipatore abbassa temperatura e rumorosità KFA2 GeForce RTX 2060 Super EX (1-Click OC), il ...
Canon EOS-1D X Mark III, reflex con prestazioni ai massimi livelli. La recensione Canon EOS-1D X Mark III, reflex con prestazioni ...
Samsung Galaxy Note 20 e Note 20 Ultra 5G sono ufficiali! Ecco la nostra video anteprima Samsung Galaxy Note 20 e Note 20 Ultra 5G sono u...
Silverline Shape Defense: da F5 una solu...
Industria 4.0: Trend Micro scopre gravi ...
Il teardown di Canon EOS R5 rivela alcun...
SSD NVMe ZNS: come gli zoned namespace c...
Surface Duo, l'Android con due schermi d...
Full Nerd #1, la birra che nasce dall'in...
Un NAS nel cloud: QNAP lancia QuTScloud ...
Una crescita record per le vendite di ta...
La piattaforma di VMware e Intel per acc...
Super offerte Amazon oggi: TV Smasung 55...
Mozilla licenzia 250 persone e studia nu...
Xbox Series X arriva a novembre, Halo In...
Apple scambia pere per mele e denuncia u...
The Masquerade - Bloodlines 2 slitta di ...
Nvidia, confermato l'evento di presentaz...
LibreOffice 7.0.0.3
Mozilla Thunderbird 78
7-Zip
CCleaner Portable
CCleaner Standard
ZoneAlarm Antivirus free
SiSoftware Sandra Lite
PassMark PerformanceTest
K-Lite Codec Tweak Tool
K-Lite Mega Codec Pack
K-Lite Codec Pack Full
K-Lite Codec Pack Standard
K-Lite Codec Pack Basic
Opera Portable
Opera 70
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:04.


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