エクセルに1000件くらいのデータがあります。

1件づつhtmlファイル化したいと思っています。

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

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

回答の条件
  • 1人2回まで
  • 登録:2007/03/09 14:17:27
  • 終了:2007/03/16 14:20:04

回答(2件)

id:en_nutmeg No.1

ナツメグ回答回数59ベストアンサー獲得回数32007/03/09 15:52:07

ポイント35pt

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

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

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

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

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

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

id:dorasuke

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

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

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

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

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

2007/03/09 16:17:55
id:SALINGER No.2

SALINGER回答回数3454ベストアンサー獲得回数9692007/03/09 19:17:23

ポイント35pt

ツールではなく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

  • id:dorasuke
    SALINGERさん、ありがとうございました。
    VBA使うのは初めてだったので苦労しましたが、
    何とかできました!
    お礼が遅くなってしまい申し訳ないです。

この質問への反応(ブックマークコメント)

「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

絞り込み :
はてなココの「ともだち」を表示します。
回答リクエストを送信したユーザーはいません