请各位前辈指教 自己改的代码 运行时会提醒 下标越界，请帮忙指导下

279583515

需要达到的目的：在A工作薄，第二工作表里 黏贴 E盘下B工作薄，第二工作表里的内容。A工作薄名称不固定会变化，都是活动工作薄，黏贴完还需要操作，不用关闭。用加载在其他跟A格式一样的工作薄里运行，标黄色部分会提醒 ：下标越界……初学者我，请各位前辈指导下存在错误，谢谢。

Dim mybook As Workbook
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set mybook = Workbooks.Open("E:\11-桌面\江苏公司预算模版\XX站点-（主设备&配套）202201124-中兴(1).xlsx")
Sheets("表二-无线折扣前").Select
Range("K8:T34").Copy ThisWorkbook.Sheets("表二-无线折扣前").Range("K8") '复制到当前表
mybook.Close saveChanges:=False '关闭指定工作表不保存操作
Application.CutCopyMode = False '清空剪切板
Columns("K:N").Select
    Selection.NumberFormatLocal = "G/通用格式"
Range("L8").Select
ActiveCell.FormulaR1C1 = _
"=表三甲!R[178]C[-4]+表三甲!R[178]C[-3]+表三甲!R[179]C[-4]+表三甲!R[179]C[-3]"
Range("R10").Select
ActiveCell.FormulaR1C1 = "=基本信息表!R[37]C[-15]"
Range("S10").Select
ActiveCell.FormulaR1C1 = "=基本信息表!R[37]C[-15]"
Range("R18:T18").Select
ActiveCell.FormulaR1C1 = _
"=IF(基本信息表!R[1]C[-14]=""嘉环有限公司"",R[-5]C,IF(基本信息表!R[1]C[-14]=""京信有限公司"",R[-4]C,IF(基本信息表!R[1]C[-14]=""虹信技有限公司"",R[-3]C,IF(基本信息表!R[1]C[-14]=""宜通世纪有限公司"",R[-2]C,IF(基本信息表!R[1]C[-14]=""中邮建技术有限公司"",R[-1]C)))))"
Range("I15").Select
ActiveCell.FormulaR1C1 = "=R[-6]C[5]"
Range("C24").Select
ActiveCell.FormulaR1C1 = "人工费×7.6%"
Range("D24").Select
ActiveCell.FormulaR1C1 = "=R[-13]C*7.6%"
MsgBox "结束"
Application.ScreenUpdating = True    '开启屏幕刷新
Application.DisplayAlerts = True    '开启警告信息显示

liulang0808

这段代码所在文件是否存在表名为“表二-无线折扣前”的

279583515

liulang0808 发表于 2022-11-28 18:55
这段代码所在文件是否存在表名为“表二-无线折扣前”的

有的，工作薄的格式都是一样的，sheet的名称也是一样的

3190496160

测试代码，更是应该要上传附件的呀

279583515

3190496160 发表于 2022-11-29 12:45
测试代码，更是应该要上传附件的呀

《》附件奉上，请大神指导指导，谢谢