VBA中InputBox显示超6个工作簿列表失效原因及解决

嘿，问题根源已经揪出来啦——就是InputBox的255字符上限在搞鬼！

你写的这段VBA代码，本来是要遍历已打开的工作簿生成选择列表，再通过InputBox让用户选目标工作簿来复制数据。但当打开的工作簿数量超过6个时，拼接出来的列表文本总长度会突破InputBox允许的255字符上限，直接导致列表功能失效；而工作簿数量少于7个时总字符数没超限，所以能正常运行。

你的代码如下：

For Each aWb In Application.Workbooks
    aCounter = aCounter + 1
    aListOfWbs = aListOfWbs & aCounter & " - " & aWb.Name & vbCrLf
    If aWb.Name = ActiveWorkbook.Name Then
        aSelect_default = aCounter
    Next
aSelect_OG = Application.InputBox("Take data from workbook nr:" & _
vbCrLf & _
aListOfWbs & _
vbCrLf, "2 tools, 1 record", 1) ', , "", Type:=2)

替代方案（彻底避开字符限制） #

既然InputBox的字符上限没法突破，咱们换个更稳妥的方式实现工作簿选择就行：比如做个简单的UserForm，用ListBox控件来展示所有已打开的工作簿，既没有字符长度限制，用户操作起来也更直观。

大概的实现思路：

• 插入一个UserForm，添加ListBox和确认按钮控件
• 在UserForm的初始化事件里，遍历所有已打开的工作簿，把名称添加到ListBox中
• 用户选择后点击确认按钮，获取选中的工作簿索引，再执行后续的数据复制逻辑

这样不管打开多少个工作簿，选择列表都能正常工作啦！

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