VBA编写，打开CSV文档

VBA 程序可以使用下面的代码打开 CSV 文件：

Sub OpenCSVFile()
    Dim strFileName As String
    strFileName = Application.GetOpenFilename("CSV Files (*.csv), *.csv", 1, "选择 CSV 文件", "打开", False)
    If strFileName = "False" Then Exit Sub
    Workbooks.OpenText Filename:=strFileName, DataType:=xlDelimited, Comma:=True
End Sub

在代码中，`Application.GetOpenFilename` 方法用于弹出文件选择对话框，让用户选择要打开的 CSV 文件。如果用户取消了选择，该方法会返回字符串 "False"，此时代码就会退出。

如果用户选择了文件，该代码使用 `Workbooks.OpenText` 方法打开该文件。该方法的参数 `Filename` 设置为用户选择的文件路径，`DataType` 设置为 `xlDelimited`（表示数据以分隔符分隔），`Comma` 设置为 `True`（表示数据分隔符为逗号）。