下标越界的问题

一掷乾坤

Sub Workbook_Open()
    Workbooks.Open Filename:="\\192.25.62.202\业务处理中心共享\排班表\业务处理团队排班表", ReadOnly:=True
    Worksheets("值班").Activate
    Range("A1").Select
    Selection.Copy
    Range("A9").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlPasteSpecialOperationNone, SkipBlanks:=False, Transpose:=False
End Sub

为什么这段代码放到模块里面手动运行就可以，放到打开表格自动运行，Worksheets("值班").Activate这里会报下标越界，要怎么解决。
顺便问一下，怎么把A1的数据放到剪贴板，贴到qq的时候不会是图片的形式而是文本的形式。

我做了个附件，两个文件都放桌面，然后打开新建XLSX 工作表 (3)

WANT-T

下标越界，说明thisworkbook下没有这个工作表，

一掷乾坤

WANT-T 发表于 2023-3-15 10:37
下标越界，说明thisworkbook下没有这个工作表，

业务处理团队排班表，这张表有，是不是自动运行，不能激活其他工作簿中的表格？

HSIAOQIANG

一掷乾坤 发表于 2023-3-15 10:38
业务处理团队排班表，这张表有，是不是自动运行，不能激活其他工作簿中的表格？

下標越界ejqui沒有這個工作表或者工作表名稱不一致,你看看是不是有空格

HSIAOQIANG

一掷乾坤 发表于 2023-3-15 10:38
业务处理团队排班表，这张表有，是不是自动运行，不能激活其他工作簿中的表格？

還有一种情況就是你説的這種,你根本沒有打開這個表,怎么能激活?activate是建立在已經打開表格的基礎上的

HSIAOQIANG

還有,你這代碼一看就是新手寫的,根本不需要SELECT這東西

nicleyuan

我来解决你最后一问，表格里的数据不要拷贝，选中所要的数据后直接拖到QQ里。注意用词，是 “拖” 到QQ 里。另外我没用QQ 试，微信是可以这样操作的。

一掷乾坤

HSIAOQIANG 发表于 2023-3-15 11:01
還有,你這代碼一看就是新手寫的,根本不需要SELECT這東西

我这是录制的
第一步就是打开表格了，有这种表，就是手动运行没问题，打开自动运行就提示下标越界，我不知道为什么。

zjzyj

                  

WANT-T

一掷乾坤 发表于 2023-3-15 10:38
业务处理团队排班表，这张表有，是不是自动运行，不能激活其他工作簿中的表格？

你的代码里没有体现出其它的工作簿，我看到的都 是thisworkbook,下标越界，说明thisworkbook下没有这个工作表,即使假设有这个工作表，那你的代码显示，值班工作表，a1沾到a9，在只读打开的情况下，粘贴操作是被允许的嘛？