- 帖子
- 73
- 主題
- 11
- 精華
- 0
- 積分
- 100
- 點名
- 0
- 作業系統
- Win 8
- 軟體版本
- 2007
- 閱讀權限
- 20
- 性別
- 女
- 註冊時間
- 2013-5-11
- 最後登錄
- 2018-7-25
 
|
各位大大，這幾天遇到一個程式無法接下去跑的問題，試了3,4天還是無法接下去跑(如附件
 自動化執行.rar (37.22 KB)
，謝謝*10~)PS:路徑設在D槽
目前有兩個問題(粗體字表示):
打開Open 活頁簿-->自動就打開了P1活頁簿-->執行P1巨集-->執行完Copy回Open活頁簿-->關閉P1活頁簿-->自動就打開了P2活頁簿-->執行P2巨集-->執行完Copy回Open活頁簿-->關閉P2活頁簿-->回到Open 活頁簿並顯示MsgBox "P1& P2 跑完 "
1) 開啟Open 自動執行" openworksheet"
2)開啟P1自動執行巨集"P1" 問題1:"關完P1 活頁簿後，沒執行下面那一行程式"，問題2: 目前Copy 無法貼到 Open 資料夾，
3)因為上面那個沒執行，所以這程式就沒接下去跑了
VBA 程式對照如下:
-------------------------
1)
Sub openworksheet()
Workbooks.Open Filename:="D:\自動化執行\P1.xlsm"
End Sub
Sub P1e()
Workbooks("Open").Activate
Workbooks("P1").Close False
'問題1: 關完P1 活頁簿後，沒執行下面那一行
Workbooks.Open Filename:="D:\自動化執行\P2.xlsm"
End Sub
Sub P2e()
Workbooks("Open").Activate
Workbooks("P2").Close False
MsgBox "P1& P2 跑完 "
End Sub
-------------------------------------------
2)
Sub P1()
Dim i As Integer
For i = 1 To 5
Cells(i, 1).Value = Format(Now, "ss")
Application.Wait (Now + TimeValue("00:00:01"))
Next i
Range("A:A").Copy
'問題2:無法貼到 Open
Windows("Open.xlsm").Activate
Columns("A:A").Select
ActiveSheet.Paste
Range("A1").Select
Application.Run "Open.xlsm!P1e"
End Sub
-------------------------------------------
3)
Sub P2()
Dim i As Integer
For i = 1 To 5
Cells(i, 1).Value = Format(Now, "ss")
Application.Wait (Now + TimeValue("00:00:01"))
Next i
Range("A:A").Copy
Windows("Open.xlsm").Activate
Columns("B:B").Select
ActiveSheet.Paste
Range("A1").Select
Application.Run "Open.xlsm!P2e"
End Sub |
|
發表於 2014-6-8 21:30
| 
