March 22
Visual Basic, Applications Edition (VBA) è un sottoinsieme di Visual Basic che viene utilizzato per personalizzare i programmi di Microsoft Office in base alle proprie esigenze. Quando si scrive in un file in VBA, è buona norma assicurarsi quel particolare file esista prima di tentare di scrivere. Se si vuole trovare se esiste un file in Excel, creare un modulo VBA che fa il trucco. Per poter utilizzare questa funzione, si dovrebbe avere qualche precedente esperienza con la programmazione VB.
1 Copiare il codice seguente:
Option Explicit
FileOrDirExists funzione (nome di percorso come stringa) come booleano
'Macro Purpose: Function returns TRUE if the specified file
'O esiste una cartella, falso in caso contrario.
'PathName: Supporta Windows mappato unità o UNC
': Supporta percorsi di Macintosh
'Utilizzo del file: Fornire percorso completo del file e l'estensione
'Cartella utilizzo: Fornire percorso cartella piena
'Accetta con / senza finale "\" (Windows)
'Accetta con / senza finale ":" (Macintosh)
Dim iTemp As Integer
'Ignora errori per consentire l'analisi degli errori
On Error Resume Next
iTemp = GetAttr (PathName)
'Verificare se l'errore esiste e impostare la risposta in modo appropriato
Select Case Err.Number
Case Is = 0
FileOrDirExists = True
Case Else
FileOrDirExists = False
End Select
'Riprendi il controllo degli errori
On Error Goto 0
End Function
TestItWithWindows sub ()
'Macro Purpose: To test the FileOrDirExists function with Windows
'Solo incluso per dimostrare la funzione. Non richiesto per l'uso normale!
Dim sPath As String
'Cambiare la directory qui
sPath = "C: \ Test.xls"
'Test se directory o file esiste
Se FileOrDirExists (sPath) allora
MsgBox sPath e "esiste!"
Altro
MsgBox sPath e "non esiste."
Finisci se
End Sub
Sub TestItWithMacintosh ()
'Macro Purpose: To test the FileOrDirExists function with a Macintosh
'Solo incluso per dimostrare la funzione. Non richiesto per l'uso normale!
Dim sPath As String
'Cambiare la directory qui
sPath = "HardDriveName: Documenti: test.doc"
'Test se directory o file esiste
Se FileOrDirExists (sPath) allora
MsgBox sPath e "esiste!"
Altro
MsgBox sPath e "non esiste."
Finisci se
End Sub
2 Aprire Excel e premere il tasto "Alt-F11" per entrare nel Visual Basic Editor.
3 Fai clic su "Inserisci" e poi cliccare su "Modulo".
4 Incollare il codice nel riquadro a destra premendo il tasto "Ctrl" V ".
5 Cambiare "Text.xls" per il nome del file che si sta cercando.
6 Premere il tasto "F5" per eseguire la procedura. La procedura restituirà una finestra pop-up che ti dice se il file esiste.