作者kmands (E M P T Y)
看板Visual_Basic
标题Re: [VBA ] 想请问EXCEL的VBA问题
时间Wed Apr 15 22:21:03 2009
※ 引述《kmands (音乐 旅行 摄影)》之铭言：
: 各位前辈
: 小弟想请问VBA的写法 我的问题如下
: 我想利用排程自动点选某个EXCEL
: 点选过後 EXCEL里的枢纽表自动更新
: 更新结束後 档案关闭 并将此excel档寄给相关收件人
: 以上是我的问题 请问要怎麽写呢? 烦请解答 谢谢
各位前辈 以下是我自己写的VBA 但有些问题 跑的过程不顺利
烦请帮忙一下
*ps.原始档名为test,另存成test1*
Private Sub Workbook_Open()
ActiveSheet.PivotTables("PivotTable1").PivotCache.Refresh
Cells.Select
Selection.Copy
Workbooks.Add
ActiveSheet.Paste
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\ADMINISTRATOR\Desktop\MAILTEST\test1.xls" _
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
Application.DisplayAlerts = True
mail '此为副程式
ActiveWorkbook.Close
End Sub
----------------------------------------------------副程式部份
Sub MAIL()
Dim app As Object
Set app = CreateObject("Outlook.Application")
Set it = app.CreateItem(olMailItem)
With it
.To = "
[email protected]"
.Subject = "test"
.Body = "Pls refer to the attachment."
.Display
.Attachments.Add "C:\Documents and Settings\ADMINISTRATOR\Desk_
top\MAILTEST\test1.xls"
.send
End With
End Sub
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 118.160.193.186
※ 编辑: kmands 来自: 118.160.193.186 (04/15 22:25)