![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
A 回答 (2件)
- 最新から表示
- 回答順に表示
No.2
- 回答日時:
こんにちは。
大変失礼しました。私は、質問を読み違えてしまいました。
変更したのは、下の部分のOpenFiles の部分だけです。
これで様子をみてください。
'//
Sub RemoveHeperlinkObject()
Const mPATH As String = "C:\Users\[UserName]\My Documents\Test1\" '行末には¥を入れること
Dim FName As String
FName = Dir(mPATH & "*.xls?", vbNormal)
Do While FName <> ""
If FName <> "." And FName <> ".." Then
If (GetAttr(mPATH & FName) And vbNormal) = vbNormal Then
Call OpenFiles(mPATH & FName)
End If
End If
FName = Dir
Loop
End Sub
'//
Sub OpenFiles(ByVal fn As String)
Dim flg As Boolean
Dim ar As Variant
Dim n As Variant
With Workbooks.Open(fn) 'これ以下変更
ar = .LinkSources(Type:=xlLinkTypeExcelLinks)
If Not IsEmpty(ar) Then
For Each n In ar
.BreakLink Name:=n, _
Type:=xlLinkTypeExcelLinks
Next
End If
If .Saved = False Then
.Save
End If
.Close False
flg = False
End With
End Sub
'///
No.1
- 回答日時:
あくまでも、リンクだけを取り去ればよいのですね。
文字は、そのままです。もし、ファイル数が多い場合は、On Error トラップを設けて、エラーで止まらないようにしますが、今回は、少ないのでそのままにしています。なお、編集されたかどうかは、タイムスタンプを見れば分かります。編集されていないファイルは、タイムスタンプは前のままです。'//
Sub RemoveHeperlinkObject()
Const mPATH As String = "C:\Users\[UserName]\My Documents\Test1\" '行末には¥を入れること
Dim FName As String
FName = Dir(mPATH & "*.xls?", vbNormal)
Do While FName <> ""
If FName <> "." And FName <> ".." Then
If (GetAttr(mPATH & FName) And vbNormal) = vbNormal Then
Call OpenFiles(mPATH & FName)
End If
End If
FName = Dir
Loop
End Sub
Sub OpenFiles(ByVal fn As String)
Dim sh As Worksheet
Dim hyp As Hyperlink
With Workbooks.Open(fn)
For Each sh In .Worksheets
For Each hyp In sh.Hyperlinks
hyp.Delete
Next hyp
Next sh
If .Saved = False Then
.Save
End If
.Close False
End With
End Sub
'///
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・ゆるやかでぃべーと タイムマシンを破壊すべきか。
- ・「I love you」 をかっこよく翻訳してみてください
- ・歩いた自慢大会
- ・許せない心理テスト
- ・字面がカッコいい英単語
- ・昔のあなたへのアドバイス
- ・かっこよく答えてください!!
- ・あなたが好きな本屋さんを教えてください
- ・スタッフと宿泊客が全員斜め上を行くホテルのレビュー
- ・【大喜利】【投稿~8/27】 こんなガソリンスタンド二度と来るか!なぜそう思った?
- ・これ何て呼びますか Part2
- ・人生で一番思い出に残ってる靴
- ・【お題】動物のキャッチフレーズ
- ・【お題】甲子園での思い出の残し方
- ・ゆるやかでぃべーと すべての高校生はアルバイトをするべきだ。
- ・「それ、メッセージ花火でわざわざ伝えること?」
- ・自分用のお土産
- ・人生で一番お金がなかったとき
- ・一番好きなみそ汁の具材は?
- ・泣きながら食べたご飯の思い出
- ・ちょっと先の未来クイズ第1問
- ・ゴリラ向け動画サイト「ウホウホ動画」にありがちなこと
- ・初めて自分の家と他人の家が違う、と意識した時
- ・単二電池
- ・チョコミントアイス
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルVBAでセルに入力したパ...
-
excelに貼り付けた数値が勝手に...
-
ファイルを並び替えるときの「...
-
EXCELファイルが開けない(-_-;)
-
エクセル 一括リンクの解除
-
エディタで効率的な切り出し方法
-
excel INDIRECT 他ファイル参照
-
Excelでリンクを使用すると#N/A...
-
エクセルVBAで指定フォルダ内の...
-
エクセル:フォルダ内のファイ...
-
CDBurnerXP「ファイル名が長す...
-
EXCELのVBAで画像を選んだ順に...
-
PDF ファイルが開けません。
-
エクセルVBAで複数のファイ...
-
ローマ字→カタカナへ変換(エク...
-
EXCELのセルへ、デジタル時計を...
-
Excel:コマンドボタンの移動
-
コマンドボタンを押すたびに大...
-
マクロ 実行ボタンを押さずに...
-
スクロールしてもボタンを常に...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルVBAでセルに入力したパ...
-
excelに貼り付けた数値が勝手に...
-
【マクロ】2回実行したら、エ...
-
EXCELのVBAで画像を選んだ順に...
-
Teraマクロで日付ディレクトリ...
-
VLOOKUP関数とネットワークに置...
-
ファイルを並び替えるときの「...
-
EXCELのマクロを使って、テキス...
-
エディタで効率的な切り出し方法
-
excel INDIRECT 他ファイル参照
-
ハイパーリンクで前回値をひき...
-
=CELL("filename")で取得したフ...
-
エクセルからスキャナVBAで連動...
-
CSVで文字化けしてしまうのを直...
-
PDF ファイルが開けません。
-
Excelのマクロを実行しても、エ...
-
Excelでリンクを使用すると#N/A...
-
Notes 開発で、 excelファイル...
-
エクセルファイルから指定した...
-
エクセルVBAで指定フォルダ内の...
おすすめ情報
ありがとうございます!
すみません、リンクも色々あるかもしれません。
マクロの記録で確認したところ、以下のようにでましたので、Breaklinkを使用するようです。
どのように修正すればよいか教えて頂けますと幸いです。
ActiveWorkbook.BreakLink Name:= _
"\\○○\○○.xlsx" _
, Type:=xlExcelLinks