excel里边用sql执行查询，在线等大神，求你们了

sheg0003

如附件所示，表1是数据源，表2是通过sql语句执行的查询，但是比如日期那一列，斜杠/不能显示，薪资那一列，如果改成6000+300也是不能显示，其他只要是数值就显示正常，很奇怪，我想要全部显示，请各位大神不吝赐教

lss001

zszs.rar (21.68 KB, 下载次数: 2)

2020-2-29 18:40 上传

点击文件名下载附件

Sub 查询()

    Dim i, sql$, Cnn As Object, rs As Object

    Set Cnn =CreateObject("ADODB.Connection")

    Cnn.Open"Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" &ThisWorkbook.FullName _

         & ";ExtendedProperties=""Excel 12.0;HDR=yes;IMEX=1"";"""

    sql = "select * from [sheet1$] where 职位 like '[经理人]%'"

    Set rs = Cnn.Execute(sql)

    ar = Cnn.Execute(sql).GetRows '写入数组

    With Sheet2

        .Cells.Clear

        For i = 0 To rs.Fields.Count - 1

            .Cells(1, i + 1) =rs.Fields(i).Name

        Next

        For i = 0 To UBound(ar)

            For j = 0 To UBound(ar, 2)

                If i = 3 Then k = Format(ar(i,j), "yyyy/m/d") Else k = ar(i, j)

                .Cells(j + 2, i + 1) = k

            Next

        Next

    End With

    Set rn = Range("A1:F" &Cells(Rows.Count, 1).End(3).Row): rn.Select

    ActiveSheet.ListObjects.Add(xlSrcRange, rn,, xlYes).Name = "表1"

    Range("G1").Select

End Sub