从word文档中提取表格，能运行但总是漏表，提取的表格不全，有空白sheet

寒伧

麻烦大神帮忙看下，到底是哪里的问题，同一个word文档，每次提取都会有漏表的情况，不是固定漏掉某一张表，随机的


选择word文件代码：

Private Sub CommandButton1_Click()
Set FileDialogObject = Application.FileDialog(msoFileDialogFilePicker)
With FileDialogObject
    .Title = "请选择文件"
    .InitialFileName = "D:\"
    .AllowMultiSelect = False
    .Filters.Clear
    .Filters.Add "Word文件", "*.doc;*.docx"
    .Show   
End With
Set Paths = FileDialogObject.SelectedItems
TextBox1.Text = Paths(1)
End Sub

提取word表格代码：

Private Sub CommandButton3_Click()
Dim wdcx As Object
Dim wd As Object
Set wdcx = CreateObject("word.application")
Set wd = wdcx.Documents.Open(TextBox1.Text)
Workbooks.Add
ActiveWorkbook.SaveAs Filename:="提取表格"
        For Each tb In wb.tables
                i = i + 1
                Sheets.Add After:=Sheets(Sheets.Count)
                Sheets(Sheets.Count).Name = i
                tb.Range.Copy
                Sheets(Sheets.Count).Paste
       Next
End Sub

寒伧

For Each tb In wb.tables，这里是wd.tables 打错了

182197315

单单从代码看不出问题

smiletwo

           ……

寒伧

182197315 发表于 2022-11-21 13:18
单单从代码看不出问题

哪有没有可能是文档中table太多了，需要加sleep或者wait？