Re: [VBA ] 想請問EXCEL的VBA問題

看板Visual_Basic作者kmands (E M P T Y)時間17年前 (2009/04/15 22:21)推噓0(0推 0噓 0→)

留言0則, 0人參與討論串2/2 (看更多)

※ 引述《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 = "mmm@yahoo.com.tw" .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)