人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

エクセルに1000件くらいのデータがあります。
1件づつhtmlファイル化したいと思っています。

データは既にタグ付けがされており、そのままテキストにコピーしてhtml形式・EUCコードにて保存すればOKなのですが…1000件もあるので、作業が面倒です(^_^;)

良いツールなどご存じないでしょうか。

●質問者: どらすけ
●カテゴリ:コンピュータ ウェブ制作
✍キーワード:EUC HTML けが エクセル コピー
○ 状態 :終了
└ 回答数 : 2/2件

▽最新の回答へ

1 ● ナツメグ
●35ポイント

Office文書のテキストを抽出するソフトです。

コマンドラインなのですこしとっつきにくいですが

複数のファイルを一括してテキスト化も可能です。

http://www31.ocn.ne.jp/~h_ishida/xdoc2txt.html

レビューと基本的な使い方

http://www.forest.impress.co.jp/article/2003/11/19/xdoc2txt.html

◎質問者からの返答

すみません、質問の仕方が悪かったかもしれません。

一つのデータにつき一つのファイル、つまり1000個のhtmlファイルが必要なのです。

回答して頂いたソフトだと、生成されるファイルは一つだけのようなので違う気がしました。

でも、このソフトは色々役に立ちそうですね。

他のところで使ってみます!ありがとうございました。


2 ● SALINGER
●35ポイント

ツールではなくVBAで作成するコードです。

データがどのように入っているのかが分からないけれど、

一つのセルに一つのデータが入っているのならば。

データが入っているセルを選択して以下のコードを実行。

Sub Macro1()
 ' 参照設定:Microsoft Scripting Runtime
 ' Excelのブックと同じ場所にDATAという名前のフォルダを作ってください。
 ' そこに連番でHTMLファイルを作成します。
 Const myAddress = "\DATA\"
 Dim FSO As New FileSystemObject
 Dim TS As TextStream
 Dim myCell As Range
 Dim num As Long
 For Each myCell In Selection
 Set TS = FSO.CreateTextFile(Filename:=ThisWorkbook.Path & myAddress & num & ".html", Overwrite:=True)
 TS.Write (myCell.Value)
 TS.Close
 num = num + 1
 Next myCell
 Set TS = Nothing
 Set FSO = Nothing
End Sub

できたファイルを一括してEUCに変換するツールはこちらなど。

http://www.vector.co.jp/soft/win95/util/se326595.html

関連質問


●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ