/ / Editovanie viacerých externých odkazov v programe Excel s makro - excel, vba, excel - vba, upraviť

Úprava viacerých externých odkazov v programe Excel s makro - excel, vba, excel - vba, upraviť

Moje znalosti VBA nie sú nepoškodené, takže sa ospravedlňujem vopred. Každý mesiac musím upraviť odkazy v mojich súboroch a zmeniť referenčný mesiac (napr .: Jul -xxxxx až Aug-XXXxxx)

Mám makro nasledujúci zoznam externých odkazov na hárku (napr. A1: A6)

Sub Display_Links()
"
" Display_Links Macro
"
" Keyboard Shortcut: Ctrl+l
"
Dim aLinks As Variant
Dim i As Integer
aLinks = ActiveWorkbook.LinkSources(xlExcelLinks)
If Not IsEmpty(aLinks) Then
For i = 1 To UBound(aLinks)
ActiveCell.Offset(i, 0) = aLinks(i)
"       ActiveCell.Offset(i, 0).Hyperlinks.Add Anchor:=ActiveCell.Offset(i, 0), Address:=ActiveCell.Offset(i, 0)
Next i
End If

End Sub

kde som potom kopírovať a prilepiť tento rozsah na B1: B6, a nájsť a nahradiť mesiac (od júla do augusta), takže mám nové odkazy, ktoré potrebujem na hárku.

Potom mám nasledujúce makro:

Sub Linkupdate()

ActiveWorkbook.ChangeLink Range("A1").Text, _
Range("B1").Text, xlExcelLinks

End Sub

Pomocou toho môžem zmeniť každý odkaz, ale ako môžem definovať celý rozsah (a1: a6), ktorý sa má aktualizovať pomocou (b1: b6)?

Veľká vďaka!

TL; DR - Pokúsim sa upraviť viac odkazov na WB bez použitia funkcie upravovať odkazy ako jedinú zmenu, ktorú musím urobiť, je zmeniť mesiac (napr .: Jul -xxxxx až Aug-XXXxxx)

odpovede:

0 pre odpoveď č. 1

Predpokladám, že práve to, čo práve pracujete, stačí, aby sa to stalo vlastným. Vaša bude musieť urobiť slučku, aby Excel vedel, koľko buniek zachytiť.

Niečo ako:

Sub Linkupdate()
Dim Row As Integer

Row = 1
LastRow = Worksheets("WorksheetName").Cells(Rows.Count, "A").End(xlUp).Row

Do while Row <= LastRow
ActiveWorkbook.ChangeLink Range("A" & row).Text, _
Range("B" & row).Text, xlExcelLinks
Row = Row + 1
Loop
End Sub