如何解决VBA 中的 Command_button 与具有指定宏的形状
我正在尝试编写一个脚本,用于从用户表单内的网络中提取数据。我在 Excel (2019) 中使用“从 Web 获取数据”选项。当我手动刷新数据时,甚至当我使用分配了 Autoshape 的宏进行刷新时,数据都会更新。但是,我已经从宏中为我的用户窗体中的 CommandButton 粘贴了相同的代码。我的目的是在单击 CommandButton 时刷新数据。但是当我点击它时,后台查询会继续运行并且不会终止。
这是一个宏的代码(用于刷新数据自动整形)
Sub refresh()
ActiveWorkbook.Connections("Query - stocklist").refresh
End Sub
这是我的用户表单中的代码(用于 REFRESH 和 GET 命令按钮)。 GET 按钮执行一种 Vlookup 并且工作正常。
Private Sub cmd_refresh_Click()
ActiveWorkbook.Connections("Query - stocklist").refresh
End Sub
Private Sub cmd_get_Click()
txt_script.Text = UCase(txt_script.Text)
For Each cell In Range("Table_stock[Symbol]")
'For Each cell In Range("A1:I220")
If cell = txt_script.Value Then
txt_ltp.Value = cell.Offset(0,4)
End If
Next cell
End Sub
有什么建议吗?
附图excel template showing user form and macro button
更清楚版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。