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

[µo°Ý] AppActivate±Ò°Ê¤@À³¥Îµ{¦¡µøµ¡°ÝÃD½Ð±Ð

[µo°Ý] AppActivate±Ò°Ê¤@À³¥Îµ{¦¡µøµ¡°ÝÃD½Ð±Ð

¦U¦ì¦n¡I¬Ý¤F¤@­ÓAppActivate±Ò°Ê¤@À³¥Îµ{¦¡µøµ¡ªº³¯­z¡C¨Ì·ÓExcel¸Ìªº»¡©ú
»yªk
AppActivate title[, wait]
title ¥²­n¤Þ¼Æ¡C¦r¦ê¹Bºâ¦¡¡A¥Î¨Ó«ü©w©Ò­n±Ò°ÊÀ³¥Îµ{¦¡¤§µøµ¡ªº¼ÐÃD¡C¥i¥H¥Î Shell ¨ç¼Æ©Ò¶Ç¦^ªº¤u§@ÃѧO½X¨Ó¨ú¥N title¡A¥H±Ò°ÊÀ³¥Îµ{¦¡¡C
AppActivate ³¯­z¦¡½d¨Ò

' AppActivate ¤]¥i¥H§Q¥Î Shell ¨ç¼Æªº¶Ç¦^­È¨Ó±Ò°Êµ{¦¡¡C
MyAppID = Shell("C:\Program Files\Microsoft Office\OFFICE11\WINWORD.EXE", 1)    ' °õ¦æ Microsoft Word¡C
AppActivate MyAppID    ' ±Ò°Ê Microsoft Word¡C
MS Word³Q±Ò°Ê¤F¡A¥i±µ¤U¨Ó¥X²{¤@¿ù»~°T®§¡C
°õ¦æ¶¥¬q¿ù»~.JPG

¦pªG¤£¥ÎAppActivate MyAppID ³o¥y¡A¤@¼Ë¥i¥H±Ò°ÊMicrosoft Word¡A¨S¦³¥X²{¿ù»~°T®§¡C
½Ð±Ð³o¬O¬°¤°»ò¡H¬O¤£¬O¥u¥ÎShell¨ç¼Æ¨Ó±Ò°ÊÀ³¥Îµ{¦¡«Kok¡C
¤H¥Í¥u¦³¤T¤Ñ¡A¥u¦³¬¡¦b¤µ¤Ñ³Ì½ñ¹ê

¦^´_ 2# GBKEE
ÁÂÁÂGBKEE¤j¤j«ü¾É¡A
AppActivate ©I¥s°õ¦æ¤¤ªºµøµ¡¡A³o¼Ë»¡©ú«Ü²M·¡¤F¡C
µ{¦¡¼gªk¯uªº¬O¤dÅܸU¤Æ¡AG¤jªGµM¬O°ª¤â¡I
¤H¥Í¥u¦³¤T¤Ñ¡A¥u¦³¬¡¦b¤µ¤Ñ³Ì½ñ¹ê

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2014-8-5 08:24 ½s¿è

¦^´_ 1# barrykuo
³o¸Ì»¡ªº«Ü²M·¡
  1. Option Explicit
  2. Sub Ex()
  3.     Dim MyAppID
  4.     MyAppID = Shell("C:\Program Files\Microsoft Office\OFFICE11\WINWORD.EXE", 1)    ' °õ¦æ Microsoft Word¡C
  5.     AppActivate "Microsoft Word"
  6. End Sub
½Æ»s¥N½X
ÁÙ¦³¨ä¥L¤èªk
  1. Sub Ex_Word_Application() '
  2.     With CreateObject("Word.Application")
  3.         .Visible = True
  4.         .Documents.Add '.DocumentType:=wdNewBlankDocument
  5.     End With
  6. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

        ÀR«ä¦Û¦b : ¬O«D·í±Ð¨|¡AÆg¬ü§@ĵ±§¡C
ªð¦^¦Cªí ¤W¤@¥DÃD