Question

请问为什么文件打开出错，提示是否移动或删除。

Sub 审批表填写()
Dim j，i, a, b, s, y
Dim k As Workbook, z As Workbook
Set z = Workbooks.Open("F:\选址报告\新增-扩租教学点审批表\选址审批表填写小程序-17.9.10.xlsx")
Dim w, t, q, r, l As Worksheet
Set k = Workbooks.Open("F:\选址报告\新增-扩租教学点审批表\累计数据库.xlsm")
Set l = k.Worksheets(2)
Set w = z.Worksheets(3)
Set t = z.Worksheets(1)
Set q = z.Worksheets(2)
Set r = z.Worksheets(4)

Answer 1

你文件中的图片太多了，在图片要用得多时你不用全部嵌入，你可以按Ctrl + I导入图片的时候，勾选“链接位图”选项，这样CDR文件就不会很大，做起来速度快，也不会像你这样报错。这是根本解决之道。像你现在遇到这种情况，我们首先会选择忽略，选择忽略后一般就可以打开了，当然也有仍然打不开的或打开了丢图的，那没有办法了，只能重新开始做。

追问

sheet表里没有图，应该是定义错了