Select a file instead of selecting the file's destination folder

[dedark05]

Hi Everyone,

Please bare with me because i'm not an expert in VBA, the existing code here were made by the help of some people here and in other excel forums.

https://www.dropbox.com/s/bth84jl5pi9u76c/Mainfile.xlsm?dl=0 <--this is the excel file with the details of what I wanted to change) and the sample *.txt file that I want to paste in the excel --> https://www.dropbox.com/s/i4ch43ztsmmrd7v/Sample%20txt.txt?dl=0

if you dont have dropbox account, just click on the "No thanks, continue to view →" to view the file/ and you can download it also

I want to change the vba code in which instead of selecting the destination folder of the file I want when I press the button, It will select directly the file. The file in in txt format.

I hope someone can help me with this also.

Thank you,
Dean

 

[MrIfOnly]

Hi Dean:

You should be able to do this by changing

.FileDialog(msoFileDialogFolderPicker).SelectedItems(1)

to

.FileDialog(msoFileDialogFilePicker).SelectedItems(1)

Regards,

CJ

 

[MrIfOnly]

Correction to my previous post:

Change

.FileDialog(msoFileDialogFolderPicker).Show<strike></strike>

to

.FileDialog(msoFileDialogFilePicker).Show<strike></strike>

You can then assign a variable the value of .FileDialog(msoFileDialogFilePicker).SelectedItems(1)<strike></strike>

Regards,

CJ

 

[dedark05]

Hi Dean:

You should be able to do this by changing

.FileDialog(msoFileDialogFolderPicker).SelectedItems(1)

to

.FileDialog(msoFileDialogFilePicker).SelectedItems(1)

Regards,

CJ

Tried that but it gives an error and will yellow highlight this code

For Each file In fso.getfolder(dataFolderPath).Files

 

[MrIfOnly]

Isn't that code for extracting the one .txt file from the folder? If you use filepicker to have the user select the file then you shouldn't need to do that at all, so it seems to me that you can eliminate it and just have the line: Call ImportTextFile(file, WS_CollectData).

Regards,

CJ