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

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

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

ºô¸ô¤W¬Ý¨ìie.document.writeªº»yªk
¯à°÷½s¼gºô­¶
¥i¬Oª½±µ³o¼Ë¼g ·|¾ã­Óºô­¶³Q¨ú¥N

VBA¯à¤£¯à¿ì¨ì
­×§ï/¨ú¥Nºô­¶¤¤¯S©w¤¸¯À ©ÎªÌ
¦b¯S©w¦ì¸m·s¼W¤@­Ó¤¸¯À

¬d¤£¤Ó¨ì¬ÛÃö¸ê®Æ
©ÎªÌ§ÚÃöÁä¦r¿ù¤F ·Q¨Ó¾Ç¾Ç¬Ý

¦^´_ 3# Joforn
ÁÂÁ§A
¹L¦~¦b®a §Ú¨Ó¦n¦n¬ã¨s¤@¤U
ºô­¶»s§@ªº§Þ¥©¤]¤@¨Ö¨Ó¾Ç²ß

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

  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

        ÀR«ä¦Û¦b : ¡i¬O§_µo´§¤F¨}¯à¡H¡j¤H¶¡¹Ø©R¦]¬°µu¼È¡A¤~§óÅã±o¬Ã¶Q¡CÃø±o¨Ó¤@½ë¤H¶¡¡AÀ³°Ý¬O§_¬°¤H¶¡µo´§¤F¦Û¤vªº¨}¯à¡A¦Ó¤£­n¤@¨ý¨Dªø¹Ø¡C
ªð¦^¦Cªí ¤W¤@¥DÃD