- ©«¤l
- 53
- ¥DÃD
- 16
- ºëµØ
- 0
- ¿n¤À
- 74
- ÂI¦W
- 0
- §@·~¨t²Î
- windows xp
- ³nÅ骩¥»
- OFFICE 2000
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-6-6
- ³Ì«áµn¿ý
- 2015-12-10
|
°õ¦æ¾×°ÝÃD
½Ð°Ý¦U¦ì°ª¤â¥ÎVBA°µ¦¨°õ¦æÀɦp¤U
¬°¦ó¥´¶}¤u§@ªíµLªkª½±µ¦bUserForm1.Label1¤¤¿é¤J·Æ¹«ÂI¤@¤U¤S¥i¥H
½Ð°Ýn¦p¦ó§ï¤~¯à¥´¶}¤u§@ªí´Nª½±µ¥i¥H¦bUserForm1.Label1¤¤¿é¤J¦Ó¤£¥Î¦A¥Î·Æ¹«ÂI¤@¤U
°õ¦æ¾×VBA¦p¤U
Dim alllen
Dim time
Private Sub userform_queryclose(cancel As Integer, closemode As Integer)
If closemode <> 1 Then cancel = 1
End Sub
Private Sub CommandButton1_Click()
Unload Me
Set MyXlsApp = CreateObject("excel.application")
MyXlsApp.Visible = True
MyXlsApp.Workbooks.Open "D:\¤é´Á2.xls"
End
End Sub |
-
-
¤é´Á2.rar
(14.19 KB)
|