標題:
excel位置問題
[打印本頁]
作者:
basarasy
時間:
2010-7-20 21:42
標題:
excel位置問題
如何寫 一開excel時 找出這個excel的位置在A1出 (C\:XXXXXX)
請大大指導.
作者:
Hsieh
時間:
2010-7-20 22:00
回復
1#
basarasy
在A1寫公式
=SUBSTITUTE(LEFT(CELL("filename",A1),FIND("]",CELL("filename",A1))-1),"[","")
如果寫程式
Private Sub Workbook_Open()
Sheets(1).[A1] = ThisWorkbook.FullName
End Sub
複製代碼
作者:
kimbal
時間:
2010-7-20 22:09
本帖最後由 kimbal 於 2010-7-20 22:12 編輯
如何寫 一開excel時 找出這個excel的位置在A1出 (C\:XXXXXX)
請大大指導.
basarasy 發表於 2010-7-20 21:42
跟heish大的差不多, 這個是回傳文件夾
Private Sub Workbook_Open()
range("A1") = thisworkbook.path
End Sub
複製代碼
作者:
basarasy
時間:
2010-7-20 22:24
本帖最後由 basarasy 於 2010-7-20 22:59 編輯
回復
2#
Hsieh
謝謝強大的Hsieh大大同kimbal大大><
歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)
