Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

ÈçºÎÓÃVB´ò¿ªwordÎĵµ

CÅÌÀïÓÐÒ»¸ötest.docÎļþ


ÎÒҪʵÏÖ°´ÏÂÒ»¸ö°´Å¦¾ÍÄÜ´ò¿ªÕâ¸öÎĵµ

ÇëÎÊ´úÂë¸ÃÔõôд лл
SHELL

³ýÁËshellÄØ?

ѧϰÖÐ~

COM

dim wApp as new wordapplication
wapp.open ...
²»¹ý£¬Ò²ÐèÒªÒª±¾»ú°²×°wordµÄ¡£

wapp.open ºÃÏóûÓÐÕâ¸ö·½·¨

Â¥ÉÏÊDz»ÊÇд´íÁË

Private Sub Command1_Click()
    Dim OWork As Object
    Dim oDoc As Object
   
    Set OWork = CreateObject("Word.Application")
    Set oDoc = OWork.Documents
    oDoc.Open ("g:\erp.doc")
    OWork.Visible = True
    Set OWork = Nothing
End Sub
²»¹ýµçÄÔÉÏҪװOfficeÈÎÒ»°æ±¾WordÈí¼þ¡£

VB code:
Option Explicit

Public Sub Main()

Dim strFile$, objShell As Object
strFile = "X:\Temp\ÎĵµA.doc"
Set objShell = CreateObject("Wscript.Shell")
objShell.Run strFile

End Sub

µ÷ÓÃϵͳÖÐĬÈϵĹØÁª³ÌÐò´ò¿ªÎĵµ X:\Temp\ÎĵµA.doc ¡£



Ïà¹ØÎÊ´ð£º

ΪʲôCдDLLÎļþC¡¢PBÄܵ÷ÓÃVB²»Äܵ÷ÓÃ

ΪʲôCдµÄDLLÎļþC¡¢PBÄܵ÷ÓÃVB²»Äܵ÷Óã¿
VBÀïΪʲôÓеÄDLLÖ±½Óͨ¹ýÒýÓÿÉÒÔʹÓã¿ÓеÄÐèҪͨ¹ýdeclareÉêÃ÷Íⲿº¯Êý£¿ÕâЩDLLÓÐʲô²î±ð£¿

1¡¢ÎªÊ²Ã´PBÄÜͨ¹ýDECLAREÉùÃ÷¶øVB²»ÐУ¿
2¡¢Èç¹ûÕâ¸ödllÖÐµÄ ......

VB »ñÈ¡ÍøÒ³Ô´´úÂë

Ò»¸ö²éѯijÐÅÏ¢µÄASPÍøÒ³£¬Ìá½»²ÉÓõÄÊÇpost·½·¨£¬²éÕÒ½á¹ûµÄÍøÒ³±ØÐëÓÒ¼üµã»÷¡°²é¿´Ô´Îļþ¡±²ÅÄÜ¿´µ½ÕæÕý²éѯ½á¹ûÍøÒ³µÄÔ´´úÂ룬ÓÃä¯ÀÀÆ÷²Ëµ¥¿´µ½µÄÊDzéѯǰµÄÔ´´úÂë
ÓÃVBÓÐʲô°ì·¨¿ÉÒÔ»ñÈ¡µ½Õâ¸ö²éѯºóµÄÔ´´ú ......

vb´ò°ü°²×°Ê±ÌáʾÊäÈëÐòÁкÅ

ÎÒÓÐ×Ô¶¯Éú³ÉÐòÁкŵijÌÐò£¬µ«ÊÇÔõô¸ú´ò°üºóµÄ°²×°³ÌÐò½áºÏÔÚÒ»Æð£¬ÔÚ°²×°Ê±ÌáʾÓû§ÊäÈëÐòÁкţ¬ÕýÈ·ºóÔÙ¼ÌÐø°²×°£¿£¿£¿
·½·¨1£ºÄã¿ÉÒÔÔÚÔËÐгÌÐòºóÊäÈëÐòÁкÅ×¢²á£¬ºÜ¶àÈí¼þ¶¼ÊÇÕâÑùµÄ¡£

·½·¨2£ºÊ¹ÓÃSetu ......

vbдµÄ³ÌÐò±àÒëºó,ÔËÐÐÈô³ö´í,ÈçºÎÖªµÀµ½ÔÚÄÄÒ»ÐÐ?

vbдµÄ³ÌÐò±àÒëºó,ÔËÐÐÈô³ö´í,ÈçºÎÖªµÀµ½ÔÚÄÄÒ»ÐÐ?

°´Ctrl+F5Ô¤±àÒ룬³ö´íʱ»áÌø×ªµ½´íÎóÐÐ

²»ÊÇÄÇÑùµÄÁË,ÎÒÊÇÒªÇó±àÒë³ÉEXEºóÔËÐÐ,Ìáʾ³ö´íÄÜ·ñÌáʾ´íÔÚÄÄÒ»ÐÐ.

ÎÒ±àÒëºóÔÚÎҵĵçÄÔÉÏÔËÐÐûÎÊÌâ,µ«Ô ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ