エクセルデーター使用のテキスト

[18642]エクセルデーター使用のテキスト 投稿者:とーます 投稿日:2008/11/21 11:11:27
こんにちは。
仕事を行う上でこういうのってないのかな?とを探しています。

お客様からのエクセルデーターで、テキストのみを取り出したいのです。
エクセルで作られているテキストは、セルに入力したものと
ワードアートで作られているものがありますが、
すべての文字を、テキストエディットもしくは、ワードに
置き換えたいのですが、どなたか方法を知りませんか?
エクセルから、文字のみを取り出す場合、
ボックスを指定して、「ワードアートテキスト編集」の
ウィンドを出してコピペ。
ひとつづつやっていては、多大なる時間の無駄でして。

しかも、なぜかWinで作られたデーターはMacで開くと
全然動きません。

どなたかご存じの方、よろしくお願いします。

環境は、OSX10.4.8 です。
エクセルは、2004 fo rmacを使っています。
Re: エクセルデーター使用のテキスト 投稿者:ひよっこ 投稿日:2008/11/21 12:23:48
Office2004 for macを使ったことがないのでよくわかりませんが、
エクセル上の文字をテキストデータとして取り出したいのなら、別名でテキスト保存ではダメなのでしょうか・・・
Re: エクセルデーター使用のテキスト 投稿者:いき♂ 投稿日:2008/11/21 13:32:42
attached imageいったんHTMLで保存してください。
FireFoxで開き、ファイル→名前を付けてページを保存。
テキスト形式を選んで保存します。
すると、タブ区切りテキストとして書き出されます。
ワードアートがタブ区切りのどこに書き出されるかについては、エクセル上で配置してあるセルの位置によりますけれども。
手作業でコピペより若干マシな程度かも知れませんが。
Re: エクセルデーター使用のテキスト 投稿者:あぷらいと 投稿日:2008/11/21 13:49:44
Macは所有していないので確認は取れないのですが、
Windows Excel 2003 でマクロを使ってできます。
特別のことはしていないのでMacでも動くのではないかと思います。
セル"A1" の辺りにワードアートのテキストをまとめた
テキストボックスが作成されます。
=================================
Sub WordArtText()

Dim shapecnt
Dim WA
WA = ""
On Error Resume Next
For shapecnt = 1 To ActiveSheet.Shapes.Count
  ActiveSheet.Shapes(shapecnt).Select
  WA = WA & Selection.ShapeRange.TextEffect.Text & Chr(10)
Next shapecnt
On Error GoTo 0
Range("A1").Select
ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, 5, 5, 200, 200).Select
Selection.Characters.Text = WA
MsgBox "おわりました"
End Sub
=================================
Re: エクセルデーター使用のテキスト 投稿者:CS3初心者 投稿日:2008/11/21 18:54:52
AppleのiWorkに入っているNumbersというソフトはお試しになりましたか?
Excelのスプレッドシートを読み込んだり、
文書を書き出したりすることができます。
以前Excelデータを渡されて作業しなくてはならかった時、
フリートライアルを見つけて、その場をしのぎました。
ご希望通りのデータができるかどうかは不明ですが
フリートライアルですので、試してみてはいかがでしょう。
アップルサイト↓
*http://www.apple.com/jp/iwork/numbers/#overview
Re: エクセルデーター使用のテキスト 投稿者:いき♂ 投稿日:2008/11/21 21:16:54
> CS3初心者さん
*http://ascii.jp/elem/000/000/108/108752/

iWorkは、Excelのスプレッドシートを読み込むことはできますが、ワードアートは簡素化された図として変換されるようです。
Re: エクセルデーター使用のテキスト 投稿者:とーます 投稿日:2008/11/25 14:29:40
皆さん、ありがとうございました。
さっそく、試してみます。

これで、作業効率も格段に上がることと思います。
ホントにありがとうございました♪
この記事の書き込み元へのリンク (コメントや質問などはこちらへどうぞ)