WPS EXCEL中的VBA编程

近日，由于某些原因，公司部分微软office被卸载了，装上了wps。

原本excel中的宏在wps中不能正常使用，没办法，任务落到了从没有接触vba编程的我手中。

我安装了wps2013个人版+vba插件。

1，问题描述

          Set MyPivotTable = MyPivot.PivotTableWizard(SourceType:=xlDatabase, SourceData:=Range("中间表!A1:E1" & count))

         出现错误438 对象不支持该属性或方法

        本来在Excel中是没有问题的

         是不是wps不支持这些属性？

在网上各种寻找答案，无果。个人分析是wps对vba支持不够完善。

没办法，不能用数据透视表，就想办法模拟数据透视表的功能。闹了一天，鉴于本人技术不够，没搞定。

就看原本的数据透视表中都是什么数据，我就

Dim ts As Worksheet
Set ts = Sheets.Add
    
For Each R In Worksheets
    If R.Name = "数据透视表" Then R.Delete
Next
ts.Name = "数据透视表"
   
Sheets("中间表").Select
Columns("A:E").Select
Selection.Copy

Sheets("数据透视表").Select
ActiveSheet.Paste

Range("B:D").Delete

Dim pivCount As Integer
pivCount = Worksheets("数据透视表").Range("A65536").End(xlUp).Row

Columns("A:B").Select
Selection.Copy
ActiveSheet.Paste

就是从其他表中把相同数据放进一张“数据透视表”中。那就没有上述问题了，不过我这个是简单的数据透视表。

要是特别复杂，这方法就不合适了。强烈建议官方完善对vba的支持。

如果有更好的解决方法，也请不吝赐教。

2，问题描述

       Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

       这行代码报错不认识PasteSpecial，我看源代码下面有一行类似代码没有报错，复制过来

      Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False 就一个选择性粘贴，后来我果断注释了。用这个ActiveSheet.Paste好像就没问题了

2，问题描述

         刚把上面的问题解决，新的问题又来了。

         运行结果中总是少了第一行