ÇëÎÊVBÔÚwordÖвåÈëexcel±í¸ñ - VB / ¿Ø¼þ
ÎÒÏÖÔÚÓÐÒ»¸öÏֳɵÄwordÎļþ£¬ÎÒÏëÓÃvbÔÚÕâ¸öwordÀï²åÈëmÐÐnÁеÄexcel±í¸ñ£¬Ò»Ë«»÷Õâ¸ö±í¸ñºó¾ÍÄܽøÈëexcel±à¼Ä£Ê½£¬²¢½«vbÀïtextÖеÄÄÚÈÝдµ½Õâ¸ö±í¸ñÀïµÚ¶þÐеÚÈýÁÐÀï¡£Çë´ó¼Ò°ïÎÒÏ¡£
WordÀïÃæÂ¼ÖÆºê¡£È»ºó²åÈëexcel±í¸ñ¡£ÏµÍ³»á×Ô¶¯Éú³ÉVBA´úÂë¡£
ÄÜ˵µÄÔÙ¾ßÌåµãÂð
Ïà¹ØÎÊ´ð£º
ÎÒÔÚÀàÖÐÓÐÒ»¸öº¯Êý
Public Function DownloadAdditionalSite(SiteName As siteconfig, Directory As String, ymd As String) As Boolean
siteconfigÊÇÎÒ×Ô¶¨ÒåÀàÐ͵ÄÊý¾Ý£¬ÎªÊ²Ã´»áÌáʾ¡°Ö»ÓÐÔÚ¹«¹²¶ÔÏóÄ£¿éÖж ......
ÔÚvbÖÐÈçºÎ¶ÁÈ¡WordÄÚÈÝ(°üº¬±í¸ñ£¬Í¼Æ¬£¬µÈ£©
¾¹È»²»ÊÇzero¡£
²»ÖªµÀÔõôʵÏֵIJ»ÒªËµ»°
Õâ¸öÖ»ÄܶÁÎı¾,
VB code:
Private Sub Command1_Click()
Dim WordApp As Object
Set WordApp = CreateObject(& ......
ÎÒÏë°ÑwordÁí´æÎªxmlÖ®ºó£¬ÓÃvb¶ÁÈ¡Õâ¸öxmlµÄÄÚÈÝ£¬ÇëÎÊÈçºÎʵÏÖ£¿
dim f as integer
dim b() as byte
dim s as string
dim L as long
f=freefile()
open "abc.xml" for binary access read as #f
......
ϵͳÔÚ¶ą̀µçÄÔÉÏÔËÐУ¬¾ÍÔÚÆäÖÐһ̨µçÄÔÉϲúÉú¡±ÄÚ´æÒç³ö¡°¡£
ÿ̨µçÄÔ²Ù×÷ϵͳ ÅäÖö¼Ò»ÑùµÄ¡£¡£ÇëÎÊÊÇʲôÔÒò£¿
(1)ÓÃÁËÉè¼Æ²»ÍêÉÆµÄ¿Ø¼þ£¬¿Ø¼þ±¾ÉíÓÐÎÊÌ⣬»òÕß²»Ç¡µ±µØÊ¹ÓÃÁËapiº¯Êý¡£
(2)ÎÞÏÞµÄ ......