无Excel、WPS环境下生成、修改xls文件

Private Sub Command1_Click()
    
    On Error Resume Next
    Dim adoConn As New ADODB.Connection
    Dim adoReco As New ADODB.Recordset
    Set adoConn = New ADODB.Connection
    
    adoConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=D:/1.xls;Extended Properties=‘Excel 8.0;HDR=Yes‘"
    Sql = "Num int, Name char(20)"
    adoConn.Execute "Create table [D:/1.xls].Sheet1" & "(" & Sql & ")"
    adoConn.Execute "insert into [sheet1$]  values (999,‘zichu‘)"
    adoConn.Execute "insert into [sheet1$]  values (888,‘jingyi‘)"
    adoConn.Execute "UPDATE [sheet1$]  Set  Name=‘JingYi‘  Where Num=888"
    adoConn.Close
    Set adoConn = Nothing
    
End Sub