/ /マクロでExcel上で複数の外部リンクを編集する - excel、vba、excel-vba、edit

Excelで複数の外部リンクをマクロで編集する - Excel、Excel、Excel、Excel

私のVBAの知識はあまりにも真実ではないので、あらかじめ謝罪してください。毎月ファイルのリンクを編集して基準月を変更する必要があります(例:Jul-XXXxxxからAug-XXXxxx)

私はシート上の外部リンクをリストするために以下のマクロを持っています(例えば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

その範囲をコピーしてB1:B6に貼り付け、その月を見つけて(7月から8月まで)置き換えて、シートに必要な新しいリンクを作成します。

それから私は次のマクロを持っています:

Sub Linkupdate()

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

End Sub

これで私は各リンクを変更できますが、(b1:b6)で更新する範囲(a1:a6)全体をどのように定義すればよいですか?

どうもありがとう!

編集リンク機能を使わずにWBの複数のリンクを編集しようとすると、月を変更するだけです(例:Jul -xxxxxをAug -xxxxxに変更)

回答:

回答№1は0

あなたが現在働いていることを前提にして、あなたはそれが自分自身でループしたいと思っています。あなたはループを遂行しなければならないので、キャプチャする細胞数をExcelで把握する必要があります。

何かのようなもの:

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