- 帖子
- 34
- 主題
- 14
- 精華
- 0
- 積分
- 61
- 點名
- 0
- 作業系統
- Winxp
- 軟體版本
- Office 2010
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2014-1-25
- 最後登錄
- 2019-3-4
|
以下程式碼是將excel file zip起來，我需要撿查及等待zip程序完成，請問要怎樣寫？
試過用Dir(FileNameZip)但NewZip Sub已經建立了一個空的FileNameZip，所以不能用這個:'(
多請大大指教:)
Sub Main()
Dim FileNameZip, FileNameXls
FileNameXls = "C:\Book1.xlsx"
FileNameZip = "C:\Book1.zip"
Call NewZip(FileNameZip)
Set oApp = CreateObject("Shell.Application")
oApp.Namespace(FileNameZip).CopyHere FileNameXls
'因為FileNameXls比較大，而之後我需要將FileNameZip插入email為附件，所以我需要有這裡撿查及等待Zip file 完成才繼續下去。應該怎寫？
End Sub
'-------------------------------------------------------------
Sub NewZip(sPath)
'Create empty Zip File
If Len(Dir(sPath)) > 0 Then Kill sPath
Open sPath For Output As #1
Print #1, Chr$(80) & Chr$(75) & Chr$(5) & Chr$(6) & String(18, 0)
Close #1
End Sub |
|
發表於 2014-1-26 17:48
| 
