08. november 2013 - 09:26Der er
7 kommentarer og 1 løsning
Makro eller VBA kode der tjekker om csv-fil findes i mappe
Jeg har et Access program som eksporterer en CSV-fil til en given mappe. Efterfølgende skal et økonomisystem importere data fra CSV-filen. Hvis importen lykkedes slettes CSV-filen. Hvis den ikke lykkedes forbliver filen i mappen. Hvis den forbliver i mappen må Access ikke lave en ny eksport. Jeg har behov for en makro eller VBA kode, som fortæller om filen eksisterer i mappen.
Hvis du Googler vba file exists så får du masser at se på, men du også prøve at Google Createobject("Scripting.FileSystemObject").FolderExists da det er den funktion du bør bruge
Til Kabbak: Jeg vil gerne sætte koden ind, som en betingelse i en makro. Det vil sige at hvis filen ikke eksisterer, så skal den ikke køre en forespørgsel, som danner en ny csv-fil. Jeg kan ikke se at jeg kan sætte en VBA-kode ind, som en betingelse i en makro.
Public Function FilExist() As Boolean If Dir("C:\test\data.csv") <> "" Then' fast navn FilExist = True Else FilExist = False End Function
Public Function FilExist(StiOgNavn) As Boolean If Dir(StiOgNavn) <> "" Then' variabelt navn, som kommer med kaldet FilExist = True Else FilExist = False End Function
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.