[Access] Transfer Text in macro zonder statische filenaam

[Zerveza]

Ik krijg uit ons systeem iedere dag een CSV bestand, dit bestand heeft iedere dag een andere naam. Nu wil ik die file via een macro importeren. Dat kan gemakkelijk via een transfer text, hier moet echter een statische locatie en filename gegeven worden... ik zou graag een pop-up krijgen of zoiets dergelijks waarmee ik de file kan selecteren.

is dat mogelijk?

[BtM909]

Tuurlijk kan dat. Er zijn filebrowse mogelijkheden

[CoRrRan]

Visual Basic:

Dim Filt As String, InputFile as String

Filt = "Text Files (*.txt),*.txt,All Files (*.*),*.*"

InputFile = Application.GetOpenFilename(Filt, 1, _
              "Select a text file for input")

If InputFile = "False" Then
  MsgBox "No file selected"
  Exit Sub
End If

Misschien kun je hier iets mee? Zoals je ziet kun je nu variable "InputFile" gebruiken in je VBA code. "InputFile" bevat het pad + filename.

Ik heb dit voorbeeld uit een macro van mezelf genomen. De code start als je op een knop drukt die op een UserForm staat. (Soort 'browse' knop.)

[Zerveza]

als ik die code hang onder een knop geeft ie een foutmelding op GetOpenFilename.. hij zegt dan "Compile error: Method or data memeber not found"

[CoRrRan]

Zerveza schreef op maandag 18 juli 2005 @ 15:41:
als ik die code hang onder een knop geeft ie een foutmelding op GetOpenFilename.. hij zegt dan "Compile error: Method or data memeber not found"

Ik zie dat Access de "GetOpenFilename"-method niet kent, daarom geeft Access deze error. Je zult het dan op een andere manier moeten oplossen.

Misschien kun je dan beter de volgende link volgen en die code gebruiken:
http://www.mvps.org/access/api/api0001.htm

OF (maar dit is eigenlijk niet echt heel netjes, maar werkt wel als je de enige bent die het gebruikt...)

Ga in de Access VBE naar "Tools" --> "References" en selecteer of "Microsoft Excel [xx] Object Library" of een andere referentie die wel in de Excel VBE aanstaat, maar niet in de Access VBE. Dan ZOU het wel moeten werken... Je geeft dan Access VBE toegang tot de Excel Object Library, waar "GetOpenFilename" ook in zit (als het die referentie is).

_{[xx] = Excel/Office versie (voor 2003: [xx] = 11.0)}

[ Voor 36% gewijzigd door CoRrRan op 18-07-2005 16:11 ]

[Zerveza]

CoRrRan schreef op maandag 18 juli 2005 @ 16:06:
[...]
Misschien kun je dan beter de volgende link volgen en die code gebruiken:
http://www.mvps.org/access/api/api0001.htm

en alle DoCmd`s die ik ingedachte had werken.. ik begin dat VBA te snappen!

[ Voor 29% gewijzigd door Zerveza op 18-07-2005 17:25 ]