![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
前に同じ内容でHTMLの左寄せの話を投稿した者です。
今度は1行目の空白について教えてください。
【経緯は前回と同じです】
会社のみんなが、手軽に更新履歴を書き込めるように、マクロにてエクセル内のあるシートをHTML化しています。
上記で自動生成したファイルは実はあるHTMLファイルのフレームの部品となっています。(Top、Left、RightのうちのRightです)
しかし上記のファイルはなぜか、必ず1行目にかなり大きい空白が入るため、見た目が非常に不細工です。(Rigthのフレームだけデータの始まりがかなり下のほうになる)
何とかマクロの範疇でHTML化したときに、上部の空白の大きさのコントロールはできないでしょうか??
以下マクロのHTML化の部分です。
--------------------------------------------------
'HTML化始め
With ActiveWorkbook.PublishObjects.Add(xlSourceSheet, _
"HTMLのパス", "シート名", "" _
, xlHtmlStatic, "test0001_29648", "")
.Publish (True)
.AutoRepublish = False
End With
'HTML化終了
--------------------------------------------------
No.2ベストアンサー
- 回答日時:
こんばんは。
修正版を、以下に書いていますが、もしも、加えることがあるなら、こちらでもかまいません。#1 と、以下とでは、TITLE 項目の出力が違います。このご質問の元のマクロは、名前付き引数ではありませんので、良く意図を理解していません。
http://oshiete1.goo.ne.jp/kotaeru.php3?q=2359404
( http://okwave.jp/kotaeru.php3?q=2372623 )
No.1
- 回答日時:
こんばんは。
Wendy02です。>何とかマクロの範疇でHTML化したときに、上部の空白の大きさのコントロールはできないでしょうか??
前回、私は書かなかったというか、そちらの問題だから、ご指摘はしなかったのですが、
PublishObjects.Add(xlSourceSheet, "HTMLのパス", "シート名", "" , _
xlHtmlStatic, "test0001_29648", "")
わざわざ、「""」とたら、引数のいくつかは、Variant型だから、「""」 とすれば、長さ0の文字列として出てくるはずです。タイトルを入れるか入れないか、などの問題は、一度、ヘルプで確認をしたほうがよいですね。
PublishObjects.Add(SourceType, FileName, Sheet, Source, HtmlType, DivID, Title)
'サンプル出力
Sub OutHtml()
Const MYTITLE As String = "test0001_29648"
Dim myPath As String
Dim ShName As String
myPath = ThisWorkbook.Path & "\" 'パス名
ShName = ActiveSheet.Name 'シート名
With ActiveWorkbook.PublishObjects.Add( _
SourceType:=xlSourceSheet, _
Filename:=myPath & MYTITLE, _
Sheet:=ShName, _
HtmlType:=xlHtmlStatic, _
DivID:=MYTITLE)
.Publish True
.AutoRepublish = False
End With
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・ゆるやかでぃべーと タイムマシンを破壊すべきか。
- ・「I love you」 をかっこよく翻訳してみてください
- ・歩いた自慢大会
- ・許せない心理テスト
- ・字面がカッコいい英単語
- ・昔のあなたへのアドバイス
- ・かっこよく答えてください!!
- ・あなたが好きな本屋さんを教えてください
- ・スタッフと宿泊客が全員斜め上を行くホテルのレビュー
- ・【大喜利】【投稿~8/27】 こんなガソリンスタンド二度と来るか!なぜそう思った?
- ・これ何て呼びますか Part2
- ・人生で一番思い出に残ってる靴
- ・【お題】動物のキャッチフレーズ
- ・【お題】甲子園での思い出の残し方
- ・ゆるやかでぃべーと すべての高校生はアルバイトをするべきだ。
- ・「それ、メッセージ花火でわざわざ伝えること?」
- ・自分用のお土産
- ・人生で一番お金がなかったとき
- ・一番好きなみそ汁の具材は?
- ・泣きながら食べたご飯の思い出
- ・ちょっと先の未来クイズ第1問
- ・ゴリラ向け動画サイト「ウホウホ動画」にありがちなこと
- ・初めて自分の家と他人の家が違う、と意識した時
- ・単二電池
- ・チョコミントアイス
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VBAを一度起動するとずっと出て...
-
VBA マクロ実行時エラー’1004Ra...
-
コピーしたファイルのマクロを...
-
excelでpersonal.xlsを常に開く...
-
アクセスでファイルを開いたと...
-
エクセルマクロ実行中に別ファ...
-
excelが別プロセスで起動してし...
-
昨日まで動いていたエクセルの...
-
Excel2010 PERSONAL.xlsbの挙動...
-
EXCEL マクロ クリップボードク...
-
EXCELで日付を自動でファイル名...
-
Excelが勝手にシート移動してし...
-
エクセルで印刷する方法 エクセ...
-
エクセルでマクロを別のPCで利...
-
個人用マクロブックにマクロを...
-
ワードを開いた時にメッセージ...
-
excelファイルに使われているVB...
-
マクロを消すマクロは不可能?
-
Excelからnotesメールを自動で...
-
エクセルマクロを有効にしない...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセル終了時の保存確認メッ...
-
別のパソコンでエクセルのマク...
-
VBAを一度起動するとずっと出て...
-
VBA マクロ実行時エラー’1004Ra...
-
コピーしたファイルのマクロを...
-
Excelが勝手にシート移動してし...
-
昨日まで動いていたエクセルの...
-
EXCEL マクロ クリップボードク...
-
アクセスでファイルを開いたと...
-
【マクロ】エラーが発生⇒実行時...
-
マクロを消すマクロは不可能?
-
excelファイルに使われているVB...
-
エクセルマクロを有効にしない...
-
エクセル2013vbaで、見えない名...
-
エクセルファイルを自身のファ...
-
Excel2010 PERSONAL.xlsbの挙動...
-
excelが別プロセスで起動してし...
-
外部データを取り込むマクロ
-
エクセルマクロ実行中に別ファ...
-
Excelからnotesメールを自動で...
おすすめ情報