[發問] 為何連結抓不到??

A欄是檔案名稱，B欄是連結路徑
A欄從1~100，資料夾內檔名也是1~100。例:檔名:21.PDF
A欄輸入21，則B欄自動更新路徑點下去可開啟21.PDF的檔案........

但是..我不會寫.....(下面是錯誤的打不開)........麻煩各位指點.......

=HYPERLINK("\\ABserver\共用\指示\U",A1&".PDF")

樓主熱帖

mark15jill

　暱稱: 隨風飄蕩的羽毛
　頭銜: [御用]潛水艇

高中生 Rank: 3 Rank: 3

帖子: 852
主題: 79
精華: 0
積分: 918
點名: 0
作業系統: Windows 7 , XP
軟體版本: Office 2007, Office 2003,Office 2010,YoZo Office
閱讀權限: 50
性別: 男
來自: 宇宙
註冊時間: 2011-4-8
最後登錄: 2024-2-21

2^#

發表於 2012-10-29 12:10 | 只看該作者

回復 1# dakiu

A欄位為檔案名稱
B欄位自動設定檔案目錄(程式內定)
將 bmp 改成 pdf 即可

Sub 巨集2()
For kka = 1 To ActiveSheet.Range("A1").CurrentRegion.Rows.Count
Cells(kka, 2).Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="C:\Users\user\Desktop\新增資料夾 (2)\" & Cells(kka, 1) & ".bmp", TextToDisplay:="C:\Users\user\Desktop\新增資料夾 (2)\" & Cells(kka, 1) & ".bmp"
Next
End Sub

複製代碼

  多做多想多學習，少看少錯少迷途

  多做=多多練習，多多編寫。
  多想=想想為什麼人家程式要那樣寫，如果換成自己，又會怎寫。
  多學習=學習人家的發問並解答，學習人家的寫法

  少看=只看不做也枉然

TOP

dakiu

中學生 Rank: 2

帖子: 47
主題: 11
精華: 0
積分: 76
點名: 0
作業系統: winxp
軟體版本: office2007
閱讀權限: 20
性別: 男
註冊時間: 2010-7-24
最後登錄: 2024-2-5

3^#

發表於 2012-10-29 12:36 | 只看該作者

回復 2# mark15jill

受教了...感謝您....但不知是否有不用VB的方式...

TOP

dakiu

中學生 Rank: 2

帖子: 47
主題: 11
精華: 0
積分: 76
點名: 0
作業系統: winxp
軟體版本: office2007
閱讀權限: 20
性別: 男
註冊時間: 2010-7-24
最後登錄: 2024-2-5

4^#

發表於 2012-10-29 13:06 | 只看該作者

回復 3# dakiu

=HYPERLINK("\\ABserver\共用\指示\U\"&A1&".PDF")

終於不用VB測試OK!!

但是如何在C欄使用判斷式,如果無法開啟檔案則顯示為異常(IF用不出來)
，不知哪位大大可解惑....感謝!

TOP

mark15jill

　暱稱: 隨風飄蕩的羽毛
　頭銜: [御用]潛水艇

高中生 Rank: 3 Rank: 3

帖子: 852
主題: 79
精華: 0
積分: 918
點名: 0
作業系統: Windows 7 , XP
軟體版本: Office 2007, Office 2003,Office 2010,YoZo Office
閱讀權限: 50
性別: 男
來自: 宇宙
註冊時間: 2011-4-8
最後登錄: 2024-2-21

5^#

發表於 2012-10-29 13:10 | 只看該作者

回復 3# dakiu

=HYPERLINK("C:\Users\user\Desktop\新增資料夾 (2)\"&A1&".bmp")

你試著把你原本的程式碼
=HYPERLINK("\\ABserver\共用\指示\U",A1&".PDF")
改成
=HYPERLINK("\\ABserver\共用\指示\U"& A1&".PDF") 試看看

  多做多想多學習，少看少錯少迷途

  多做=多多練習，多多編寫。
  多想=想想為什麼人家程式要那樣寫，如果換成自己，又會怎寫。
  多學習=學習人家的發問並解答，學習人家的寫法

  少看=只看不做也枉然

TOP

kuoliang123