Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
9573 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【26620】リンクの総数を取得したいのですが 記録マクロに毛が３本 05/7/12(火) 10:53 質問[未読]
【26623】Re:リンクの総数を取得したいのですが 記録マクロに毛が３本 05/7/12(火) 11:05 回答[未読]
【26620】リンクの総数を取得したいのですが
質問  記録マクロに毛が３本  - 05/7/12(火) 10:53 -
引用なし
パスワード
   以下のマクロを作成したのですが
このままだと999回処理を行ってしまう為
シートのリンクの総数を取得したいのですが

Sub XLS間リンク解除()
On Error Resume Next
For x = 1 To 999
ActiveWorkbook.BreakLink _
　　 Name:=ActiveWorkbook.LinkSources(Type:=xlLinkTypeExcelLinks)(1), _
　　 Type:=xlLinkTypeExcelLinks
Next x
End Sub

ActiveWorkbook.BreakLink.Countでは「引数は省略できません」と
メッセージが出るし・・・
【26623】Re:リンクの総数を取得したいのですが
回答  記録マクロに毛が３本  - 05/7/12(火) 11:05 -
引用なし
パスワード
   総数の取得は出来なかったけど
リンク全部は消せました
何方かの参考になれば良いなと思いつつ一応載せます

aLinks = ActiveWorkbook.LinkSources(xlLinkTypeExcelLinks)
If Not IsEmpty(aLinks) Then
　　For i = 1 To UBound(aLinks)
　　 ActiveWorkbook.BreakLink _
　　　　Name:=ActiveWorkbook.LinkSources(Type:=xlLinkTypeExcelLinks)(1), _
　　　　Type:=xlLinkTypeExcelLinks
　　Next i
End If
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
9573 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free