vb6.0 制作excel2007加载项过程中遇到单元格区域选择问题，求教！

cunfu2010 · 发表于 2021-12-20 22:18

本帖最后由 cunfu2010 于 2021-12-23 09:31 编辑

在学习制作excel2007加载项过程中，想通过手动选择单元格区域，将相关值赋予数组，遇到如下问题：
Public Sub test1(ByVal control As IRibbonControl)
Set rng = xlApp.InputBox("请选择单元格区域：", "温馨提示", , , , , 8) '弹出选择窗口后，在工作表中可以选择单元格，但选择的结果没有返回，也不报错(不知道什么原因)。
Set rng = Application.InputBox("请输入结果输出单元格:", Type:=8) '弹出选择窗口后，在工作表中选择不了单元格，工作薄没有焦点。
arr = rng
********
End Sub

请教，谢谢！

zhw79 · 发表于 2021-12-21 08:12

本帖最后由 zhw79 于 2021-12-21 08:15 编辑

Application肯定不对，应该是EXCEL对象，Input获得的是文本，你赋值给range对象也不对，再说你InputBox干嘛，，直接先选定后弹出megbox让确认选定范围就可以了

zhw79 · 发表于 2021-12-21 08:40

cunfu2010 · 发表于 2021-12-21 10:26

本帖最后由 cunfu2010 于 2021-12-23 09:30 编辑

zhw79 发表于 2021-12-21 08:12
Application肯定不对，应该是EXCEL对象，Input获得的是文本，你赋值给range对象也不对，再说你InputBox干嘛 ...

谢谢！在Command1_Click中通过代码打开工作薄可以选择，但在加载项中是在已打开的工作薄中选择时，选择不了。用inputbox选择更自由

cunfu2010 · 发表于 2021-12-22 15:40

本帖最后由 cunfu2010 于 2021-12-23 09:31 编辑

问题解决，感谢

		自动登录	找回密码
密码			免费注册

[已解决] vb6.0 制作excel2007加载项过程中遇到单元格区域选择问题，求教！

评分