Gizport
1 回答
0
Share (facebook)
106
view
全般

エクセル セルをテキストファイルへ http://detail.ch...

エクセル セルをテキストファイルへ http://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q1013770190

他にも同様の質問があるようなのですが、思った結果が出ない為、改めて質問失礼致します。

私の場合はA1~A500まで各セルに似たhtml分が打ち込まれております。

これらを各セルずつ自動で.txtファイルに変換したいのですが、
各セルの内容が1000文字程ある点と、
作成されたテキストファイルのタイトルがセルの位置、
例えばA1ならテキストファイルがA1.txtになって欲しい。

office2007使用しておりまして、マクロ初心者です。
上記の過去の質問の方法を試してみましたが、簡単なデータ内容だったら利用できましたが、
今回の長文html内容ですと製作されませんでした。

何方か解決方法が分かればご教授下さい。
よろしくお願い致します。
Yahoo!知恵袋 5096日前
コメントする
お気に入り
1
質問者が選んだベストソリューション
ファイル名をA1.txtにしたいというので1ファイルを生成したいのかと思いましたが、
500個ファイルを作りたいなら下の通り。ファイル名は A1 (番号).txt になります。
htmlファイルを作りたいなら".txt"を ".html"に変えて下さい。

Sub TXT2()
Dim FN As Integer, i As Long, FNN, PS As String
PS = ActiveWorkbook.Path
FN = FreeFile
For i = 2 To 500 ’A1はファイル名なので2から500。
FNN = Range("A1").Value & "(" & i -1 & ")"
Open PS & "" & FNN & ".txt" For Output As #FN
Print #FN, Cells(i, "A").Value
Close #FN
Next i
End Sub
Yahoo!知恵袋 5096日前
シェア
 
コメントする
 

参考になったと評価
  このQ&Aは参考になりましたか?

Share (facebook)
その他の解決方法を知っていますか?
回答する
全般
74
Views
質問者が納得ドライバはインストールしましたか? 基本的な初期設定されてますか? パソコンが何かにもよりますしね。
4422日前view74
全般
62
Views
質問者が納得B2に以下のように入力して、B22までコピーして下さい。 =INDEX(Sheet1!$A$101:$A$150,INT(RAND()*50)+1) 表示させたい範囲を変更する場合は Sheet1!$A$101:$A$150 の"101"と"150"の部分をそれぞれ変更。同時に、RAND()*50 の"50"を単語の数(例では101~150までの50単語)に合わせて修正し、その修正した関数を再度B22までコピーして下さい。
4462日前view62
全般
68
Views
質問者が納得ICONIA TAB の W ならタブレットPC ですが、 Aシリーズはタブレット端末ってヤツですね。 >ノートPCと同じくネットが見れると考えてよいのでしょうか? むりです。 パソコンではなく、携帯電話の親戚です。 補足 3Gは積んでないので、勝手に通信はしません。 無線ランは持ってますよね? 無いと、インターネットとかできませんけど。
4472日前view68
全般
81
Views
質問者が納得【無線LAN Q&A情報】を参考にして下さい。 http://buffalo.jp/qa/wireless/index-airstation-01.html バッファロー、アンドロイド端末をワンタッチでWi-Fi接続できる「AOSS for Android」の提供を開始 AOSS for Androidは、バッファロー独自の無線LAN簡単設定システムである。 「AOSS」をアンドロイド端末からでも実行できるようにするアプリで、バッファロー製 無線LANルーターとのWi-Fi接続をボタンひとつで行う...
4511日前view81
全般
108
Views
質問者が納得IS03で(PdaNet使って)USBテザリング出来るのはPCが対象。WiFiテザリング使って下さい。あと、PdaNet入れるのはIS03の方だけどPdaNetの使用レビューをよく見てヒントを先に探しておいた方が良いかと。Web上で紹介している記事も有ります。→http://www.google.co.jp/search?hl=ja&source=hp&q=pdanet+is03&lr=&gbv=2&oq=pdanet+is03>捕捉IS03だとwifiテザリン...
4542日前view108

取扱説明書・マニュアル

1105view
http://fujifilm.jp/.../ff_finepixa400a500_mn_j100.pdf
148 ページ3.72 MB
もっと見る

関連製品のQ&A