求大神指导下标越界的问题

happyjossie · 发表于 2018-8-21 19:57

本帖最后由 happyjossie 于 2018-8-21 20:37 编辑

求大神帮忙看看哪里出问题了
我是想把一个Excel里面某一个sheet里的一列放到另外一张Excel表里某一个sheet里面去，这两个Excel放在同一个文件夹里。
第三行下标越界了，第二行引用的那个Excel是带宏的，不知道和这个有没有关系？
Sub equity()
Set fname = GetObject(ThisWorkbook.Path & "/Accounts.xlsm")
fname.Sheets("arbitrage").Range("J2:J1502").Copy Workbooks("/arbitrage20180815.xlsm").Sheets("asset").Range("F71:F1571")
fname.ActiveWorkbook.Close = True
End Sub

abc123281 · 发表于 2018-8-21 20:14

想要得到答案上传附件

happyjossie · 发表于 2018-8-21 20:38

abc123281 发表于 2018-8-21 20:14
想要得到答案上传附件

上传啦麻烦了！！！

excelvlookup · 发表于 2018-8-21 20:45

arbitrage20180815.xlsm",这个工作簿都没开，如何让它work。它没work，就不是workbook

happyjossie · 发表于 2018-8-21 20:57

excelvlookup 发表于 2018-8-21 20:45
arbitrage20180815.xlsm",这个工作簿都没开，如何让它work。它没work，就不是workbook

我试过把这个excel打开然后运行，也运行不了；另外有没有可以不打开excel就能运行的语句啊？

abc123281 · 发表于 2018-8-21 21:19

看了一下你的附件和代码主要是不明白你想要干什么你的源数据中才有一行数据那复制什么呢

happyjossie · 发表于 2018-8-21 22:01

abc123281 发表于 2018-8-21 21:19
看了一下你的附件和代码主要是不明白你想要干什么你的源数据中才有一行数据那复制什么呢

源数据是会持续更新的，现在是刚刚开始，所以数据很少。我刚刚发现我sheet名称打错了。。。把名字改了以后就可以运行了，非常感谢！！！

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

[求助] 求大神指导 下标越界 的问题

[求助] 求大神指导下标越界的问题