当前位置:首页 > 资讯 > 正文内容

excel vba显示:”运行时错误‘3706’应用程序定义或对象定义错误,请高人帮我看下代码?(excel adodb)

2周前 (05-16)资讯21

大家好,今天小编关注到一个比较有意思的话题,就是关于excel adodb的问题,于是小编就整理了1个相关介绍excel adodb的解答,让我们一起看看吧。

  1. excel vba显示:”运行时错误‘3706’应用程序定义或对象定义错误,请高人帮我看下代码?

excel vba显示:”运行时错误‘3706’应用程序定义或对象定义错误,请高人帮我看下代码?

1.打开目标excel,按alt + f11键打开VBE窗口

excel vba显示:”运行时错误‘3706’应用程序定义或对象定义错误,请高人帮我看下代码?(excel adodb)

.选择插入->模块粘贴下面代码到编辑器中

excel vba显示:”运行时错误‘3706’应用程序定义或对象定义错误,请高人帮我看下代码?(excel adodb)

Sub 保留表头拆分数据为若干新工作簿()

Dim arr, d As Object, k, t, i&, lc%, rng As Range, c%

c = Application.InputBox("请输入拆分列号", , 4, , , , , 1)

If c = 0 Then Exit Sub

Application.ScreenUpdating = False

Application.DisplayAlerts = False

arr = [a1].CurrentRegion

lc = UBound(arr, 2)

Set rng = [a1].Resize(, lc)

Set d = CreateObject("scripting.dictionary")

For i = 2 To UBound(arr)

If Not d.Exists(arr(i, c)) Then

Set d(arr(i, c)) = Cells(i, 1).Resize(1, lc)

Else

Set d(arr(i, c)) = Union(d(arr(i, c)), Cells(i, 1).Resize(1, lc))

End If

Next

k = d.Keys

t = d.Items

For i = 0 To d.Count - 1

With Workbooks.Add(xlWBATWorksheet)

rng.Copy .Sheets(1).[a1]

t(i).Copy .Sheets(1).[a2]

.SaveAs Filename:=ThisWorkbook.Path & "\" & k(i) & ".xls"

.Close

End With

Next

Application.DisplayAlerts = True

Application.ScreenUpdating = True

MsgBox "完毕"

到此,以上就是小编对于excel adodb的问题就介绍到这了,希望介绍关于excel adodb的1点解答对大家有用。

分享给朋友:

“excel vba显示:”运行时错误‘3706’应用程序定义或对象定义错误,请高人帮我看下代码?(excel adodb)” 的相关文章

大众途观车身长宽多?(途观L长宽高?)

大众途观车身长宽多?(途观L长宽高?)

大家好,今天小编关注到一个比较有意思的话题,就是关于途观长宽高是多少的问题,于是小编就整理了4个相关介绍途观长宽高是多少的解答,让我们一起看看吧。大众途观车身长宽多?途观L长宽高?途观L多高?suv途观多宽?大众途观车身长宽多?大众途观车身尺寸分别是:长4506mm,宽1809mm、高1685mm。...

请问一方土是多少吨?(长宽高等于多少升?)

请问一方土是多少吨?(长宽高等于多少升?)

大家好,今天小编关注到一个比较有意思的话题,就是关于长宽高多少吨的问题,于是小编就整理了3个相关介绍长宽高多少吨的解答,让我们一起看看吧。请问一方土是多少吨?长宽高等于多少升?2021年货车尺寸标准规定?请问一方土是多少吨?1.1~1.7吨。因为不同的土壤,比重不同。一般含矿物质多而结构差的土壤(如...

ix35和哈弗h6三代尺寸对比?(现代ix35底盘距地面多高?)

ix35和哈弗h6三代尺寸对比?(现代ix35底盘距地面多高?)

大家好,今天小编关注到一个比较有意思的话题,就是关于ix35长宽高多少的问题,于是小编就整理了4个相关介绍ix35长宽高多少的解答,让我们一起看看吧。ix35和哈弗h6三代尺寸对比?现代ix35底盘距地面多高?ix35和xrv哪个大?现代I35车身多长多宽多高?ix35和哈弗h6三代尺寸对比?1 哈...

广汽传祺gs4的车身尺寸是多少?(传祺gs4的长宽高是多少?)

广汽传祺gs4的车身尺寸是多少?(传祺gs4的长宽高是多少?)

大家好,今天小编关注到一个比较有意思的话题,就是关于传祺gs4长宽高是多少的问题,于是小编就整理了4个相关介绍传祺gs4长宽高是多少的解答,让我们一起看看吧。广汽传祺gs4的车身尺寸是多少?传祺gs4的长宽高是多少?传祺长宽高?GS4长宽高多少?广汽传祺gs4的车身尺寸是多少?长宽高(mm)=454...

1m宽度和高度分别多少?(长宽比例怎么计算?)

1m宽度和高度分别多少?(长宽比例怎么计算?)

大家好,今天小编关注到一个比较有意思的话题,就是关于长宽高和是多少的问题,于是小编就整理了5个相关介绍长宽高和是多少的解答,让我们一起看看吧。1m宽度和高度分别多少?长宽比例怎么计算?长方体的长宽高之和怎么算?一平方米等于多少长宽高?书的长宽高各是多少厘米?1m宽度和高度分别多少?以照片4:3为例,...

五菱宏光mini可以多少期还宽

五菱宏光mini可以多少期还宽

最后单击页面空白处,锚点消失即可。word页面宽高比例是多少?Word文档一般默认的是(国际标准)A4纸型,长宽分别为:210X297毫米。当设定的分辨率是72像素/英寸时。大家好,今天小编关注到一个比较有意思的话题,就是关于crx长宽高是多少的问题,于是小编就整理了1个相关介绍crx长宽高是多少的...