求教各位WPS中如何用VAB只是把表格合并格式如下？

limonet

Sub limonet()
    Dim Cn As Object, StrSQL$, Sht As Worksheet
    Set Cn = CreateObject("Adodb.Connection")
    Cn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties=Excel 12.0;Data Source=" & ThisWorkbook.FullName
    For Each Sht In Worksheets
        If Sht.Name <> "Sheet1" Then
            StrSQL = StrSQL & " Union All Select '" & Sht.[f3] & "' as 日期,'" & Sht.[f2] & "' as 单号,'" & Sht.[b2] _
            & "' as 客户名,编号,单价,数量,金额 From [" & Sht.Name & "$A6:G] Where 编号 like '%'+'[1-9]'+'%'"
        End If
    Next Sht
    Range("A2").CopyFromRecordset Cn.Execute(Mid(StrSQL, 12))
End Sub