试试
1、如果同步数据不需要显示文档，去掉App.visible = True
2、关闭并正确退出文档
……
DataTables(TableN).Save
Forms("CellKanban").Controls("Label_Time").Text = "最后更新:" & Format(Date.Now, "G")
'MessageBox.Show("导入成功!", "恭喜!")
Wb.close
app.quit Catch ex As exception
app.quit msgbox(ex.message)
MessageBox.Show("出现问题的行:" & i & ",对应的列名为:" & cn)
MessageBox.Show("导入失败!", "恭喜!")
End Try
End If
3、保存后把表格数据清空
DataTables(TableN).save
DataTables(TableN).loadfilter = "1=2"
DataTables(TableN).load
-----------------
如果还不行，考虑Wb.RefreshAll之后把文档另存为没有格式的文档，然后使用XLS.Book读取
加好友 
发短信
Post By：2023/8/16 10:33:00 [显示全部帖子]
