Link excel với VBA

[doanduyhung]

Bạn nào biết cách sử dụng VBA để tạo các liên kết cho cells hoặc range

của nhiều file excel ko vậy? Giúp với

 

[TranThanhPhong]

Chào bạn,

Ví dụ sau sẽ tạo 2 liên kết trong file Link1:
- Liên kết từ ô A1 của Sheet1 đến ô A100 của Sheet2. (Link trong workbook)
- Liên kết từ ô A10 của Sheet1 đến ô C35 của Sheet1 của file Link2. (Link đến workbook khác).

Sub MakeLink()
'Tao link trong 1 workbook tu A1 c?a Sheet1 link den o A100 cua Sheet2
ActiveSheet.Hyperlinks.Add Anchor:=ActiveSheet.Range("A1"), Address:="", SubAddress:="Sheet2!A100", TextToDisplay:="Link1"
ActiveSheet.Hyperlinks.Add Anchor:=ActiveSheet.Range("A10"), Address:="Link2.xls", SubAddress:="Sheet1!C35", TextToDisplay:="Link2"
End Sub

Ghi chú:
Anchor: là địa chỉ hiện Hyperlink (Source)
Address: địa chỉ workbook, nếu link nội bộ workbook thì bỏ trống (Target)
SubAddress: địa chỉ ô sẽ link đến (có thể dùng Name cũng được) (Target)
TextToDisplay: Nội dung hiển thị trong ô Hyperlink

TP.

 

[doanduyhung]

Cho mình hỏi thêm 1 cái:
Mình đang ở file link1, nếu muốn copy sheet1.cells(1,1) của link2.xls vào sheet1.cells(1,1).xls của link1 thì làm sao nhỉ.

 

[TranThanhPhong]

Cho mình hỏi thêm 1 cái:
Mình đang ở file link1, nếu muốn copy sheet1.cells(1,1) của link2.xls vào sheet1.cells(1,1).xls của link1 thì làm sao nhỉ.

Chào bạn doanduyhung, bạn copy bình thường bằng lệnh trên Menu, Nếu muốn dùng VBA thì đây:

Sub CopyRange()
'Gia su 2 tap tin Link1.xls, Link2.xls de chung thu muc và Thu tuc nay trong Link2.xls
Dim txtPath As String
txtPath = ActiveWorkbook.Path
Sheets("Sheet1").Range("A1").Select
Selection.Copy

'Mo Link1.xls de Paste vao sau do dong Link1.xls
Workbooks.Open Filename:=txtPath & "\Link1.xls"
Sheets("Sheet1").Range("A1").Select
ActiveSheet.Paste
ActiveWorkbook.Save
ActiveWindow.Close
End Sub

TP.