> 早速のアドバイス大変ありがとうございました。
> 最初から白状すれば良かったのですが、お恥ずかしいことに
> この方面の知識はほとんどありません。
> 場違いだから出直せと言われればそのとおりで、大変申し訳
> ありません。
ちょっと、あなたがどの程度わかってる人なのか、判断しかね
ないのですが、
とりあえず、
Excelを起動して、Alt+F11キーを押して、開いたウィンドウで、
メニューの「挿入」ー「標準モジュール」をクリック。
開かれたウィンドウに以下の分を貼り付けて、
マクロ（CommentExport）の実行。
Public Sub CommentExport()
Dim sFileName As String
Dim nFileNo As Long
Dim ws As Worksheet
Dim ce As Range
Dim cm As Comment
'On Error GoTo ErrorHandle
' 出力ファイル名の入力
sFileName = InputBox("出力するファイル名を入力してください。", "Comment Export")
If sFileName = "" Then
Call MsgBox("キャンセル or 未入力")
Exit Sub
End If
' ファイルを開く
nFileNo = FreeFile
Call Kill(sFileName)
Open sFileName For Output As #nFileNo
' シート分ループ
For Each ws In ActiveWorkbook.Worksheets
' シート情報出力
Print #nFileNo, "シート名：" & ws.Name
Print #nFileNo, "シート内のコメント数：" & ws.Comments.Count
' コメント分ループ
For Each cm In ws.Comments
' コメントの親（セル）を取得
Set ce = cm.Parent
' コメント情報を出力
Print #nFileNo, vbTab & "コメント：" & cm.Text
Print #nFileNo, vbTab & "コメントのついてるセルの値：" & ce.Value
Print #nFileNo, vbTab & "コメントのついてるセルの位置："; ce.Column & "列，" & ce.Row & "行"
Print #nFileNo, vbTab
Next
Next
' ファイルを閉じる
Close #nFileNo
Exit Sub
ErrorHandle:
Call MsgBox("エラーが発生しました", vbCritical, "Comment Export")
Exit Sub
End Sub
実行すると、出力先を聞いてきますので、
適当に入れて(C:\Comment.txtなど)、ファイルを出力します。
どういう情報をどういう状態でエクスポートしたいのか、
わからないので、それらしい情報を出力するように、
サンプルはしてあります。
ご自身で、自分のほしい形に改造して、お使いください．
わからんところがあれば、また書き込んでください。
|