Bom dia!!

Tente usar o gravador de macros...

Sub Macro1()
'
' Macro1 Macro
'

'
    With ActiveSheet.QueryTables.Add(Connection:= _
        "TEXT;C:UsersAdministradorDownloadsPETR4_Semanal.csv", Destination:=Range("$A$1"))
        .Name = "PETR4_Semanal"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .TextFilePromptOnRefresh = False
        .TextFilePlatform = 932
        .TextFileStartRow = 1
        .TextFileParseType = xlDelimited
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = False
        .TextFileTabDelimiter = True
        .TextFileSemicolonDelimiter = True
        .TextFileCommaDelimiter = False
        .TextFileSpaceDelimiter = False
        .TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1)
        .TextFileTrailingMinusNumbers = True
        .Refresh BackgroundQuery:=False
    End With
End Sub

Depois adapte ao seu código.
Att

Uma possibilidade adaptado de https://social.msdn.microsoft.com/Forums/office/pt-BR/f865b45e-e1e7-4950-9574-d645ca93f4d5/ao-abrir-um-arquivocsv-no-excel-via-vba-ele-abre-desconfigurado-como-fazer?forum=vbapt

Public Declare Function ShellExecute Lib "Shell32.dll" Alias "ShellExecuteA" _
(ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, _
 ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Const SW_SHOWNORMAL = 1

Sub Abrir_arquivo()
'
' Abrir_arquivo Macro

Dim caminho As String, nome_arquivo As String

caminho = Sheets("Macro").Range("f8").Value
nome_arquivo = Sheets("Macro").Range("f7").Value


On Error Resume Next
    Shell "C:WINDOWSexplorer.exe """ & caminho & "", vbNormalFocus
    'Workbooks.Open Filename:=caminho
     
If Err.Number > 0 Then
Exit Sub
End If

    Windows(nome_arquivo).Activate

End Sub

Reinaldo,

A principio o código deu certo, porém tudo que eu faço depois ele não reconhece a planilha. Pode dar uma olhada?

Veja se atende

Show de bola Reinaldo e Alexandre, ambas as soluções funcionaram.

Muito Obrigado.