WPS VBA关于COMBOBOX的ROWROURCE问题

windtime

因公司装B，不能再使用OFFICE改用WPS2012专业增强版自带VBA模块,多年累积下来的EXCEL文档需用WPS ET运行,但存在部分兼容问题,网上WPS论坛居然少之又少,放在这里,望有大神出手相助一下.主要是
combobox1的  .RowSource = ws.Name & "!A2:A31"取值失败，
Private Sub UserForm_Initialize()

On Error Resume Next
Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets("sheet2")
With ComboBox1
  .RowSource = ws.Name & "!A2:A31"
   coluncount = 1
  .ColumnHeads = False
  .ControlTipText = "双击获取当前年月"
   End With

With ComboBox2
  .RowSource = ws.Name & "!c2:c23"
   coluncount = 1
  .ColumnHeads = False
End With
Set ws = Nothing
End Sub

编译能通过，但运行是后窗体中的复合框是没有值,但在EXCEL中完全没问题，盼有高手路过!!!

windtime

去掉On Error Resume Next后显示无效属性值

mythqiu

这个很难办,是wps不支持这个属性吗?我已经碰到不支持拼音字段问题了.

你用2016wps专业板试试?

lsc900707

用vba 又想着用wps,等着麻烦一大堆好了，二者本来就不完全兼容的。

windtime

搞好了,用数组
Private Sub UserForm_Initialize()
Dim myArray1 As Variant
On Error Resume Next
Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets("sheet2")
myArray1 = ws.Range("A2:A31").Value
With ComboBox1
  .List = myArray1
   coluncount = 1
  .ColumnHeads = False
  .ControlTipText = "双击获取当前年月"
End With
Set ws = Nothing
End Sub

windtime

mythqiu 发表于 2018-8-4 21:14
这个很难办,是wps不支持这个属性吗?我已经碰到不支持拼音字段问题了.

你用2016wps专业板试试?

是支持，但不能绑定工作表的数据