Torna indietro   Hardware Upgrade Forum > Software > Programmazione

TCL 65C7K, televisore Mini-LED di qualità, versatile e dal prezzo competitivo
TCL 65C7K, televisore Mini-LED di qualità, versatile e dal prezzo competitivo
Tecnologia Mini LED, pannello 4K QLED HVA a 144Hz e audio Bang & Olufsen: il nuovo TCL 65C7K si candida come best buy per l’intrattenimento domestico a tutto tondo, con promozioni che ne esaltano il rapporto qualità/prezzo
Fujifilm X-E5: la Fuji X che tutti gli appassionati volevano
Fujifilm X-E5: la Fuji X che tutti gli appassionati volevano
Dopo il fascino un po’ elitario della GFX100RF e le polemiche intorno a x Half, la nuova Fujifilm X-E5 riporta tutti d’accordo: una mirrorless compatta, leggera, elegante, e finalmente con stabilizzazione IBIS a bordo anche sulla serie E. Con il sensore da 40 MP e il processore X-Processor 5, eredita prestazioni da sorelle più costose, ma con l'ergonomia del mirino laterale in stile telemetro e una nuova ghiera per le simulazioni pellicola. Il tutto a un prezzo che, seppur più alto della precedente X-E4, la pne in kit al parti di X100VI
Recensione REDMAGIC 10S Pro: il gaming phone definitivo?
Recensione REDMAGIC 10S Pro: il gaming phone definitivo?
Il REDMAGIC 10S Pro è uno smartphone da gaming estremo che unisce il nuovo Snapdragon 8 Elite Leading Version, display AMOLED 144Hz da 6,85", raffreddamento ICE-X a metallo liquido e batteria da 7.050 mAh per prestazioni e autonomia al top.
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: 3210
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: 3210
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
Città: Milano
Messaggi: 3736
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: 542
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


TCL 65C7K, televisore Mini-LED di qualità, versatile e dal prezzo competitivo TCL 65C7K, televisore Mini-LED di qualità...
Fujifilm X-E5: la Fuji X che tutti gli appassionati volevano Fujifilm X-E5: la Fuji X che tutti gli appassion...
Recensione REDMAGIC 10S Pro: il gaming phone definitivo? Recensione REDMAGIC 10S Pro: il gaming phone def...
HPE Discover 2025: tra agenti intelligenti, infrastruttura AI-native e un futuro ibrido HPE Discover 2025: tra agenti intelligenti, infr...
Radeon RX 9060 XT, assalto a NVIDIA? Ecco come va la nuova scheda video di AMD Radeon RX 9060 XT, assalto a NVIDIA? Ecco come v...
Amazon oggi svende gli iPhone: c'è il 16...
Groove Thing è il primo lettore m...
Helldivers 2 arriva su Xbox il 26 agosto...
La missione cinese Apophis Recon Swarm (...
Offerta Starlink kit Standard: l'hardwar...
3I/ATLAS è la cometa interstellar...
Kojima Productions e Romero Games sarebb...
Da spazzatura a lingotto: la rivoluzione...
Dacia è ancora il brand più...
Niente dazi per Polestar 7: sarà ...
AMD Radeon RX 9070 XT, con l'ultimo aggi...
La consegna di farmaci urgenti via drone...
FLUX.1 Kontext: il nuovo modello di gene...
L'Europa e il mondo avvampano sotto il c...
Virgin, il CD trasparente di Lorde &egra...
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: 07:08.


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