Ricerca di un file ".xls"

Question

Dopo vari tentativi andati a vuoto ho capito che la mia versione di Excel non include il FileSearch. La ricerca ,nel mio caso, è importante. In fase di creazione di un file (con InputBox) vorrei controllarne l'esistenza evitando il messaggio di Excel di eventuale sovrascrittura dello stesso. Non dare la possibilità di  rispondere  Si  dato probabilmente in modo incauto.

Risolvere questo problema senza l'ausilio di FS non ci riesco. Potreste aiutarmi?  Un saluto a tutti

Answer 1

Non ho capito.

Dir legge i files della path che indichi. Il mio esempio era poco chiaro... scusa, la fretta.

 If Dir("C:\txt.xls") <> "" Then

Avrebbe dovuto essere:

 If Dir("C:*Prova*\txt.xls") <> "" Then

In quanto salvare direttamente in C: .....

Dove Prova va modificato con la cartella/directory nella quale cercare.

Answer 2

Grazie per la precisazione.

Answer 3

Grazie per la risposta.

Devo solamente scegliere quale dei 2 codici adottare. Sono più orientato  per la lettura del FileSystem.

Non avendo mai usato la funzione Dir ho voluto provarla a modo mio:

Sub Elencafile()

   e=Dir("C." & "*.xls")

           While  e <>""

                     z=z+1

                    cells(z,1)=e

              e=Dir

            Wend

End Sub

 il risultato è : mi legge il primo file  dell'ultima sottodirectory di C  e null'altro. Pensavo di leggere tutti il file .xls

E' proprio giusto così ?

Alla prossima e grazie ancora.

Answer 4

Due modi per sostituire FileSearch:

Public Sub m()

If Dir("C:\txt.xls") <> "" Then

MsgBox "Il file esiste."

Else

MsgBox "Il file non esiste."

End If

End Sub

Oppure:

Private Sub m()

Dim objFSO As Object

Dim objFileExists As Object

On Error GoTo RigaErrore

Set objFSO = CreateObject("Scripting.FileSystemObject")

If objFSO.FileExists("C:\mioFile.xls") Then

MsgBox "Il file esiste."

Else

MsgBox "Il file non esiste."

End If

RigaChiusura:

Set objFSO = Nothing

Exit Sub

RigaErrore:

MsgBox Err.Number & vbNewLine & Err.Description

Resume RigaChiusura

End Sub