マクロ HTMLタグのクラス名を入れたらエラー

質問

下記のプログラムはセルに文字を入れてHTML化するものです。
HTMLタグにクラス名を入れると「中断モードでコードを実行することはできません」とエラーメッセージが出ます。
LineData = "<div class=“sample”>” & ws.Cells(i, 1).Value & "</div>" & vbCrLf
クラス名の「” ”」が問題だと思いますが、どうしたら良いでしょうか？
宜しくお願いします。

Sub convertHTML()

　Dim ws As Worksheet
　Dim htmlFile As String
　Dim i As Long
　Dim LineData As String

　Set ws = ThisWorkbook.Worksheets(1)
　htmlFile = ActiveWorkbook.Path & "\Sample.html"

　Open htmlFile For Output As #1

　i = 1
　Do While ws.Cells(i, 1).Value <> ""
　　LineData = "<div id=“sample”>” & ws.Cells(i, 1).Value & "</div>" & vbCrLf
　　LineData = LineData & "<p>" & ws.Cells(i, 2).Value & "</p>" & vbCrLf
　　LineData = LineData & "<span>" & ws.Cells(i, 3).Value & "</span>" & vbCrLf
　　Print #1, LineData
　　i = i + 1
　Loop

　Close #1
　MsgBox htmlFile & "に書き出しました"

End Sub

回答No.2

kkkkkm · ベストアンサー

"の中に"がある場合""と連続して
LineData = "<div id=""sample"">" & ws.Cells(i, 1).Value & "</div>" & vbCrLf
にしてください。

お礼

コメントありがとうございます。

LineData = LineData & "<tr><td class=“”athlete-rank stat””>” & ws.Cells(i, 1).Value & "</td><td><div class=“”avatar avatar--system””><div class=“”avatar-image””> <img> <span class=“”headshot-image”” style=“”background-image: url(images/.png);””></span> </div>" & vbCrLf
これに間違いはないでしょうか？
何故か2回出てしまいます。

スペシャル
スペシャル←何故か2回出てしまう
スズキ　2000　1000
タナカ　1000　800

回答No.3

kkkkkm

LineData = "<div id=""sample"">" & ws.Cells(i, 1).Value & "</div>" & vbCrLf
でしたが
LineData = LineData & "<tr><td class=“”athlete-rank stat””>” & ws.Cells(i, 1).Value &以下略
LineData & が追加になっていますが必要なのでしょうか？

お礼

LineData & が余計でしたか。
おかげさまで2回でなくなりました。
ありがとうございました。

回答No.1

AsarKingChang

んま質問者さんも気が付いている通りですね。
"<div id=“sample”>”
これは、
"<div id=“　+　sample　+　”>”
という３ブロックの文字に見えていますので。
エスケープ処理が必要ですね。
https://dobon.net/vb/dotnet/string/doublequotation.html

今回だけは、手抜きして
id=sample(ダブルクオート省略）だけでも
手っ取り早いかと。

お礼

コメントありがとうございます。

LineData = LineData & "<tr><td class=“”athlete-rank stat””>” & ws.Cells(i, 1).Value & "</td><td><div class=“”avatar avatar--system””><div class=“”avatar-image””> <img> <span class=“”headshot-image”” style=“”background-image: url(images/.png);””></span> </div>" & vbCrLf
これに間違いはないでしょうか？
何故か2回出てしまいます。

スペシャル
スペシャル←何故か2回出てしまう
スズキ　2000　1000
タナカ　1000　800