エクセルＶＢＡでリストを仕分けしてファイル出力

解決済

質問者：oshiete100goo
質問日時：2014/10/12 11:56
回答数：2件

会社リストからＨＴＭＬファイルを作成しています。
１つの地域で１つのファイルにしています。
地域によっては会社数が多くなってきたので、
２０社ごとにファイルを別にして出力したいと考えております。

tokyo
tokyo2
tokyo3
tokyo4
　・
　・
　・

Ｇ列のファイル名を２０社ごとに変換するには
以下のソースをどのように改良すれば良いのか、ご教授願います。

Sub HTMLファイル出力()
Dim myPath As String
Dim i As Long
myPath = Environ("USERPROFILE") & "\Desktop\Hoge\"
Range("A:G").Sort Key1:=Range("G2"), Header:=xlYes, MatchCase:=False, _
Orientation:=xlTopToBottom
For i = 2 To Range("G1").End(xlDown).Row
If Range("G" & i).Text <> Range("G" & i - 1).Text Then
Open myPath & Range("G" & i).Text & ".html" For Output As #1
Print #1, "<!DOCTYPE html>" & vbNewLine _
& "<html lang=""en"">" & vbNewLine _
& "<body>" & vbNewLine _
& "<div class=""span3"" id=""sidebar"">" & vbNewLine
End If
Print #1, "<div class=""widget"">" & vbNewLine _
& "<h4 class=""widgetTitle"">" & Range("A" & i).Text & "</h4>" & vbNewLine _
& "<ul><li>" & Range("B" & i).Text & "</li>" & vbNewLine _
& "<li>" & Range("C" & i).Text & "</li>" & vbNewLine _
& "<li>" & Range("D" & i).Text & "</li>" & vbNewLine _
& "<li>" & Range("E" & i).Text & "</li></ul></div>" & vbNewLine
If Range("G" & i).Text <> Range("G" & i + 1).Text Then
Print #1, "</div>" & vbNewLine & "</body>" & vbNewLine & "</html>"
Close #1
End If
Next
End Sub

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (2件)

ベストアンサー優先
最新から表示
回答順に表示

No.1ベストアンサー

回答者： bin-chan
回答日時：2014/10/12 15:13

現在のコードだと列Ｇの値で1社ずつの別ファイルで出力される。

これを20社で１ファイルとしたい。
で合ってます？

> If Range("G" & i).Text <> Range("G" & i - 1).Text Then
と
> If Range("G" & i).Text <> Range("G" & i + 1).Text Then
の行で会社が変ったことを判断しています。
なのでここに手を加える。

ここでカウンタを数え、20以内ならファイルオープン・クローズ操作しない。
20の倍数（カウンタ Mod20 =0)ならファイルオープン・クローズする。
ファイル名は”tokyo” & trim（カウンタを20で割った商（整数）＋1）
クローズ時にはカウンタをリセットする。
Forループ終了時にカウンタの20の剰余を判断し、0でなければクローズ操作する。
（不要なのは会社数が20の倍数の時にループ内でクローズしてる場合）

- 0
- 件

通報する

この回答へのお礼

回答ありがとうございます。
当方、まったくの初心者なのです。
＊カウンタを数え、20以内なら・・
＊ファイルオープン・クローズ操作しない・・
＊クローズ時にはカウンタをリセット・・
＊Forループ終了時にカウンタの20の剰余を判断し・・
何をどうすればよいのか分からない状態です。
お手上げ状態です。

通報する

お礼日時：2014/10/12 17:49