How to use GetOpenFileName

[APML]

Hi All, just hoping someone can help. I pretty simple when it comes to vba, i generally look online a find the code and adjust to make it work. I'm trying to use GetOpenFile.
I'm hoping to open a box with all csv file from a specific folder but atm I'm unable to workout how to do that..(the specific folder part)
So far this is what I've done, it works, but hoping to get can help on how I adapt so it only opens a specific folder holding numerous csv files. The folder name is CSV_ALL

Sub Get_Data_From_File()
Dim FileToOpen As Variant
Dim OpenBook As Workbook
    FileToOpen = Application.GetOpenFilename(Title:="Browse for your File & Import Range", FileFilter:="Excel Files (*.csv*),*csv*")
    If FileToOpen <> False Then
        Set OpenBook = Application.Workbooks.Open(FileToOpen)
        OpenBook.Sheets(1).Range("A1:g785").Copy
        ThisWorkbook.Worksheets("Red").Range("A3").PasteSpecial xlPasteValues
        OpenBook.Close False
    End If
    Application.ScreenUpdating = True
End Sub

 

[rlv01]

What is the full path of the specific folder?

 

[APML]

What is the full path of the specific folder?

it's
C:\CSV_ALL

 

[rlv01]

Perhaps this:

Sub Get_Data_From_File()
    Dim FileToOpen As Variant
    Dim OpenBook As Workbook
    Dim FolderPath As String
   
    FolderPath = "C:\CSV_ALL"
    VBA.ChDir FolderPath
   
    FileToOpen = Application.GetOpenFilename(Title:="Browse for your File & Import Range", FileFilter:="Excel Files (*.csv*),*csv*")
    If FileToOpen <> False Then
        Set OpenBook = Application.Workbooks.Open(FileToOpen)
        OpenBook.Sheets(1).Range("A1:g785").Copy
        ThisWorkbook.Worksheets("Red").Range("A3").PasteSpecial xlPasteValues
        OpenBook.Close False
    End If
    Application.ScreenUpdating = True
End Sub

 

[APML]

Hey WOW. Thanks, works great.
I did get a popup message that says:

"There is a large amount of information on the Clipboard. Do you want to be able to paste this information into another program later?
to save it on the clipboard so that you can paste later, click Yes
to delete it from the clipboard and free memory click No

I don't need the info on the clipboard so I clicked No, just wonder if there is a setting to get rid of that message (I would never need to save the data to the clipboard)

 

[johnnyL]

Try replacing:

        OpenBook.Close False

with:

    Application.DisplayAlerts = False
    OpenBook.Close False
    Application.DisplayAlerts = True

 

[Fluff]

You could also add this line, which should clear the clipboard.

ThisWorkbook.Worksheets("Red").Range("A3").PasteSpecial xlPasteValues
Application.CutCopyMode = False
OpenBook.Close False

 

[APML]

You could also add this line, which should clear the clipboard.

ThisWorkbook.Worksheets("Red").Range("A3").PasteSpecial xlPasteValues
Application.CutCopyMode = False
OpenBook.Close False

Works great, thx for your help

 

[Fluff]

Glad we could help & thanks for the feedback.