お世話になります。
現在下記のようなVBAを組んでみて、なんとかエクセルの複数シートを一括でHTMLとして出力できないか試行錯誤しています。
しかし、どうしても各文字列がダブルクォーテーションで囲まれてしまい、かつ、HTML上に本来存在していてもらわないといけないダブルクォーテーションが2重になってしまう(本来一個あればOKなところに余分にもう一個ついてしまう)という状態です。
おそらくマクロの中身が思いっきり違うのだろうと思うのですが、いかんせんよく分かりません。以下に実際の中身とその結果出てきてしまったものを記載しますので、なにとぞ、ご教授をお願いいたします。
■実際に使っているマクロの中身
Sub Test()
Dim ws As Worksheet
On Error Resume Next
For Each ws In ActiveWorkbook.Worksheets
ws.SaveAs ThisWorkbook.Path & "\" & ws.Name & ".html", xlUnicodeText
Next ws
End Sub
■結果として出力されてしまうHTML(まがいの何か)
"<!DOCTYPE HTML PUBLIC ""-//W3C//DTD HTML 4.01 Transitional//EN"" ""http://www.w3.org/TR/html4/loose.dtd"">"
"<html lang=""ja"" dir=""ltr"">"
<head>
"<meta http-equiv=""Content-Type"" content=""text/html; charset=Shift_JIS"">"
"<meta http-equiv=""Content-Style-Type"" content=""text/css"">"
"<meta http-equiv=""Content-Script-Type"" content=""text/javascript"">"
"<link href=""css/style.css"" rel=""stylesheet"" type=""text/css"" media=""screen, tv"">"
"<script type=""text/javascript"" src=""/common/js/search.js""></script>"
■本当はこうしたいHTML
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html lang="ja" dir="ltr">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=Shift_JIS">
<meta http-equiv="Content-Style-Type" content="text/css">
<meta http-equiv="Content-Script-Type" content="text/javascript">
<link href="css/style.css" rel="stylesheet" type="text/css" media="screen, tv">
<script type="text/javascript" src="/common/js/search.js"></script>
以上となります。
A 回答 (2件)
- 最新から表示
- 回答順に表示
No.2
- 回答日時:
わたしもxlHTMLにして
Sub Test()
Dim ws As Worksheet
On Error Resume Next
For Each ws In ActiveWorkbook.Worksheets
ws.SaveAs ThisWorkbook.Path & "\" & ws.Name & ".html", xlHtml
Next ws
End Sub
でやってみると、””などつかない、それらしいテキストファイルが出来ました。
やってみて質問者の望むものかチェックしてください。
参考
http://www.convert-files.com/SII/Convert-XLS/Jap …
No.1
- 回答日時:
>ws.SaveAs ThisWorkbook.Path & "\" & ws.Name & ".html", xlUnicodeText
「xlUnicodeText」ー>「xlHtml」としてみたら?
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- JavaScript jQueryでのドラッグアンドドロップについて 1 2022/07/07 21:04
- JavaScript switch文のswitch(n)の部分を複数の値にするか、if文に変えてほしいです。 1 2022/07/27 17:18
- JavaScript GoogleChart 階層ごとのブロックの長さを個別に設定したい 1 2022/07/06 14:27
- JavaScript jqueryを使ったスムーススクロールのコードを書いたのですが、HTMLコード内にある、a butt 2 2022/04/14 10:59
- JavaScript セレクトボックスを2つ設けて選択して初めてメッセを表示 1 2022/07/27 12:15
- HTML・CSS 書籍を見つつサイト造りの練習をしているのですが、見た目が一致しません 2 2022/11/28 15:00
- HTML・CSS 下にスクロールしても、追従するボタンのコードを書いたのですが、ボタンの中の画像が半分しか表示されない 1 2022/04/16 21:31
- JavaScript 入力フォームの javascript で メールアドレスの正規チェックをを行い、ボタンをクリックして 2 2022/04/27 16:06
- PHP PHPのエラーの解消法について教えて下さい。 1 2023/02/06 10:48
- HTML・CSS <!DOCTYPE html> <html> <head> <meta charset="utf-8 2 2023/01/05 01:04
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ある表にフィルターをかけて出...
-
Lookup関数
-
セルの数を求めたい
-
Excelを無料で使うには? パソ...
-
IFとIFS関数
-
エクセルの数式バーのフォント...
-
EXCELの散布図で日付が1900年に...
-
エクセル日付 文字列の関数がエ...
-
再質問です。マクロの修正箇所...
-
データチェックを行うエクセル...
-
エクセルで「ページレイアウト...
-
【ExcelVBA】名前を付けて保存→...
-
Excelピボットテーブルの1行目
-
エクセルの問題です。絶対値の...
-
Excelの表示についての質問
-
Excel関数について教えてくださ...
-
エクセルのツールバーから数値...
-
Excelで表を作ったところに文字...
-
DATE関数で現在の年齢を出した...
-
Excelデータをコピペして、ペー...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
マウスオンで背景の色を変える
-
キーワード、検索タグの入れ方...
-
○秒後にページ移動させるには?
-
HPのリンクについて詳しい人へ
-
エクセルVBAでHTMLへの書き出し...
-
htmlについて
-
javespriptについて
-
カーソルをGIF画像で。
-
RSSがIE7で表示できません。
-
サイト作成編集中、トップペー...
-
outlook 文字を揃えたい。tab...
-
マイクロ(μ)の文字を半角で出...
-
教えてください。
-
入力規則のリストの文字の大き...
-
テーブル内の文字サイズを変更...
-
cssファイルの名称付け
-
jspにcssを反映させるには
-
MsgBoxについて
-
WEBサイトの作成で、imgタグに...
-
似ているフォント(Win⇔Mac)
おすすめ情報