如何批量删除excel里面的chart1
如图所示，我有几千份表格都这样，一个删太费工夫了，如何批量的的删除chart1？我自己网上百度试着写了个vba，但运行老有错误，求高手赐教。这是我自己百度，写的vba但运...
如图所示，我有几千份表格都这样，一个删太费工夫了，如何批量的的删除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生成的 展开
这是我自己百度，写的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生成的 展开
2个回答
展开全部
把
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
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
