Torna indietro   Hardware Upgrade Forum > Software > Programmazione

Parliamo di quantum computing: dentro la ricerca di IBM per la chimica e la fisica
Parliamo di quantum computing: dentro la ricerca di IBM per la chimica e la fisica
Abbiamo intervistato Antonio Mezzacapo, ricercatore di IBM presso il Thomas J. Watson Center di New York, per capire meglio come l'azienda stia approcciando il mondo dei computer quantistici, come questi stiano prendendo forma e come potranno cambiare le dinamiche della ricerca nella chimica e nella fisica. Uno sguardo a un futuro che è già un po' tra di noi
Huawei MateBook 14 2020: un bello schermo con una GPU veloce
Huawei MateBook 14 2020: un bello schermo con una GPU veloce
E' la GPU NVIDIA GeForce MX350 la vera novità di questo notebook, capace di abbinare un design tradizionale ma molto ben curato alla potenza del processore Intel Core i7. Lo schermo da 14 pollici abbina risoluzione elevata, buona qualità complessiva e i vantaggi del rapporto 3:2 così apprezzato per la produttività personale
Sound BlasterX G6: piccolo e potente Amplificatore e DAC da gaming
Sound BlasterX G6: piccolo e potente Amplificatore e DAC da gaming
Tra i DAC/AMP dedicati ai videogamer più incalliti troviamo Sound BlasterX G6, erede del precedente modello G5. Rispetto al modello precedente, Creative Sound BlasterX G6 integra un bi-amplificatore che amplifica i canali audio singolarmente. Rispetto a G5 crescono anche il rapporto segnale rumore, la gamma dinamica e la profondità e risoluzione dei flussi audio riproducibili
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


Parliamo di quantum computing: dentro la ricerca di IBM per la chimica e la fisica Parliamo di quantum computing: dentro la ricerca...
Huawei MateBook 14 2020: un bello schermo con una GPU veloce Huawei MateBook 14 2020: un bello schermo con un...
Sound BlasterX G6: piccolo e potente Amplificatore e DAC da gaming Sound BlasterX G6: piccolo e potente Amplificato...
Recensione F1 2020: è proprio l'anno del sim racing Recensione F1 2020: è proprio l'anno del ...
Microsoft: da Inspire verso un futuro basato sul cloud Microsoft: da Inspire verso un futuro basato sul...
Marvel's Avengers: secondo War Table mos...
Il curioso video di un polpo che cerca d...
Vulnerabilità hardware per Secure...
Rainbow Six Siege: Gold Edition in bundl...
Samsung sta pensando di entrare nella pa...
Google Pixel 4a: piccolo, leggero, con u...
Kena Mobile rivoluziona per l'estate: 70...
Fuori strada per aver usato il touch-scr...
Netflix, un videogioco Ubisoft del 2003 ...
Warframe: la nuova espansione e tutte le...
NASA Perseverance è uscito dalla safe-mo...
Netflix: arriva il controllo sulla veloc...
MegaX: la fotocamera che cattura un ragg...
MS Optics Elnomaxim 55mm 1.2 per Leica M...
Cuffie wireless Panasonic RB-M700B: nois...
Media Player Classic Home Cinema
K-Lite Codec Tweak Tool
K-Lite Codec Pack Update
K-Lite Mega Codec Pack
K-Lite Codec Pack Full
Internet Download Manager
Chromium
AVG Internet Security
AVG Antivirus Free
Mozilla Thunderbird 78
iTunes 12
BurnAware Premium
BurnAware Free
SiSoftware Sandra Lite
Opera Portable
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: 04:20.


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