Question

如何批量删除excel里面的chart1

如图所示，我有几千份表格都这样，一个删太费工夫了，如何批量的的删除chart1？我自己网上百度试着写了个vba，但运行老有错误，求高手赐教。
这是我自己百度，写的vba 但运行总出错。

Sub 依次打开()
mypath = "d:\数据文件\"
myfile = Dir(mypath & "*.xls")
Do Until Len(myfile) = 0
Workbooks.Open Filename:=mypath & myfile
ActiveWorkbook.Charts.Delete
Workbooks(myfile).Close savechanges:=True
myfile = Dir
Loop
End Sub

多出chart1 似乎是误碰的f11生成的

Answer 1

把

ActiveWorkbook.Charts.Delete

改成：

For Each c In Sheets
    If TypeName(c) = "Chart" Then
        c.Delete        'Sheets(c.Name).Delete
    End If
Next
如果只有Chart1，则
'Sheets("Chart1").Delete

Answer 2

几千个？那只有VBA了

追问

请问 具体要怎么弄啊？

追答

要有具体的表来编写程序