excel自动保存高手请进，麻烦编个“打印并保存”宏

来源：蜘蛛抓取(WebSpider) 时间：2014-04-22 09:27 标签： excel无法保存
高手请进,如何按一个按钮保存excel表格
[问题点数：20分，结帖人java2000_net]
高手请进,如何按一个按钮保存excel表格
[问题点数：20分，结帖人java2000_net]
不显示删除回复
显示所有回复
显示星级回复
显示得分回复
只显示楼主
本帖子已过去太久远了，不再提供回复功能。Excel中把指定内容筛选出,并复制到指定的工作簿中，并保存，VBA代码高手请进，有高分感谢_百度知道
提问者采纳
关键字应该是姓名，但姓名有可能重名，当筛选出来的数据传到另外工作簿时，不复制姓名列有一个重要问题要弄清楚，如果已有数据就更新，如果遇到相同姓名该怎么办。从你说的意思看？编码不会重复，为关键字才合理，判别是否有数据的关键字段是“学生编码”还是“姓名”
我的学生编码是唯一的，其他的都可能重复。还有这是模拟工作簿
按你的要求完成了使用方法，点击 H2 单元格，出现下拉箭头，从中选择“年级”显示全部，选择各个年级则进行筛选并将数据更新到各年级工作簿。有问题再追问
提问者评价
来自团队：
其他类似问题
为您推荐：
excel的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁EXCEL2007 高手请进，宏提示，怎么办？_百度知道
提问者采纳
这个就是文档检查的时候一个提示，挺烦人的，可以取消：EXCEL选项→信任中心→信任中心设置--个人信息选项→文档特定供激垛刻艹灸讹熏番抹设置→保存时从文档属性中删除个人信息，把勾去掉
提问者评价
来自团队：
其他类似问题
61人觉得有用
为您推荐：
excel2007的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁高手 给我写个excel的 选择性粘贴-数值-无 的宏呗_百度知道
高手 给我写个excel的 选择性粘贴-数值-无 的宏呗
提问者采纳
election，图标是一个记事板上面有“12”数字把这个图标拖到工具栏上:=xlPasteValues其实要宏做什么？在自定义工具栏时，在“命令”面面“类别”中选择“编辑”然后在右侧的列表中找到“粘贴数值”.PasteSpecial paste
提问者评价
来自团队：
其他类似问题
为您推荐：
其他3条回答
自己录制一个宏不就行了？工具----宏---录制宏----操作一遍停止录制给他起个名字
自己录制一个不就OK了。。。或者你把代码什么的发上来给修改下，，，单录个宏自己搞就好了没难度
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False 这个就是 你要的选择性粘贴所需要的 关键 语句……
选择性粘贴的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁查看: 2035|回复: 12
高手进来，怎么用excel编写个宏，达到这样的效果
阅读权限20
在线时间 小时
(95.29 KB, 下载次数: 24)
17:48 上传
点击文件名下载附件
现在有N个模版一样的工作薄，其中一个工作表，有材料表，做一个宏，把所有表的材料表都汇总了，第一列是每个材料的名，第二列的第一行是每个工作表的名，然后每个材料对应相当的数量，以此类推的，最后是汇总。样例我以经上传上来了，能帮上忙的，感激不尽呀。。
阅读权限70
在线时间 小时
规 格 程 式 是不是都一样？
也就是说是以名称作为条件，还是以名称+规格程式作为条件？
阅读权限90
在线时间 小时
阅读权限20
在线时间 小时
mjzxlmg 发表于
规 格 程 式 是不是都一样？
也就是说是以名称作为条件，还是以名称+规格程式作为条件？
各种材料的规格程式不一样
阅读权限20
在线时间 小时
lhdcxz 发表于
参考http://club.excelhome.net/forum.php?mod=viewthread&tid=851106&page=1#pid5814389
有的材料，名称一样。型号不一样
阅读权限70
在线时间 小时
本帖最后由 mjzxlmg 于
00:52 编辑
[code=vb]Sub test()
& & Dim MyPath$, MyName$, sh As Worksheet, m&, s&, i&, j&
& & Dim d As Object, arr, brr(), c&
& & On Error Resume Next
& & Set d = CreateObject(&Scripting.Dictionary&)
& & c = 4: m = 1
& & MyPath = ThisWorkbook.Path & &\&
& & MyName = Dir(MyPath & &*.xls&)
& & Application.ScreenUpdating = False
& & Do While MyName && &&
& && &&&If MyName && ThisWorkbook.Name Then
& && && && &c = c + 1
& && && && &Set sh = GetObject(MyPath & MyName).Sheets(6)
& && && && &ReDim Preserve brr(1 To 10000, 1 To c + 2)
& && && && &brr(1, c) = Left$(MyName, InStr(MyName, &.&) - 1)
& && && && &arr = sh.UsedRange.Value
& && && && &For i = 9 To UBound(arr)
& && && && && & If arr(i, 2) && &光缆& And arr(i, 2) && &钢材及其它& And arr(i, 2) && &塑料及其它& And Len(arr(i, 2)) Then
& && && && && && &&&s = d(arr(i, 2) & &/& & arr(i, 3))
& && && && && && &&&If s = Empty Then
& && && && && && && && &m = m + 1
& && && && && && && && &d(arr(i, 2) & &/& & arr(i, 3)) = m
& && && && && && && && &s = m
& && && && && && && && &brr(s, 1) = arr(i, 2)
& && && && && && && && &brr(s, 2) = arr(i, 3)
& && && && && && && && &brr(s, 3) = arr(i, 4)
& && && && && && && && &brr(s, 4) = arr(i, 6)
& && && && && && && && &brr(s, c) = arr(i, 5)
& && && && && && &&&End If
& && && && && && && && &brr(s, c) = arr(i, 5)
& && && && && & End If
& && && && &Next
& && && && &Workbooks(MyName).Close False
& && &&&End If
& && &&&MyName = Dir
& & For i = 2 To m
& && &&&For j = 5 To c
& && && && &If Len(brr(i, j)) Then brr(i, c + 1) = brr(i, c + 1) + brr(i, j)
& && &&&Next
& && &&&brr(i, c + 2) = brr(i, c + 1) * brr(i, 4)
& & brr(1, 1) = &材料名称&: brr(1, 2) = &规格程式&: brr(1, 3) = &单位&: brr(1, 4) = &单价&: brr(1, c + 1) = &数量合计&: brr(1, c + 2) = &金额合计&
& & [a1].CurrentRegion.ClearContents
& & If m & 0 Then [a1].Resize(m, c + 2) = brr
& & Set d = Nothing
& & Application.ScreenUpdating = True
End Sub[/code]
(13.14 KB, 下载次数: 16)
00:51 上传
点击文件名下载附件
阅读权限20
在线时间 小时
mjzxlmg 发表于
非常感谢您这么晚了，还帮忙写这个宏，他这个汇总的时候能不能跟据每个工作薄的特定的工作薄汇总，因为每个工作薄中，都有一个工作表，叫表四（国内材料表）能否跟据这个汇总？
阅读权限70
在线时间 小时
gebixuelang 发表于
非常感谢您这么晚了，还帮忙写这个宏，他这个汇总的时候能不能跟据每个工作薄的特定的工作薄汇总，因为每 ...
就是根据这个汇总的呀。sheets(6)就是表四（国内材料表）
阅读权限20
在线时间 小时
mjzxlmg 发表于
就是根据这个汇总的呀。sheets(6)就是表四（国内材料表）
他这个有的是在sheet(6)，有的不是。可不可以让他根据这个名“表国（国内材料表）”汇总。
阅读权限70
在线时间 小时
本帖最后由 mjzxlmg 于
14:54 编辑
gebixuelang 发表于
他这个有的是在sheet(6)，有的不是。可不可以让他根据这个名“表国（国内材料表）”汇总。
Set sh = GetObject(MyPath & MyName).Sheets(6)
Set sh = GetObject(MyPath & MyName).Sheets(&表四甲（国内材料表）&)
玩命加载中，请稍候
玩命加载中，请稍候
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！
本站特聘法律顾问：徐怀玉律师 李志群律师
Powered by

我要回帖

更多关于 excel无法保存 的文章

 

随机推荐