ÈçºÎÓÃ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²»Äܵ÷Óã¿
VBÀïΪʲôÓеÄDLLÖ±½Óͨ¹ýÒýÓÿÉÒÔʹÓã¿ÓеÄÐèҪͨ¹ýdeclareÉêÃ÷Íⲿº¯Êý£¿ÕâЩDLLÓÐʲô²î±ð£¿
1¡¢ÎªÊ²Ã´PBÄÜͨ¹ýDECLAREÉùÃ÷¶øVB²»ÐУ¿
2¡¢Èç¹ûÕâ¸ödllÖÐµÄ ......
Ò»¸ö²éѯijÐÅÏ¢µÄASPÍøÒ³£¬Ìá½»²ÉÓõÄÊÇpost·½·¨£¬²éÕÒ½á¹ûµÄÍøÒ³±ØÐëÓÒ¼üµã»÷¡°²é¿´Ô´Îļþ¡±²ÅÄÜ¿´µ½ÕæÕý²éѯ½á¹ûÍøÒ³µÄÔ´´úÂ룬ÓÃä¯ÀÀÆ÷²Ëµ¥¿´µ½µÄÊDzéѯǰµÄÔ´´úÂë
ÓÃVBÓÐʲô°ì·¨¿ÉÒÔ»ñÈ¡µ½Õâ¸ö²éѯºóµÄÔ´´ú ......
ÎÒÓÐ×Ô¶¯Éú³ÉÐòÁкŵijÌÐò£¬µ«ÊÇÔõô¸ú´ò°üºóµÄ°²×°³ÌÐò½áºÏÔÚÒ»Æð£¬ÔÚ°²×°Ê±ÌáʾÓû§ÊäÈëÐòÁкţ¬ÕýÈ·ºóÔÙ¼ÌÐø°²×°£¿£¿£¿
·½·¨1£ºÄã¿ÉÒÔÔÚÔËÐгÌÐòºóÊäÈëÐòÁкÅ×¢²á£¬ºÜ¶àÈí¼þ¶¼ÊÇÕâÑùµÄ¡£
·½·¨2£ºÊ¹ÓÃSetu ......
vbдµÄ³ÌÐò±àÒëºó,ÔËÐÐÈô³ö´í,ÈçºÎÖªµÀµ½ÔÚÄÄÒ»ÐÐ?
°´Ctrl+F5Ô¤±àÒ룬³ö´íʱ»áÌø×ªµ½´íÎóÐÐ
²»ÊÇÄÇÑùµÄÁË,ÎÒÊÇÒªÇó±àÒë³ÉEXEºóÔËÐÐ,Ìáʾ³ö´íÄÜ·ñÌáʾ´íÔÚÄÄÒ»ÐÐ.
ÎÒ±àÒëºóÔÚÎҵĵçÄÔÉÏÔËÐÐûÎÊÌâ,µ«Ô ......