Add message to choose file to load [SOLVED]

[brightyoyo]

Hi


I have a macro that will import data from another file into the opened workbook. The only problem is a have to include the path too the file. Is there a way to create a prompt to ask me where the file to import is located. Here a sample of the macro

Dim wb As Workbook

[code]Set wb = ThisWorkbook

[code]Workbooks.Open Filename:="WORKSTATION-48New FolderNew Files

[code]Template.xlsx" '<<<< Change File Name

[code]Columns("B:B").Select

Selection.Copy

wb.Activate[/code]

Range("D1&#34.Select[/code]

Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _[/code]

False, Transpose:=False[/code]


Thank You

 

[Debraj]

Hi Brightyoyo..


I think.. it will be better if you not asked fro msgbox (we called it InputBox and BROWSE option is better in this case..

[pre]

Dim wb As Workbook
Set wb = ThisWorkbook
Filename = Application.GetOpenFilename("Excel Files (*.XLS*), *.XLS*")
If Filename <> False Then
Workbooks.Open Filename
Columns("B:B").Select
Selection.Copy
wb.Activate
Range("D1").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
End If

[/pre]

Regards,

Deb

 

[brightyoyo]

Hi Deb


Works Great, except I had to add an End If.


Thank You for your help

 

[Debraj]

Hi Brightyoyo!


Thanks for the complement.. and glad that you solved it..


Regards,

Deb

 

[SirJB7]

@Debraj Roy

Hi!

Less than 5%... and you're in.

Regards!