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

°õ¦æ¾×°ÝÃD

°õ¦æ¾×°ÝÃ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)

        ÀR«ä¦Û¦b : §Ñ¥\¤£§Ñ¹L¡A§Ñ«è¤£§Ñ®¦¡C
ªð¦^¦Cªí ¤W¤@¥DÃD