Etapcharterlease.com

Come determinare se esiste un File in Excel VBA

Come determinare se esiste un File in Excel VBA

Visual Basic for Applications (VBA) è un sottoinsieme di Visual Basic che viene utilizzato per adattare i programmi di Microsoft Office in base alle esigenze. Quando si scrive in un file in VBA, è buona norma assicurarsi che quel particolare file esista prima di tentare di scrivere in esso. Se si desidera trovare se esiste un file in Excel, è necessario compilare un modulo VBA che fa il trucco. Per poter utilizzare questa funzione, si dovrebbe avere qualche precedente esperienza con la programmazione di VB.

Istruzioni

• Copiare il codice riportato di seguito: opzione funzione esplicita FileOrDirExists(PathName As String) As Boolean ' Macro scopo: funzione restituisce TRUE se il file specificato ' o cartella esiste, false se non. ' PathName: supporta Windows mappata unità o UNC ': percorsi supporta Macintosh ' l'utilizzo dei File: fornire il percorso completo del file e l'estensione ' utilizzo della cartella: fornire il percorso completo della cartella 'Accetta con/senza finale "\" (Windows)' accetta con/senza finali ":" (Macintosh) Dim iTemp As Integer ' ignorare gli errori per consentire per errore valutazione On Error Resume Next iTemp = GetAttr(PathName) ' verifica se l'errore esiste e impostata adeguatamente la risposta Select Case Err. Number è = 0 FileOrDirExists = True Case Else FileOrDirExists = False End Select ' errore curriculum controllo On Error Goto 0 fine funzione Sub TestItWithWindows() ' obiettivo Macro: per testare la funzione di FileOrDirExists con Windows ' incluso solo per dimostrare la funzione. NON è richiesto per uso normale! Dim sPath As String ' cambiare la directory qui sPath = "C:\Test.xls" ' verificare se un file o directory esiste se FileOrDirExists(sPath) Then MsgBox sPath & "esiste!" Else MsgBox sPath & "non esiste." Fine se End Sub Sub TestItWithMacintosh() ' obiettivo Macro: per testare la funzione di FileOrDirExists con un Macintosh ' incluso solo per dimostrare la funzione. NON è richiesto per uso normale! Dim sPath As String ' cambiare la directory qui sPath = "HardDriveName:Documents:Test.doc" ' verificare se un file o directory esiste se FileOrDirExists(sPath) Then MsgBox sPath & "esiste!" Else MsgBox sPath & "non esiste." End If End Sub

• Aprire Excel e premere "Alt-F11" per inserire l'Editor di Visual Basic.

• Fare clic su "Inserisci" e quindi fare clic su "Modulo".

• Incollare il codice nel riquadro a destra premendo "Ctrl-" V".

• Cambiamento "text. xls" al nome del file che stai cercando.

• Premere "F5" per eseguire la procedura. La procedura restituirà una finestra popup che ti dice se il file esiste.