[问题] 求教提取office的Excel数据和wps数据的写法 [复制链接]

做了个程序，提取Excel成功，但是现在电脑大部分都是wps，或者两个都有，请问怎么把下面代码改成能提起wps的格式，这样设置两个按钮，一个去提取Excel，一个提取wps

下面是跑通的提取Excel的代码
Event Form1.Button1.Click
Set hy = CreateObject("wmbc.hy")
Excel = Form1.BrowseBox2.Path
MessageBox "确定EXCEL内容跟路径，无误再点确定"
On Error Resume Next ' 开启错误捕获
For i = 0 To 1000
' 读取Excel行数据
cs = hy.ExcelReadRow(Excel, 0, i)

' 检查是否读取失败
If Err.Number <> 0 Then
Err.Clear
Exit For
End If

' 验证数组有效性
If Not IsArray(cs) Or UBound(cs) < 0 Then
Exit For
End If

' 判断终止条件
If cs(0) = "结束" Then
Exit For
End If

' 安全拼接内容（自动处理列数不足）
内容 = ""
For j = 0 To 10
If j <= UBound(cs) Then
内容 = 内容 & cs(j)
Else
内容 = 内容 & "" ' 补充空值
End If
If j < 10 Then
内容 = 内容 & "----"
End If
Next

' 添加至列表
Form1.ListBox1.AddItem 内容
Next
End Event