次の課題を考えています。初心者ですのでよろしくお願いします。
課題 Excel2007のシートに複数のテキストボックスを作成して、このテキストボックス内の文字(テキスト)をExcelのセルまたはWordにコピーしたいと考えています。OSはWin7です。
方法 Windows XP SP2とワード2003の場合に関して、下記URL
http://okwave.jp/qa/q4673231.html
に説明があったので、これを参照して
1 Excel2007ファイルを名前をつけて保存 → Webページで保存
2 保存されたhtmlファイルをブラウザで開き、それを名前をつけて保存(テキストファイル選択)
しかしながら保存されたテキストファイルをメモ帳で開いてみてもテキストボックス内の文字は保存されていません。
Webページで保存した場合、filesフォルダ内にテキストボックスがそのままイメージで保存されているので、この方法ではむずかしいのかもしれないと思っていますが、なんとかWebページ保存の方法でテキストボックス内の文字を抽出したいと考えていますので、どなたかよろしくお願いします。
No.1ベストアンサー
- 回答日時:
テキストボックスはオートシェープのテキストボックスのことですね?
Webページ保存の方法では画像になってしまいますからVBAでやってみました。
手順は以下のとおりです。簡単ですよ。
1.テキストボックスを配置してあるBOOKを開いたら、AltキーとF11キー同時に押し(以下Alt+F11キーと記述)て Visual Basic Editor を呼び出します。
2.Visual Basic Editor のメニューから「挿入」、「標準モジュール」で出てきたコードウィンド(右側の白い広い部分)に以下のコード(Sub~End Sub)をコピペします。
'********これより下**********
Sub test01()
Dim ns As Worksheet, ws As Worksheet
Dim tb As TextBox
Dim i As Long
Set ns = Worksheets.Add
For Each ws In Worksheets
For Each tb In ws.TextBoxes
i = i + 1
ns.Cells(i, 1).Value = tb.Text
Next tb
Next ws
ns.Activate
End Sub
'********これより上**********
3.Alt+F11キーでワークシートへもどります。
4.Alt+F8キーで出てきたマクロ名(test01)を選択して実行します。
これでそのファイル内のワークシートに配置したすべてのテキストボックスのテキストが、新たに挿入されたシートに転記されたと思います。
この回答への補足
大変有用ですばらしい回答をいただきまして本当にありがとうございます。
とりあえず2つのテキストボックスのあるシートで、ご教示いただいた通りにやってみましたが、一度で成功しました。
これから、より複雑なものに取り組んでみようと思っていますので、問題が発生しましたらまたよろしくお願いします。
あらためて、VBAの威力を痛感しましたので、これから自分もVBAを勉強しようと思います。
No.2
- 回答日時:
似たような質問に回答したこちら↓は参考になりませんか?
http://oshiete.goo.ne.jp/qa/6803969.html
上記質問でNo.2の回答内容を試してみてください。
コピーしたものを[形式を選択して貼り付け]で[テキスト]を
指定すれば、ExcelのセルやWordの本文として、貼り付け先
で保存することができると思います。
(Excel2007で検証していないので、確証なしですが)
マクロを使っていない方法で手間が多くなりますが、簡単な
ものなので、応用しやすいかと思います。
この回答への補足
回答ありがとうございます。さっそくやってみました。テキストボックスを含むExcelシートをブラウザでプレビューし、コピーして、Excelシートに形式を選択して貼り付けのテキスト形式で貼り付けたところ、Bitmapの表示がでて、テキストボックス内の文字は抽出されません。これは2003と2007の違いでしょうか。
もし、そのほかのご教示があればよろしくお願いします。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
歩いた自慢大会
「めちゃくちゃ歩いたエピソード」を教えてください。 長時間でも長距離でも結構です。
-
フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
あなたが普段思っている「これまだ誰も言ってなかったけど共感されるだろうな」というあるあるを教えてください
-
映画のエンドロール観る派?観ない派?
映画が終わった後、すぐに席を立って帰る方もちらほら見かけます。皆さんはエンドロールの最後まで観ていきますか?
-
海外旅行から帰ってきたら、まず何を食べる?
帰国して1番食べたくなるもの、食べたくなるだろうなと思うもの、皆さんはありますか?
-
天使と悪魔選手権
悪魔がこんなささやきをしていたら、天使のあなたはなんと言って止めますか?
-
excel 図形に入れたテキストやテキストボックスの文字をセルに書き出す
Excel(エクセル)
-
複数あるテキストボックス中のテキスト取り出し
その他(Microsoft Office)
-
Excelで、図形内の文字をセルに抽出したいです
Excel(エクセル)
-
-
4
エクセルテキストボックスの文字列をセルに引っ張ってくるやり方
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
【ExcelVBA】各セルをダブルク...
-
エクセルVBAを使用し、指定のパ...
-
メールをwordに変換して保存したい
-
QRコードを保存する方法を教え...
-
バイナリー保存のN88BASICプロ...
-
パソコン内臓カメラでの撮影方...
-
line
-
グーグルドライブ、勝手に共有...
-
JPEGの編集(一部を切り取り保...
-
illustratorで作ったロゴをWeb...
-
FFFTPでエラーがでます
-
MPEGファイルから、画像を切り...
-
WordPressのナビゲーションメニ...
-
テレビで放送された男性芸能人...
-
TIF JPGの画像回転ソフト
-
JPG画像をDVDプレーヤー...
-
アニ文字みたいなのをパソコン...
-
FFFTP上にあるファイルを直接修...
-
GIFアニメをブログに載せるには???
-
サーバーにUPしたホームページ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
【ExcelVBA】各セルをダブルク...
-
ワードの保存について
-
QRコードを保存する方法を教え...
-
エクセルVBAを使用し、指定のパ...
-
Outlook:予定表アイテ...
-
googlemapの保存済みリストが消...
-
Webページ保存によるテキストボ...
-
最近プリクラを撮るとピクトリ...
-
メールをwordに変換して保存したい
-
先日google document の文章をU...
-
プロダクトキーシールをきれい...
-
Flip Clipの動画保存方法を教え...
-
Google マップのマイマップの移行
-
Webページ上で飛び飛びの文章を...
-
ワード
-
asf動画ファイルから音楽だけを...
-
メール受信箱の保存の仕方(素人)
-
プリクラについてです 最後にメ...
-
パソコン版LINEのデータ保存先...
-
シフトJIS形式のテキストファイル
おすすめ情報