[已解决]代码运行错误

浅笑丶红尘

代码运行错误，显示438或者424，无对象，
求高手审核一下：
1、数据源为系统导出，应该能只能选择文件直接VBA生成
2、生成后直接A4打印，不需要调整大小格式

Sub RemoveAllFormulas()
    ' 获取桌面路径
    Dim desktopPath As String
    desktopPath = CreateObject("WScript.Shell").SpecialFolders("Desktop")
   
    ' 获取要遍历的文件夹路径
    Dim folderPath As String
    folderPath = desktopPath & "\导出的文件名字\"

最佳答案

月排行榜 / 总排行榜

vitrel

2023-4-3 09:16

楼主，您好！
您的代码里有4处比较明显的错误，只要将：
ar = .[al].CurrentRegion
If InStr(Sheet.Mame, "汇总") Then Sheet.Delete
Sheets("华帝物流模板").Rows("24").Copy .Cells(x + 5, 1)
MsgBox "数据分类汇总完毕! 详见工作表:" & vbCrLf & Join((dkeys), vbCrLf)
分别更正为：
ar = .[a1].CurrentRegion
If InStr(Sheet.Name, "汇总") Then Sheet.Delete
Sheets("物流模板").Rows(12).Copy .Cells(x + 5, 1)
MsgBox "数据分类汇总完毕! 详见工作表:" & vbCrLf & Join(d.keys, vbCrLf)
更正后，代码便能正常运行。

跳转到最佳答案楼层

vitrel

楼主，您好！
您的代码里有4处比较明显的错误，只要将：
ar = .[al].CurrentRegion
If InStr(Sheet.Mame, "汇总") Then Sheet.Delete
Sheets("华帝物流模板").Rows("24").Copy .Cells(x + 5, 1)
MsgBox "数据分类汇总完毕! 详见工作表:" & vbCrLf & Join((dkeys), vbCrLf)
分别更正为：
ar = .[a1].CurrentRegion
If InStr(Sheet.Name, "汇总") Then Sheet.Delete
Sheets("物流模板").Rows(12).Copy .Cells(x + 5, 1)
MsgBox "数据分类汇总完毕! 详见工作表:" & vbCrLf & Join(d.keys, vbCrLf)
更正后，代码便能正常运行。

浅笑丶红尘

vitrel 发表于 2023-4-3 09:16
楼主，您好！
您的代码里有4处比较明显的错误，只要将：
ar = .[al].CurrentRegion

序号又不连贯了，这个是什么原因呢

vitrel

浅笑丶红尘 发表于 2023-4-3 16:42
序号又不连贯了，这个是什么原因呢

楼主，我改了一下，
请自行核对结果。