用VB打开一个Excel文件，这个文件名称中包含了单元格的内容？

Question

例如：
A1单元格是“少年”，文件在D盘下，名称是“奔跑吧，少年”
如何利用VB自动打开这个文件。

谢谢~

Answer 1

你可以使用 Visual Basic for Applications (VBA) 来自动打开包含单元格内容的 Excel 文件。下面是一个示例代码，它可以帮助你实现这个目标：
Sub OpenExcelFileWithCellContent()
Dim filePath As String
Dim fileName As String
Dim cellContent As String

' 获取单元格的内容
cellContent = ThisWorkbook.Sheets("Sheet1").Range("A1").Value

' 构建文件名
fileName = "奔跑吧，" & cellContent & ".xlsx" ' 假设文件名以.xlsx为扩展名

' 构建完整的文件路径
filePath = "D:\" & fileName

' 打开Excel文件
Workbooks.Open(filePath)
End Sub

在这个示例代码中，我们首先获取单元格A1的内容，然后使用该内容构建文件名。接下来，将文件路径构建为 "D:\" （假设文件在D盘下）加上文件名，然后使用 Workbooks.Open 方法打开 Excel 文件。
请注意，这个示例代码假设工作簿中的代码正在处理文件名为 "奔跑吧，少年.xlsx" 的 Excel 文件，并且文件路径为 "D:\"。你需要根据实际情况对代码进行修改，确保文件路径和名称与你所需的文件相匹配。
此外，你需要在 VBA 编辑器中的适当模块中插入此代码。通过按下 Alt + F11，可以打开 VBA 编辑器，并在其中的适当位置创建一个模块。将代码复制粘贴到该模块中，然后运行代码即可自动打开 Excel 文件。
请注意，此代码仅适用于使用 Microsoft Excel 并启用 VBA 功能的情况。

Answer 2

您可以使用以下VB代码来自动打开文件：
```vb
Sub OpenFile()
Dim filePath As String
Dim fileName As String

' 设置文件路径和名称
filePath = "D:\"
fileName = "奔跑吧，少年"

' 拼接完整的文件路径
filePath = filePath & fileName

' 打开文件
On Error Resume Next
Workbooks.Open filePath
If Err.Number <> 0 Then
MsgBox "无法打开文件"
End If
On Error GoTo 0
End Sub
```
在上面的代码中，我们首先定义了文件路径和文件名。然后，我们将路径和文件名组合在一起，形成完整的文件路径。最后，我们使用`Workbooks.Open`方法打开文件。如果文件无法打开，将显示一个消息框提示。
您可以将上述代码复制到Excel的VBA编辑器中，然后运行`OpenFile`子程序来打开文件。