返回列表 上一主題 發帖

請問如何輸出 " 字元,謝謝

請問如何輸出 " 字元,謝謝

請教如何輸出如下
<td><img alt=""  src="FS00010.jpg" width="80%" /></td>
<td>test</td>

例如將下的 * 字改成 " ,謝謝
Sub test()
Dim s As String
Dim i As String
i = "FS00010.jpg"

s = "<td><img alt=**  src=*" & i & "* width=*80%* /></td>" & Chr(10) & "<td>test</td>"

Debug.Print s

End Sub

回復 4# 准提部林

謝謝 大大 , 原來是這樣寫的 ^_^

TOP

i = "FS00010.jpg"
s = "<td><img alt=**  src=*" & i & "* width=*80%* /></td>" & Chr(10) & "<td>test</td>"
s = Replace(s, "*", """")
MsgBox s
EXCEL參考資料:
http://blog.xuite.net/smile1000mile/blog

TOP

本帖最後由 wufonna 於 2019-6-24 12:03 編輯

回復 2# n7822123

謝謝 大大

改為這樣
Sub test()
Dim s As String
Dim i As String
i = "FS00010.jpg"

s = "<td><img alt=" & Chr(34) & Chr(34) & " src=" & Chr(34) & i & Chr(34) & " width=" & Chr(34) & "80%" & Chr(34) & " /></td>" & Chr(10) & "<td>test</td>"

Debug.Print s


End Sub

TOP

回復 1# wufonna


Sub test()
Dim s As String
Dim i As String
i = "FS00010.jpg"
s = "<td><img alt=**  src=*" & i & "* width=*80%* /></td>" & Chr(10) & "<td>test</td>"
s = Replace(s, "*", Chr(34))
Debug.Print s
程式是依需求寫的,需求表達不清楚
或者沒有上傳附件,愛莫能助

TOP

        靜思自在 : 做該做的事是智慧,做不該做的事是愚癡。
返回列表 上一主題