★２５９个常用宏★(7月11日更新)

人在囧途 · 发表于 2011-12-21 22:35

感谢，拿走了

gxd563 · 发表于 2011-12-23 16:46

谢谢楼主！非常有用我是个拿来主义者自己不会写看了帖子非常好但不会用我下面有一个备份宏是备份工作簿的我想求楼主帮助改一改变成工作簿中的表2备份谢谢！
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
XlsFilePath = "d:\备份"
BackupXlsFilePath = "f:"
If ThisWorkbook.Path = XlsFilePath Then
ExcelFilePath = BackupXlsFilePath
Else
ExcelFilePath = XlsFilePath
End If
Response = MsgBox("保存时是否备份当前Excel文件？" & vbCr & "备份位置：" & ExcelFilePath, vbYesNo, "提示备份")

If Response = vbYes Then ' 用户按下“是”
End If

ThisWorkbook.SaveCopyAs Filename:=ExcelFilePath & "\ " & ThisWorkbook.Name

End If

End Sub

酿雪 · 发表于 2011-12-24 10:44

收藏了，谢谢版主

酿雪 · 发表于 2011-12-24 10:47

真的是灰常灰常地强大，灰常灰常地感谢~~~

LangQueS · 发表于 2011-12-24 11:51

本帖最后由 LangQueS 于 2011-12-24 11:51 编辑

gxd563 发表于 2011-12-23 16:46
谢谢楼主！非常有用我是个拿来主义者自己不会写看了帖子非常好但不会用我下面有一个备份宏是备份工作 ...

参考：

Sub 另存表2为独立文件()
On Error Resume Next '忽略错误继续执行VBA代码,避免出现错误消息
a = Sheets(2).Name
Sheets(2).Copy
ActiveWorkbook.SaveAs Filename:=a & ".xls" '到Excel默认目录
ActiveWorkbook.Close '退出当前文件
On Error GoTo 0 '恢复正常的错误提示
End Sub

复制代码

倁_▄︻┳═ · 发表于 2011-12-26 00:01

新人不懂什么是宏{:soso_e127:}

ankangwr · 发表于 2011-12-29 08:59

谢谢斑竹分享!

gsbylh · 发表于 2012-1-3 09:20

谢谢版主!收下了

pshy · 发表于 2012-1-3 20:39

谢谢楼主，辛苦了！

tang_natina · 发表于 2012-1-6 11:12

非常感谢,正在找这个,辛苦了,呵呵...

		自动登录	找回密码
密码			免费注册

[VBA程序开发] ★２５９个常用宏★(7月11日更新)