Macro to change Directory to C:\Downloads

[howard]

I have the folowing macro to open a CSV file and clear data in specific columns

The worbook that the macro resides in is in folder C:\My Documents


It would be appreciated if my code can be amended so that folder C:\Downloads is selected as the the CSV file has been downloaded in this folder

 Sub Open_911810_CSV()
Dim ws As Worksheet, File As String
File = Dir(ThisWorkbook.Path & "\*911810*.csv")
Set ws = Workbooks.Open(File).ActiveSheet
ActiveSheet.UsedRange.Columns("A:D").Offset(1).Clear
End Sub

Your assistance in this regard is most appreciated

 

[HongRu]

HTH

Sub Open_911810_CSV()
    Dim ws As Workbook, File As String
    File = Dir("E:\Downloads" & "\*911810*.csv")
    Set ws = Workbooks.Open("E:\Downloads\" & File)
    ActiveSheet.UsedRange.Columns("A:D").Offset(1).Clear
End Sub

 

[howard]

Many Thanks For the help

 

[HongRu]

I believe you will prefer this code.
Note that the code below will change your files "*911810*.csv" permanently.
You may backup files before running the macro.

Sub Open_911810_CSV()
    Dim ws As Workbook, File As String
    File = Dir("C:\Downloads" & "\*911810*.csv")
    Do
        Set ws = Workbooks.Open("C:\Downloads\" & File)
        ActiveSheet.UsedRange.Columns("A:D").Offset(1).Clear
        ws.Close True
        File = Dir()
    Loop Until File = ""
End Sub

 

[howard]

Thanks for the updated Code