[發問] 關於自動貼上連結至另一個檔案並自動插入超連結

starry1314

請問像以下指令如何將
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
        "..\..\業務\業務明細.xlsm"   這串的address寫成

疑問Q1:我在Q3儲存格使用 CELL(filrname)叫出來的檔案名稱路徑呢?  原本地址是設定好的 想讓他隨著檔案的變動也跟著變動
        Q2:如何在這些指令插入 EndRow = ActiveSheet.UsedRange.Rows.Count + 1 '所有使用中的列數+1 這條指令呢

想讓他在所有使用中列數+1並且可插入超連結

範例-自動插入超連結.rar (277.7 KB)

下載次數: 7

2015-5-5 16:57

1. Sub 貼上資料至_業務管理()
   
2. '
   
3. ' 貼上資料至_業務管理 巨集
   
4. '
   
5.     Range("A3:P3").Select
   
6.     Selection.Copy
   
7.     Windows("客戶明細-業務專用.xlsm").Activate
   
8.     Range("B7").Select
   
9.     ActiveSheet.Paste Link:=True
   
10.     Windows("客戶明細-業務專用.xlsm").Activate
    
11.     ActiveSheet.Paste Link:=True
    
12.     Application.CutCopyMode = False
    
13.     ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
    
14.         "..\..\業務\業務明細.xlsm"
    
15. 
    
16. End Sub

複製代碼

下載 (218.53 KB)

2015-5-5 17:01

下載 (220.78 KB)

2015-5-5 17:02

starry1314

請問有人可以交一下adrdrees那邊的指令該如何設定嗎

lpk187

回復 2# starry1314


    看不懂你的連結是要連到哪裡，
像這樣嗎？
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="客戶明細-業務專用.xlsm", SubAddress:="五月!A1"

starry1314

回復  starry1314


    看不懂你的連結是要連到哪裡，
像這樣嗎？
ActiveSheet.Hyperlinks.Add Anch ...
lpk187 發表於 2015-5-5 22:01

在個別客戶明細內有個轉置按鈕-是要將客戶的個資自動貼上連結到業務明細那邊,好讓業務之後可以從[業務明細]的檔案內直接點擊連結到[個別的客戶明細]
是要將[個別客戶明細]的資料做超連結至[業務明細],個別客戶明細的檔名不是固定的每個檔案都屬於個人,至於[業務明細]則是固定的

lpk187

回復 2# starry1314


    還是這樣？
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="個別客戶明細(請先另存新檔).xlsm", SubAddress:="收款跟催!Q2"

還有你的連結要放哪裡？你的問題中也沒說清楚！所以我只能猜測

starry1314

回復 5# lpk187


    我原本設定在個別客戶明細的按鈕(是將本頁A2:P2)的資料貼到(業務明細)的檔案去
  但目前不知道怎麼用才可讓他自動插入超連結(隨目前[客戶明細.xlsm]檔案而自動變更
只知道在adrwwa=_後方加入指定的路經可以自動插入超連結成功,但不會寫隨檔案位至變動而自動變動
想說在Q2設cell(filename) 可讓他讀取路徑,在自動貼上~但都無效果

starry1314

回復 5# lpk187


    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
        "..\..\業務\個別客戶明細.xlsm" <<這串為指定位置,想改成讓他自動讀取我目前檔案所在的路徑,並插入超連結至[業務明細]

starry1314

回復 6# starry1314


    讓A檔案的資料自動貼到B檔案,並在B檔案複製過去的資料欄位上,插入目前A檔案所在位置的超連結路徑

lpk187

回復 6# starry1314


    Windows("客戶明細-業務專用.xlsm").Sheets("五月").Hyperlinks.Add Anchor:=Windows("客戶明細-業務專用.xlsm").Sheets("五月").Range("B7"), Address:=ThisWorkbook.Name, SubAddress:=ActiveSheet.Name & "!Q2"
其中 ThisWorkbook.Name 是"取得"個別客戶的工作簿名稱
ActiveSheet.Name是目前的工作表名稱
會用這2個是你說個別客戶的工作簿名稱會不同所以可以用這樣來讀取其名稱

lpk187

回復 7# starry1314


    若要再讀取路徑可用ThisWorkbook.Path & "\" & ThisWorkbook.Name
所以可以這樣 Address:=ThisWorkbook.Path & "\" & ThisWorkbook.Name, SubAddress:=ActiveSheet.Name & "!Q2"