代码运行不下去，求助大神

韦冬艺 · 发表于 2019-10-19 15:35

可能少了哪些变量定义？

lovemh1987 · 发表于 2019-10-19 15:39

.count 去掉

jiangxiaoyun · 发表于 2019-10-19 15:44

wkb是工作簿吧，你的工作表呢？

kimmyyang · 发表于 2019-10-19 16:45

应该是语法错误，和变量没有关系

changhong8 · 发表于 2019-10-19 16:52

.count改成.row

韦冬艺 · 发表于 2019-10-20 11:39

                        Set wkb = Workbooks.Open(temppath_2)          '打开了另一个工作簿

               m = wkb.Sheets(1).Range("a2").End(xlUp).Row '数表行数
               n = wkb.Sheets(1).Range("a2").End(xlRight).Column '数表列数

            wkb.Sheets(1).Ranges(Cells(2, 1), Cells(m + 1, n)).Copy '复制粘贴到本工作簿
            Workbooks("学习.xlsx").Sheets("汇总数据").Activate
            s = Cells(1, 1).End(xlUp).Row.Count
            Cells(s + 1, 1).Select
            Paste
                  wkb.Activate
                  wkb.Save
                  wkb.Close

还是出错？？

dgenson · 发表于 2019-10-20 11:42

cells前面也要带表名，row.count改成rows.count

韦冬艺 · 发表于 2019-10-20 19:47

dgenson 发表于 2019-10-20 11:42
cells前面也要带表名，row.count改成rows.count

不行，我是想在一个工作簿把另一个文件夹下的所有工作簿里面表给汇总了。
运行到n=。。。。就弹出错误。

cells前面也要加表名是什么意思呢？

Yalishanda30 · 发表于 2019-10-20 19:53

wkb.工作表名.range才行

999110022 · 发表于 2019-10-20 20:12

取列数的那个end里面不是应该xltoright吗？
另外总感觉有点怪怪的，一般说来想找最右边的有数据的单元格边界的话不是要从很靠右的单元格开始向左来查找吗？

		自动登录	找回密码
密码			免费注册

[求助] 代码运行不下去，求助大神

最新热点 /1