> Excel97の任意のシートに存在する、セルに設定されたコメント
> のテキストをテキストファイルにエクスポートしたいのですが、
> どなたかご存じの方いらっしゃらないでしょうか？
> テキストは全て英文で、コメントが設定されたセルは各シートで
> 任意の位置にあります。シート内のテキストと同時でもかまいま
> せん。
環境が書いてないから、何でやりゃいんか、わからん。
VB？VC？ExcelVBA？
とりあえず、ExcelVBAでサンプルを提示します。
（Exccel97が手元に無いので、Excel2000で動作確認しました。）
Public Function GetComment(sCellVal As String) As String
Dim ws As Worksheet
Dim ce As Range
GetComment = ""
Set ws = ActiveSheet
Set ce = ws.Cells.Find(sCellVal)
If ce Is Nothing Then
Exit Function
End If
If ce.Value <> sCellVal Then
Exit Function
End If
GetComment = ce.Comment.Text
End Function
任意のシートを探すのであれば、各シートをループするなり
してください。
VB・VCの場合でも処理の手順はいっしょなので、これで
わかるでしょう。
あとはテキストファイルに書き出せばいいだけ。
|