返回列表 上一主題 發帖

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

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
1# 跳轉到 »
發表於 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

TOP

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
2#
發表於 2012-1-4 16:38 | 顯示全部帖子
回復 8# pitera88
If SavePath = "" Then MkDir (ThePath)                       '資料夾不存在 建立它

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

TOP

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
3#
發表於 2012-1-4 17:09 | 顯示全部帖子
本帖最後由 GBKEE 於 2012-1-4 17:11 編輯

回復 10# pitera88
只要強制關閉這檔案就行
ThisWorkbook.Close False

TOP

        靜思自在 : 慈悲沒有敵人，智慧不起煩惱。
返回列表 上一主題