VBA如何打开相对路径的csv文件

可以使用以下代码打开相对路径的csv文件：

Sub OpenCsvFile()
    Dim FilePath As String
    
    '设置文件路径为相对路径
    FilePath = ThisWorkbook.Path & "\data.csv"
    
    '打开csv文件
    Workbooks.Open Filename:=FilePath, Format:=xlCSV
End Sub

其中，`ThisWorkbook.Path` 表示当前工作簿所在的文件夹路径，`data.csv` 是相对路径下的csv文件名。通过将这两个路径拼接起来，就可以得到完整的文件路径。然后使用 `Workbooks.Open` 方法打开csv文件，其中 `Format:=xlCSV` 表示告诉Excel这是一个csv文件，以便正确解析其中的数据。