求教！之前运行没问题的代码今天突然报错了。

laimanwah

崩溃了。写了一段代码，将工作簿A的sheet1中数据转换录入到新生成的工作簿B的sheet1，然后将工作簿A的sheet2和sheet3依次复制到工作簿B的sheet2和sheet3，用的是【sh2.Copy after:=newbook.Sheets("表单")】，从开始编写到后续调试到完成编写都是同一部电脑，用的版本是office2021，之前一直没有问题，今天突然拿起来用，用的还是这一部电脑，运行的时候就弹出以下窗口：


但是，拿到另外一部电脑运行，就没有这个问题，顺利运行，请教各位大神我的电脑出了啥问题啊哭啊


补充一下代码，代码太长，删减了不不相关部分：


Sub ConvertToForm()

Application.ScreenUpdating = False
Dim wkbname, shtname
Dim sh1, sh2 As Worksheet
wkbname = ThisWorkbook.Name
shtname = ActiveSheet.Name
Set sh1 = Workbooks(wkbname).Sheets("填写说明")
Set sh2 = Workbooks(wkbname).Sheets("货物属性")

Dim rows As Integer '待转换页面最大行数rows
Dim category, NextCategory, TradeType As String
Dim VariablePart, newWorkbookName As String
Dim pc, pjname, cn, rl, et, kp, ei, um, dID, sr, remark, pt As String  '表单内变量
Dim dateandtime As String
Dim i, j, k As Integer '循环参数
VariablePart = ""
dateandtime = Format(Now(), "yyyymmddhhmm")

'确定待转换数据范围
'待转换行范围：2至rows；待转换列范围：2至6
rows = Workbooks(wkbname).Sheets(shtname).Range("A65536").End(xlUp).row

For i = 2 To rows
    '读取每行信息
    '.Value-单元格的数字内容；.Text-文本内容；.Formula-最原本的输入内容
    category = Workbooks(wkbname).Sheets(shtname).Cells(i, 2).Value 'category[i,1]食品种类
      
    '循环到新的食品种类时，新建一个表单
    If category <> VariablePart Then
    TradeType = Workbooks(wkbname).Sheets(shtname).Cells(i, 6).Value '[i,5]贸易类型
    j = 9
    k = k + 1
    VariablePart = category
    newWorkbookName = "2024年" + TradeType + "表单（" + VariablePart + "）"

    Set newbook = Workbooks.Add
    newbook.SaveAs Filename:=Workbooks(wkbname).Path & "\" & Str(k) & "." & newWorkbookName & dateandtime & ".xlsx" '
    newbook.Sheets("sheet1").Select
    newbook.Sheets("sheet1").Name = "表单"
   
    '复制sheets("填写说明")和sheets("货物属性")到sheets("表单")之后
    '添加顺序：从后往前依次添加在sheets("表单")之后
    sh2.Copy after:=newbook.Sheets("表单")
    sh1.Copy after:=newbook.Sheets("表单")
    End If
Next

End Sub

liulang0808

看看excel文件扩展名是不是一样的，不是不是版本不同导致的
没有附件只能猜一下了

ynzsvt

我估计是你电脑新安装了2003的office，以至于代码新建的工作簿是2003版本的，然后行列数就不够用了。

tdpzby

我觉得这提示的很清楚了吧

laimanwah

liulang0808 发表于 2024-10-16 07:41
看看excel文件扩展名是不是一样的，不是不是版本不同导致的
没有附件只能猜一下了

一直都是用同一个电脑同一个版本的运行的，之前都运行得好好的。昨天突然报错。换一个电脑就没有问题。工作簿A是.xlsm，工作簿B是工作簿A的宏生成的.xlsx。所以我猜是不是office自动更新的问题。

autohotey

你是不是把带宏的工作表插入过去？那样肯定会报错的，文件格式不同

marchwen01

贴出代码或者附文件上来，或许能更快获得帮助。

laimanwah

autohotey 发表于 2024-10-16 09:23
你是不是把带宏的工作表插入过去？那样肯定会报错的，文件格式不同

复制的两个工作表都是纯文字输入的，不带宏，就是昨天突然报错，以前都没问题。

laimanwah

liulang0808 发表于 2024-10-16 07:41
看看excel文件扩展名是不是一样的，不是不是版本不同导致的
没有附件只能猜一下了

补充了代码，麻烦大神再帮忙看看。