[發問] 一開啟excel檔就自動跑的vb(已解決，感恩)

帖子: 59
主題: 15
精華: 0
積分: 108
點名: 0
作業系統: winXp
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: 屏東
註冊時間: 2011-12-16
最後登錄: 2018-8-10

2^#

發表於 2012-1-4 10:17 | 顯示全部帖子

本帖最後由 pitera88 於 2012-1-4 10:26 編輯

回復 2# register313

謝謝大大的幫忙，感恩

Private Sub WORKBOOK_OPEN()
中間是否可以加入，檢測電腦中是否有「c:\123」資料夾
有的話 ↓
MsgBox "歡迎使用本功能"

如果沒有 ↓
結束這個excel檔 (跳過是否存檔，直接跳開)
End Sub

再麻煩大大了

仁兄

帖子: 59
主題: 15
精華: 0
積分: 108
點名: 0
作業系統: winXp
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: 屏東
註冊時間: 2011-12-16
最後登錄: 2018-8-10

3^#

發表於 2012-1-4 11:53 | 顯示全部帖子

本帖最後由 pitera88 於 2012-1-4 13:17 編輯

從別人的文章中節錄下來的，再作一點修改，請大大們幫修一下

Const ThePath = "C:\123\"
Private Sub WORKBOOK_OPEN()
中間是否可以加入，檢測電腦中是否有「c:\123」資料夾
SavePath = Dir(ThePath, 16)
If SavePath = "" Then
有的話 ↓
MsgBox "歡迎使用本功能"

如果沒有 ↓
else
結束這個excel檔 (跳過是否存檔，直接跳開)
Newbook.Close True, SavePath →這段是什麼意思
End Sub

仁兄

帖子: 59
主題: 15
精華: 0
積分: 108
點名: 0
作業系統: winXp
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: 屏東
註冊時間: 2011-12-16
最後登錄: 2018-8-10

4^#

發表於 2012-1-4 11:56 | 顯示全部帖子

因為剛接觸，所以程式碼還很多不知道的
正努力爬文了

仁兄

帖子: 59
主題: 15
精華: 0
積分: 108
點名: 0
作業系統: winXp
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: 屏東
註冊時間: 2011-12-16
最後登錄: 2018-8-10

5^#

發表於 2012-1-4 16:27 | 顯示全部帖子

本帖最後由 pitera88 於 2012-1-4 16:34 編輯

回復 7# GBKEE

Const ThePath = "C:\123\"
Private Sub WORKBOOK_OPEN()
中間是否可以加入，檢測電腦中是否有「c:\123」資料夾
SavePath = Dir(ThePath, 16)
If SavePath = "" Then ->這是沒有資料夾的話，順序就要改了
   如果沒有 ↓ 結束這個excel檔 (跳過是否存檔，直接跳開)
Newbook.Close True, SavePath →也就是savepath 是個變數，我之前就要設定囉，可是我之前用了，那可以指定一個變數捉到目前開啟的這個檔案的完整路徑嗎??) 還是可以不給這個參數?

else
有的話 ↓
  MsgBox "歡迎使用本功能"
End Sub

下去跑，結果「執行階段錯誤 424 」此處需要物件  呵呵!!

仁兄

帖子: 59
主題: 15
精華: 0
積分: 108
點名: 0
作業系統: winXp
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: 屏東
註冊時間: 2011-12-16
最後登錄: 2018-8-10

6^#

發表於 2012-1-4 16:59 | 顯示全部帖子

回復 9# GBKEE

  Const ThePath = "C:\123\" '->這一行放在這對嗎?和程序好像中間劃一條線
Private Sub WORKBOOK_OPEN()
  SavePath = Dir(ThePath, 16)
If SavePath = "" Then  '我是要檢查用，這檔案不要到別的電腦可以打開

Newbook.Close True '請grkee大大幫我寫一下，只要強制關閉這檔案就行，感恩

Else
  MsgBox "歡迎使用本功能"
End If
End Sub

仁兄

帖子: 59
主題: 15
精華: 0
積分: 108
點名: 0
作業系統: winXp
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: 屏東
註冊時間: 2011-12-16
最後登錄: 2018-8-10

7^#

發表於 2012-1-4 17:49 | 顯示全部帖子

回復 11# GBKEE

可以用了，感謝gbkee大大

仁兄