VBA运行提示服务器不可用

一一plus

这是源代码



Sub 提取姓名和电话()
    Dim i As Integer
    Dim wpsApp As Object
    Dim wpsDoc As Object
    Dim wpsTbl As Object
    Dim wpsCell As Object
    Dim wpsRng As Object
    Dim filePath As String
    Dim name As String
    Dim phone As String

    ' 创建WPS应用程序对象
    Set wpsApp = CreateObject("KWPS.Application")
    wpsApp.Visible = False

    ' 遍历366份文档
    For i = 1 To 366
        filePath = "F:\个人用\jacn" & "简历" & i & ".docx"
        Set wpsDoc = wpsApp.Documents.Open(filePath)
        Set wpsTbl = wpsDoc.Tables(1)

        ' 提取姓名和电话信息
        name = wpsTbl.Cell(2, 2).Range.Text
        phone = wpsTbl.Cell(3, 2).Range.Text

        ' 关闭文档
        wpsDoc.Close SaveChanges:=False

        ' 输出结果
        Debug.Print "简历" & i & ": " & name & " - " & phone
    Next i

    ' 退出WPS应用程序
    wpsApp.Quit
    Set wpsApp = Nothing
End Sub


请大神帮忙看下如何修改

zpy2

  ' 遍历366份文档

是不是文件太多，内存溢出来了？