Excelの表をhtmlタグではきだしたい
エクセルで作成したものを、ちょっとだけ加工してhtmlタグにしてしまいたい時があるのはわたしだけなんでしょうか？
同じようなhtmlファイル、中の数字だけ違う、
とか、
スケジュール表とか
特にスケジュール表なんかは、曜日を自動取得させて、時間やら予定やら、色とか形とか整えるのに、Excelって便利！と思うのです
だから、その作ったものにいい感じに、idやckassや<span>を埋め込んで、txtではきだしてしまおうかと
（相変わらず覚書程度の記述の仕方…）
A1に日にち
A2に曜日（関数で自動取得）
A3に時間
A4に予定内容
↑の場合です
VBAの記述は以下↓
Sub 何かかっこいい名()
Dim StrFN As String
‘吐き出すファイルのパスと名前
HFname = ActiveWorkbook.Path & “tbl.txt”
Dim youbi As String
Dim Naiyou As String
Dim i As Long, LngLoop As Long
Dim HakidashiFile As Integer
‘シートの最終行を取得
Worksheets(“Sheet1”).Activate
LngLoop = Range(“a65536”).End(xlUp).Row
HakidashiFile = FreeFile
‘ファイルをオープン
Open HFnam For Output As #HakidashiFile
Print #HakidashiFile, “??????????? <table border=0 cellspacing=0 cellpadding=0>”
For i = 5 To LngLoop
‘半角カナを全角に
Naiyou = StrConv(Cells(i, 4).Value, vbWide)
‘曜日の取得
If Cells(i, 2) = 1 Then
youbi = “日”
ElseIf Cells(i, 2) = 2 Then
youbi = “月”
ElseIf Cells(i, 2) = 3 Then
youbi = “火”
ElseIf Cells(i, 2) = 4 Then
youbi = “水”
ElseIf Cells(i, 2) = 5 Then
youbi = “木”
ElseIf Cells(i, 2) = 6 Then
youbi = “金”
ElseIf Cells(i, 2) = 7 Then
youbi = “土”
End If
Print #HakidashiFile, “??????????????? <tr>”
Print #HakidashiFile, “??????????????????? <th class=””aaa””>” & Cells(i, 1) & “</th><th>” & youbi & “</th>”
Print #HakidashiFile, “??????????????????? <td><span>” & Cells(i, 3) & “</span>” & Naiyou & “</td>”
Print #HakidashiFile, “??????????????? </tr>”
Next i
Print #HakidashiFile, “??????????? </table>”
‘ファイルを閉じる
Close #HakidashiFile
‘終了メッセージ
MsgBox “タグを作成しました”
End Sub
If文って、言語によって記述の方法が若干違うのを何とかしてもらえたらなぁ…
あとnとか打消しの方法とかとか
でもよく迷うのはきっとわたしだけです
