Question

EXCEL vba代码运行错误

大致过程：将考核模板中的数据，粘贴至新建的工作簿“考核”工作表及“日报”工作表中，运行至粘贴图片的代码时，有时会出现图片粘贴在考核模板的情况（即复制了“考核模板”工作表上的图表，又粘贴“考核模板”工作表上，根据代码应该粘贴在新建的工作簿中“考核”工作表上的），所以请问①粘贴图表的代码是哪里有问题呢？②除此之外，代码有没有其他的问题？因为有时按F8逐句运行就可以成功，但选中全部点击运行会报错“400”
求指教！非常感谢！
Sub 导出()
Dim sh1 As Worksheet, sh2 As Worksheet, wb1 As Workbook, s As Shape
Set wb1 = Workbooks(Format(Date, "YYYYMMDD") & "考核资料.xlsx")
Set sh1 = wb1.Sheets.Add
sh1.Name = "考核"

'将考核模板数据粘贴到新建的工作表中
ThisWorkbook.Sheets("考核模板").Range("1:33").Copy
sh1.Range("a1").PasteSpecial Paste:=xlPasteAllUsingSourceTheme
sh1.Range("a1").PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False '清空剪贴板

sh1.Cells.EntireColumn.AutoFit '调整行列大小自动适应文字
sh1.Cells.EntireRow.AutoFit

'将考核模板图表粘贴为图片至新建的工作表中
ThisWorkbook.Sheets("考核模板").ChartObjects("图表 1").CopyPicture appearance:=xlScreen, Format:=xlBitmap
sh1.Paste Range("K34")
ThisWorkbook.Sheets("考核模板").ChartObjects("图表 6").CopyPicture appearance:=xlScreen, Format:=xlBitmap
sh1.Paste Range("u12")
ThisWorkbook.Sheets("考核模板").ChartObjects("图表 3").CopyPicture appearance:=xlScreen, Format:=xlBitmap
sh1.Paste Range("k12")

'粘贴日报
Set sh2 = wb1.Sheets.Add
sh2.Name = "日报"
ThisWorkbook.Sheets("日报").Range("A:U").Copy
sh2.Range("a1").PasteSpecial Paste:=xlPasteAllUsingSourceTheme
sh2.Range("a1").PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False

'清空日报S列
sh2.Columns("S:S").Select
Selection.ClearContents
With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End Sub

Answer 1

工具：officeexcel步骤：1、打开officeexcel，vba运行时错误如下。2、这段代码是测试当前VBA版本的：代码如下:Sub获取VBA版本() MsgBoxApplication.VBE.Version EndSub 3、当按F5键，就报：运行时错误1004。经老师指点，单击文件――选项――信任中心――打开“信任中心”对话框，宏设置――勾选“信任对VBA工程对象模型的访问”。再次运行，就不会出现运行时错误1004提示。完成。

Answer 2

代码在哪呢？

追问

代码写在考核模板工作簿的thisworkbook中，这个报错是代码放置的位置有问题？