ç¨VBå°è£
Excelå¯ä»¥èµ·å°é¿å¼âå¯ç¨å®â对è¯æ¡çä½ç¨ï¼å¶ä½åçå
¶å®å¾ç®åï¼ç°å°å
¶ç®è¦è¯´æå¦ä¸ï¼å¸æèµ·å°æç å¼ççä½ç¨ã
æåºæ¬ç设置为ï¼
1.æ°å»ºä¸ä¸ªæ件夹
ââç¨äºåæ¾Excelæ件åVbå¯å¨ç»é¢æ件ã
2.æå¼VB
ââæ°å»ºä¸ä¸ª æ åEXEã
3.设置Form1ç¨æ·çªä½çæ¾ç¤ºå±æ§
ââBorderstyleãStartupPositioçã
<1>Borderstyle=0-none å»æform1çæ é¢æ
<2>StartupPositio=2 设置å¨å±å¹ä¸å¤®æ¾ç¤ºçªå£
<3>Icon å¦æéè¦è®¾ç½®å¾æ å¯ä»¥è®¾ç½®è¿ä¸ªå±æ§ï¼å¯ä»¥ä¸è®¾ç½®ï¼
4.建ç«æå¼Excelæ件çæ§ä»¶
ââè¿æ¥æ¯æéè¦çï¼ä¹æ¯Vbæå¼Excelçåçæå¨ï¼æ·»å ä¸ä¸ªTimeræ§ä»¶ï¼å°å
¶Interval设为600ï¼æ§å¶çªå£æ¾ç¤ºçæ¶é´ï¼ï¼åå»Timeræ§ä»¶ï¼å¨åºç°ç代ç çªå£ä¸è¾å
¥ä»¥ä¸ä»£ç ï¼
Private Sub Timer1_Timer()
ããDim Exl As Object ' 建ç«ä¸ä¸ªå¯¹è±¡åé
ããSet Exl = CreateObject("Excel.Application") ' 设置对象为Excelï¼ä½ å¯ä»¥éè¿ä¿®æ¹è¿éï¼å®ç°ç¨VBæå¼å
¶ä»ç±»åæ件ï¼
ããExl.Workbooks.Open (App.Path & "\" & "å¤ç¨æ·ç»å½.xls")ã ' é¾æ¥ EXCEL æ件
ããExl.Visible = True
ããUnload Me
End Sub
5.çæEXEæ件
ââå½ä»¤å¨âæ件âèåä¸ï¼å°çæEXEæ件ä¿åå° 1. ä¸å»ºç«çæ件夹ã
好äºï¼è¿æ ·å°±å¯ä»¥äºï¼å¦æä½ è§å¾çé¢ä¸ç¾è§ï¼å¯ä»¥å¯¹çªä½çå
¶ä»æ¾ç¤ºå±æ§è¿è¡è®¾ç½®ï¼å®å
¨ç±ä½ äºã
温馨提示:答案为网友推荐,仅供参考