使用Userform打开指定工作簿：无需手动添加.xlsx后缀的方法问询

嘿，这个需求很好实现！你现在的问题是Workbooks.Open需要完整的文件名（包括后缀），而ComboBox里只有纯数字编号，只要让代码自动给选中的编号补上.xlsx后缀就行。下面给你几个实用方案：

方案1：最直接的写法（一键解决核心问题） #

直接在打开文件的语句里拼接后缀，或者给filename变量补上后缀，两种写法都能达到效果：

Private Sub CommandButton1_Click()
    Dim filename As String
    Dim filepath As String
    
    filename = ComboBox1.Value
    filepath = "D:\e-library\MSC\DIS7000\data\"
    
    ' 自动把编号转换成带.xlsx后缀的完整文件名
    Workbooks.Open (filepath & filename & ".xlsx")
End Sub

这样不管你选的是1还是100，代码都会自动转换成1.xlsx、100.xlsx，直接打开对应的工作簿，完全不用手动添加后缀。

方案2：增加文件存在检查（避免报错更友好） #

如果担心选到不存在的编号导致弹出系统错误提示，可以加个小检查逻辑，文件存在才打开，不存在就给个友好提示：

Private Sub CommandButton1_Click()
    Dim filename As String
    Dim filepath As String
    Dim fullFilePath As String
    
    filename = ComboBox1.Value
    filepath = "D:\e-library\MSC\DIS7000\data\"
    fullFilePath = filepath & filename & ".xlsx"
    
    ' 先检查目标文件是否存在
    If Dir(fullFilePath) <> "" Then
        Workbooks.Open (fullFilePath)
    Else
        MsgBox "抱歉，编号" & filename & "对应的工作簿找不到哦！", vbExclamation
    End If
End Sub

这个版本更健壮，不会因为输错编号就弹一堆生硬的错误提示。

额外福利：让ComboBox自动加载所有可用编号 #

既然你的文件都是按1、2、3...命名的xlsx，不如让ComboBox自动列出所有可用的编号，不用手动输入！把这段代码放到你的用户窗体的Initialize事件里：

Private Sub UserForm_Initialize()
    Dim targetPath As String
    Dim currentFile As String
    
    targetPath = "D:\e-library\MSC\DIS7000\data\"
    ' 遍历文件夹里所有xlsx格式的文件
    currentFile = Dir(targetPath & "*.xlsx")
    
    Do While currentFile <> ""
        ' 提取文件名（去掉最后的.xlsx后缀）
        ComboBox1.AddItem Left(currentFile, Len(currentFile) - 5)
        currentFile = Dir() ' 继续查找下一个文件
    Loop
End Sub

这样打开窗体的时候，ComboBox就会自动把文件夹里所有的编号列出来，直接选择就行，连手动输入编号的步骤都省了！

内容的提问来源于stack exchange，提问作者dejioni