Excelの表をhtmlタグではきだしたい – GOWEBブログ

ホームページ制作のお見積りは、Web制作・ホームページ制作会社のゴーウェブ【広島・西区】

 経済産業省認定「IT導入支援事業者」 |  MAP

Excelの表をhtmlタグではきだしたい

作成日:2011年01月21日

エクセルで作成したものを、ちょっとだけ加工して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とか打消しの方法とかとか

でもよく迷うのはきっとわたしだけです

 

ブログ TOP

 

GOWEBは広島で2006年創業。
長年に渡り様々な課題を解決しながら技術を磨いてまいりました。
お客様と歩んだ15年以上の実績を活かし、成果の出るホームページをご用意します。

ホームページ
制作料金

お客様のご要望をお伺いしお見積りさせていただきます。こちらは参考価格です。

10ページ20~30万円(税込)
20ページ25~50万円(税込)
50ページ50~75万円(税込)

参考価格に含まれています

  • 仕様検討
  • オリジナルデザイン提案
  • SEO対策
  • スマホ対応
  • メールフォーム設置
  • WordPress設置
WEB広告
月額管理費用
3.3万円(税込)
文章・記事作成
1ページあたり
5千円~(税込)
継続的なSEO対策安心の成功報酬型。
順位が上がらない場合は無料です。
写真・動画撮影要相談
システム開発要相談
ロゴ制作3万円(税込)
ホームページ
サーバー
5.5万円(税込)/年
WEBコンサル相談無料

ホームページに「活」を入れる。SEOやWEB広告もお任せください。

ホームページは完成してからが本当のスタート。

作った後の展開(プロモーション)まで、しっかりとGOWEBがサポートします。

検索キーワード「広島 ホームページ制作」でGOWEBは常に上位ランクイン。多数のSEO成功実績がありますので、安心してお任せください。

なお、SEO対策は「完全成功報酬型」。順位が上がらなければ無料です。

GOWEB STUDIO

GOWEBには充実の撮影環境・設備がございます。

「ドローン撮影をお願いしたい」「VR動画を撮りたい」というご要望に自社完結でご対応できますので、品質・価格面で魅力的なご提案が可能です。

ウェブ制作会社の保有機材としてこれだけ充実しているのは珍しいと思います。

ホームページ制作と併せて、本格的な撮影もお任せください!

安心のアフターサービス。

ホームページ完成後は、文章や画像の更新もGOWEBがしっかりサポートします。

「パソコンが動かなくなった」「メールが届かない」「インターネットに繋がらなくなった」「迷惑メールを少なくしたい」など、様々なトラブルに迅速に対応します

ホームページ保守・サーバー維持・管理(ドメイン管理含む)・インフラサポートまでお任せ下さい。

go!

各種補助金の活用について
お気軽にご相談ください。

「補助金・助成金でホームページを作ろうと考えている」

「補助金の申請が通ったので、来月までに制作をお願いしたい」

「補助金の申請方法が難しくて分からない」

など、これから申請を出す方・既に申請が通った方のご相談をお待ちしております。

期日と予算に合わせた、最適なホームページをご提案します。

株式会社GOWEBは経済産業省認定「IT導入支援事業者」として採択されております。

 

CONTACT

お気軽にどうぞ。

TEL.082-276-5212

9:00-17:30(土・日・祝休)

 

お問い合わせ

go

広島県のお客様のもとへ、
今日も駆けって参ります!

創業以来、広島県のお客様のもとへ走り続けて100万キロ!
GOWEBは『地元密着』だから、安心して任せられるとご好評いただいております。
ホームページの事は何でもお気軽にご相談ください。
最短で即日対応!すぐ駆けって参ります。

※オンライン相談可能です