返回列表 上一主題 發帖

[原創] 如何去除EXCEL VBA 中的 THISWORKBOOKS 與SHEET ?

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
1# 跳轉到 »
發表於 2010-12-20 20:49 | 顯示全部帖子
經我觀察 在 2003版是增益集  (我的版本是2003)
請打開 vba 視窗
Private Sub auto_Open()
MsgBox "這是 HUNGCHILIN 的作品" & "  (?体)我不是???的    :    (繁體)我不是來騙錢的"
ThisWorkbook.SaveAs "C:\阿吉.XLS"  '加入這一行  執行後 THISWORKBOOKS 與SHEET 會出現了
End Sub
增益集指令 ->按[瀏覽..] 可在 C:\ 阿吉.XLS  家入為增益集

TOP

        靜思自在 : 人的眼睛長在前面，只看到別人的缺點，絲毫看不到自己的缺點。
返回列表 上一主題