返回列表 上一主題 發帖

excel位置問題

basarasy

帖子
287 
主題
65 
精華
0 
積分
357 
點名
0  
作業系統
xp 
軟體版本
OFFIC 2007 
閱讀權限
20 
註冊時間
2010-6-4 
最後登錄
2015-8-19 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2010-7-20 21:42 | 只看該作者

excel位置問題

如何寫  一開excel時 找出這個excel的位置在A1出 (C\:XXXXXX)
請大大指導.
收藏 分享
50 字節以內
不支持自定義 Discuz! 代碼

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
256  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2024-11-26 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
2#
發表於 2010-7-20 22:00 | 只看該作者
回復 1# basarasy


    在A1寫公式
=SUBSTITUTE(LEFT(CELL("filename",A1),FIND("]",CELL("filename",A1))-1),"[","")
如果寫程式
  1. Private Sub Workbook_Open()
  2. Sheets(1).[A1] = ThisWorkbook.FullName
  3. End Sub
複製代碼
學海無涯_不恥下問

TOP

kimbal

帖子
472 
主題
5 
精華
0 
積分
485 
點名
0  
作業系統
Windows 
軟體版本
MS Office 
閱讀權限
100 
性別
男 
來自
香港 
註冊時間
2010-7-4 
最後登錄
2014-12-28 

論壇貢獻勳章
3#
發表於 2010-7-20 22:09 | 只看該作者
本帖最後由 kimbal 於 2010-7-20 22:12 編輯
如何寫  一開excel時 找出這個excel的位置在A1出 (C\:XXXXXX)
請大大指導.
basarasy 發表於 2010-7-20 21:42


  跟heish大的差不多, 這個是回傳文件夾
  1. Private Sub Workbook_Open()
  2.       range("A1") = thisworkbook.path
  3. End Sub
複製代碼
懂得發問,答案就會在其中

今日の一秒は  明日にない
http://kimbalko-chi.blogspot.com
http://kimbalko.blogspot.com

TOP

basarasy

帖子
287 
主題
65 
精華
0 
積分
357 
點名
0  
作業系統
xp 
軟體版本
OFFIC 2007 
閱讀權限
20 
註冊時間
2010-6-4 
最後登錄
2015-8-19 
4#
發表於 2010-7-20 22:24 | 只看該作者
本帖最後由 basarasy 於 2010-7-20 22:59 編輯

回復 2# Hsieh


    謝謝強大的Hsieh大大同kimbal大大><
50 字節以內
不支持自定義 Discuz! 代碼

TOP

        靜思自在 : 得理要饒人，理直要氣和。
返回列表 上一主題