[求助] 对象变量或with块变量未设置怎么解决

lsc900707

xtzxf0011 发表于 2018-8-17 10:03
不知出了什么问题，下面是附件！

参考附件：

xtzxf0011

原代码也是书上提供的，逻辑看没有什么问题，大神能研究一下吗？

xtzxf0011

而且，下面这段也没读懂
x = d.keys '把名字按先来后到顺序放到一维数组x中
    For k = 0 To UBound(x)
        Set sht = ActiveWorkbook.Sheets.Add(, after:=ActiveSheet)
        sht.Name = x(k)
        d.items()(k).Copy sht.[a2]
        rng.Copy sht.[a1]
    Next
    Application.ScreenUpdating = True
    MsgBox Format(Timer - tms, "拆分完成，共耗时：0.00秒")

xtzxf0011

版主能解释一下就好了

xtzxf0011

还有6楼程序不知有什么问题