下标越界的问题

一掷乾坤

nicleyuan 发表于 2023-3-15 11:04
我来解决你最后一问，表格里的数据不要拷贝，选中所要的数据后直接拖到QQ里。注意用词，是 “拖” 到QQ 里 ...

啊？我拖不了

一掷乾坤

WANT-T 发表于 2023-3-15 11:17
你的代码里没有体现出其它的工作簿，我看到的都 是thisworkbook,下标越界，说明thisworkbook下没有这个工 ...

被允许的，现在就是下标越界问题我不懂为什么。

一掷乾坤

换个思路，是不是自动运行，激活的工作表，只能是thisbook的工作表，不能是再打开的其他工作簿中的表格。

zpy2

一掷乾坤 发表于 2023-3-15 14:12
换个思路，是不是自动运行，激活的工作表，只能是thisbook的工作表，不能是再打开的其他工作簿中的表格。

建议上传附件方便大家沟通

一掷乾坤

zpy2 发表于 2023-3-15 14:28
建议上传附件方便大家沟通

2个文件放桌面，打开新建XLSX 工作表 (3)

zjzyj

    Workbooks.Open Filename:=ThisWorkbook.Path & "\新建XLSX 工作表 (2).xlsx"
    ActiveWorkbook.Worksheets("值班").Activate

HSIAOQIANG

一掷乾坤 发表于 2023-3-15 14:52
2个文件放桌面，打开新建XLSX 工作表 (3)

你要先OPEN THAT WORKBOOK,就是下標越界的那個工作簿,我不早都説清楚了你沒有激活啊.不要錄製宏,那玩意兒基本上沒啥用.

WANT-T

1. Public Function 文本写入剪切板(str As String)
   
2.     Dim obj As Object
   
3.     Set obj = CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
   
4.     obj.SetText str
   
5.     obj.PutInClipboard
   
6. End Function

复制代码

一掷乾坤

WANT-T 发表于 2023-3-16 09:48

这个解决了，谢谢。

一掷乾坤

HSIAOQIANG 发表于 2023-3-16 09:21
你要先OPEN THAT WORKBOOK,就是下標越界的那個工作簿,我不早都説清楚了你沒有激活啊.不要錄製宏,那玩意兒 ...

哥，你看代码啊。
Workbooks.Open Filename:="\\192.25.62.202\业务处理中心共享\排班表\业务处理团队排班表", ReadOnly:=True
Worksheets("值班").Activate
我第一句就是打开啊。