- ©«¤l
- 258
- ¥DÃD
- 77
- ºëµØ
- 0
- ¿n¤À
- 385
- ÂI¦W
- 0
- §@·~¨t²Î
- Win7
- ³nÅ骩¥»
- Office2010
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- Taiwan
- µù¥U®É¶¡
- 2010-8-8
- ³Ì«áµn¿ý
- 2021-1-25
|
[µo°Ý] VB¦³µL¿ìªk¨ÏÀÉ®×Á`ºÞ¸ê®Æ§¨µøµ¡¦Û°ÊÁY¦Ü³Ì¤p¤Æ
½Ð±Ð½Ñ¦ì¤j¤j
¦p¤U¦C ¦bVB6.0¤U »s¦¨ exe°õ¦æÀÉ
Option Explicit
Sub Main()
Dim f1
f1 = App.EXEName
Dim fso, f As Object
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFile(f1 & ".exe")
Dim n
n = fso.GetParentFolderName(f.Path)
Dim objXLApp
Set objXLApp = CreateObject("Excel.Application")
objXLApp.Visible = True
Dim objXLBook
Set objXLBook = objXLApp.Workbooks.Open(n & "\" & f1 & "¸ê®Æ®w\" & f1 & ".xls")
Set objXLBook = Nothing
Set objXLApp = Nothing
Set fso = Nothing
Set n = Nothing
Set f = Nothing
End Sub
Y·Q°õ¦æ¸Ó°õ¦æÀÉ®É
ÀÉ®×Á`ºÞ¸ê®Æ§¨µøµ¡Á`¬O¾×¦í©Ò¶}¥Xªºªí³æ
VB¦³µL¿ìªk ©Î»yªk¥[¤J¤Wz¤º
¨ÏÀÉ®×Á`ºÞ¸ê®Æ§¨µøµ¡©Î¨ä¥Lµøµ¡¦Û°ÊÁY¦Ü³Ì¤p¤Æ
½Ð¤j®a½ç±Ð ÁÂÁ«ü¾É (¦³ÂI«æ) |
|