查看: 459|回复: 0
用同一个宏处理文件夹下多个电子表生成图表，能操作但会生成同样的两张图表，求救！
阅读权限10
在线时间 小时
本帖最后由 jsczxie 于
21:18 编辑
正好单位要对多个电子表进行生成图表设置，同样的操作觉得比较麻烦就搜了一下，找到这个代码想直接套用。但是有一个问题就是运行后会生成两张图表，不知道有高手能说明一下吗？
我用红色标出来的是我将这两句去除了，直接用。
下面是我的代码
-------------------------------------------------------------------------------------------
Sub 多个文件应用宏()
' 选择一个目录对每个文件应用宏
& & Dim Path$, File$
& & Dim Wb As Workbook, sht As Worksheet
& & Application.DisplayAlerts = False
& & With Application.FileDialog(msoFileDialogFolderPicker)
& && &&&If .Show Then
& && && && &Path = .SelectedItems(1)
& && && && &File = Dir(Path & &\*.xls&)
& && && && &Application.EnableEvents = False
& && && && &Application.Calculation = xlCalculationManual
& && && && &Do Until LenB(File) = 0
& && && && && & Set Wb = Workbooks.Open(Filename:=Path & &\& & File)
& && && && && & '打开路径下的文件
& && && && && & For Each sht In Wb.Worksheets
'下面学生表一改成自己的表名
& && && && && && & 'If sht.Name = &学生表一& Then
& && && && && && && && &'TO DO SOMETHING，这里填写每个Excel工作薄文件要操作的宏，不会写可以录制一个宏，然后把录制的
宏的代码填在这里，具体可以看后面
& & ActiveSheet.Shapes.AddChart.Select
& & ActiveChart.ChartType = xlBarStacked
& & ActiveChart.SetSourceData Source:=Range(&Sheet1!$D:$D,Sheet1!$H:$H&)
& & ActiveSheet.Shapes(&图表 1&).IncrementLeft 311.25
& & ActiveSheet.Shapes(&图表 1&).IncrementTop -82.5
& && && && & & && & 'End If
& && && && && && &Next
& && && && && & Wb.SaveAs Filename:=Path & &\& & File
& && && && && & '保存替换原文件
& && && && && && & Wb.Close True
& && && && && && & '关闭文件
& && && && && & File = Dir
& && && && &Loop
& && && && &Application.DisplayAlerts = True
& && && && &'关闭提示，与前面的FALSE对应
& && && && &Application.EnableEvents = True
& && && && &Application.Calculation = xlCalculationAutomatic
& && &&&End If
& & End With
-------------------------------------------------------------------------------------------
(9.13 KB, 下载次数: 37)
21:16 上传
最新热点 /1
ExcelHome每周都有线上直播公开课，
国内一流讲师真身分享，高手贴身答疑，
赶不上直播还能看录像，
关键居然是免费的！
厚木哥们都已经这么努力了，
你还好意思说学不好Office。
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师查看: 2982|回复: 3
我把整张表格删除保存了怎么恢复
阅读权限30
在线时间 小时
因为是月末&&我想在上个月的模板上 直接删除数据当模板
结果忘记点另存 直接保存了
我用的是03版的& &&&
救命啊&&我就算用半个月也做不出这些数据来啊
我在 工具&&选项& &保存里C:\Users\user\AppData\Roaming\Microsoft\Excel&&
找到 excel 11.XLb&&的文件 是当天的日期& &但是我直接打开它是空白的& &
阅读权限100
在线时间 小时
删除后 还保存了。没办法。。
阅读权限100
在线时间 小时
祈祷你更早之前的自动保存残片还能有。
阅读权限10
在线时间 小时
& & & & & & & &
坐等高手解答
最新热点 /1
ExcelHome每周都有线上直播公开课，
国内一流讲师真身分享，高手贴身答疑，
赶不上直播还能看录像，
关键居然是免费的！
厚木哥们都已经这么努力了，
你还好意思说学不好Office。
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师后使用快捷导航没有帐号？
平板/笔记本
云服务专区
求救，qq下载的excel文件打开方式选错了，如何恢复？
&略有小成&
来自：浏览器
qq下载的excel文件打开方式选错了，一不小心选成其他程序打开了，如何更改？谢谢。在线等。
width:100%">
&登堂入室&
来自：浏览器
我觉得重新***一下office就能自动关联
width:100%">
&登堂入室&
来自：浏览器
在应用管理里面找到那个应用，取消默认值
width:100%">
&自成一派&
来自：浏览器
谢谢楼主的分享
width:100%">
&略有小成&
来自：浏览器
摁住了卑鄙 发表于
在应用管理里面找到那个应用，取消默认值
谢谢，搞定了，万能的群，万能的大侠。
width:100%">
&已臻大成&
来自：浏览器
这个不好说啊
width:100%">
&略有小成&
来自：浏览器
谢谢，搞定了，万能的群，万能的大侠。
width:100%">
秋摄宜人秋色（六）初夏的塘河古镇品尝金秋的美酒龙脊梯田的日与夜印象普陀 2017 （一）
花粉客户端
Make it Possible
Make your device special
华为云服务
Huawei cloud services
音乐播放器
Huawei Music
Huawei Vmall
没有最新动态
关注花粉俱乐部
举报邮箱：
|关注花粉俱乐部：
Copyright (C)
华为软件技术有限公司 版权所有 保留一切权利