如何允许将多行输入输入到VBA InputBox中？
如何允许将多行输入输入到VBA InputBox中？
提问于 2019-05-06 20:05:47
我正在处理一个宏，它允许我将SQL查询键入(或者更有可能是粘贴)到InputBox中，在单击"OK“时，它将返回对数据库的查询结果。问题是，默认情况下，VBA只接受一行文本，并且为了可读性，SQL代码以更结构化的多行格式编写。当我尝试将SQL代码粘贴到InputBox中时，除第一行文本外的所有文本都被截断。我的下一个想法是读取剪贴板的内容，并在显示InputBox并提示我输入查询之前用空格替换任何换行符，但显然这对我正在键入而不是粘贴的查询没有帮助。任何帮助都将不胜感激！
回答 1
Stack Overflow用户
回答已采纳
发布于 2019-05-06 20:19:45
我不相信你可以在InputBox中做到这一点。InputBoxes通常用于小输入，如数字或单词。此外，在输入InputBox时输入enter会提交它，所以如果您可以添加多行，这将是令人困惑的。
您可以做的是创建一个新的UserForm，并添加一个MultiLine字段设置为True的TextBox。然后，只需添加一个关闭窗体的“确定”按钮，然后让您的宏从TextBox中读取。
作为另一种选择，这里有一个我用来获取当前用户剪贴板上的文本的函数。因此，您可以在运行需要在其中使用的任何宏之前复制查询。
Function copyFromClipboard() As String
Dim clipboard As MSForms.DataObject
Set clipboard = New MSForms.DataObject
clipboard.GetFromClipboard
copyFromClipboard = clipboard.getText
End Function它需要引用Microsoft Forms 2.0 Object Library
页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/56004864
复制相关文章
相似问题
腾讯云开发者
