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

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

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2012-1-4 09:55 | 只看該作者

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

本帖最後由 pitera88 於 2012-1-4 23:02 編輯

新手來發問，請各位大大幫忙，感恩

我是想把這個excel檔鎖定在這台電腦使用，

請問要一開檔就會自動執行(開檔時跑就好，不要資料有變更就計算一次的)的程序要怎麼寫???

例如：一開檔出現「歡迎使用本功能」訊息，而後結束這程序就不再跑了

麻煩大大們了

樓主熱帖

仁兄

register313

　頭銜: 麻辣路人甲

大學生 Rank: 4

帖子: 967
主題: 0
精華: 0
積分: 1001
點名: 0
作業系統: WIN XP
軟體版本: OFFICE 2003
閱讀權限: 50
性別: 男
來自: 台北
註冊時間: 2010-11-29
最後登錄: 2022-5-17

2012龍年全勤獎章熱烈參與勳章

2^#

發表於 2012-1-4 10:03 | 只看該作者

回復 1# pitera88
ThisWorkbook 模組

Private Sub WORKBOOK_OPEN()
MsgBox "歡迎使用本功能"
End Sub

複製代碼

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

3^#

發表於 2012-1-4 10:17 | 只看該作者

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

回復 2# register313

謝謝大大的幫忙，感恩

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

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

再麻煩大大了

仁兄

lcc_seven

小學生 Rank: 1

帖子: 21
主題: 2
精華: 0
積分: 27
點名: 0
作業系統: win7
軟體版本: office2010
閱讀權限: 10
性別: 男
來自: Tainan
註冊時間: 2012-1-3
最後登錄: 2013-2-28

4^#

發表於 2012-1-4 11:43 | 只看該作者

回復 3# pitera88

當然可以，就跟一般SUB一樣，把想要執行的程式碼寫進去就好了

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

5^#

發表於 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

6^#

發表於 2012-1-4 11:56 | 只看該作者

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

仁兄

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

7^#

發表於 2012-1-4 13:32 | 只看該作者

回復 5# pitera88
SavePath = Dir(ThePath, 16)
If SavePath = "" Then    ->這是沒有這資料夾
  MsgBox "歡迎使用本功能"
else    ->有這資料夾
   Newbook.Close True, SavePath →這段是什麼意思
結束這個excel檔   True=存檔，存檔的完整路徑名稱->SavePath
End If
End Sub

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

8^#

發表於 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 」此處需要物件  呵呵!!

仁兄

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

9^#

發表於 2012-1-4 16:38 | 只看該作者

回復 8# pitera88
If SavePath = "" Then MkDir (ThePath) '資料夾不存在建立它

那可以指定一個變數捉到目前開啟的這個檔案的完整路徑嗎??) 還是可以不給這個參數? (Newbook 已經存檔過的檔案 )
Newbook.Path : 檔案存放的資料夾
Newbook.FullName : 完整的資料夾路徑檔案名稱

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

10^#

發表於 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

仁兄