ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] VBA¯à°÷­×§ïºô­¶document¶Ü?

  1. Private Sub WriteDocument()
  2.   Const HTMLText As String = "<html><head><meta http-equiv=""content-type"" content=""text/html; charset=utf-8"" />" & _
  3.                              "<title>Joforn</title></head><body text-align:center>Joforn*Ron</body></html>"
  4.   With WebBrowser1
  5.     .Navigate "about:blank"
  6.     Do
  7.       DoEvents
  8.     Loop While .ReadyState <> READYSTATE_COMPLETE
  9.     With .Document
  10.       .Open
  11.       .write HTMLText
  12.       .Close
  13.     End With
  14.   End With
  15. End Sub
½Æ»s¥N½X
¥@¬É¨º»ò¤j¡A¥i§Ú·Q¥h­þ¡H

TOP

¤W­±ªºµ{¦¡¬O¥Î¨Ó­×§ïDocumentªº¡A¦pªG¬O­×§ïºô­¶¤¤³¡¤Àªº¤¸¯À¡A¥u»Ý­n§ä¨ì­n­×§ïªº¹ï¶H¡AµM«á¦A¶i¦æ¾A·íªº­×§ï´N¥i¥H¤F¡C
¥@¬É¨º»ò¤j¡A¥i§Ú·Q¥h­þ¡H

TOP

        ÀR«ä¦Û¦b : ÀR§¤±`®¦¤v¹L¡B¶¢½Í²ö½×¤H«D¡C
ªð¦^¦Cªí ¤W¤@¥DÃD