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

©óvb¤¤¦p¦ó¨Ï.xls¼W¤@µ§¸ê®Æ¦sÀÉ

¦^´_ 1# yangjie
­n°µ¦sÀÉ
  1. Private Sub Command1_Click()
  2.     Book1.Parent.Save
  3.     Unload Me
  4. End Sub
½Æ»s¥N½X

TOP

¦^´_ 6# yangjie
¥i§_¦bVB¤U¹ï.xls¤U«ü¥O¨Ïvisible=true
VB §Ú¤£¤Ó¼ô  VBA¬OVBªº©µ¦ù À³¸Ó«Ü¬Ûªñ ¦p¤U§Ú¸Õ¤F¥i¥H¥Îªº
Set Book = CreateObject(n "\µn¿ý.xls")
    With Book.Parent
        .Visible = True
        .windows("µn¿ý.xls").Visible = True
    End With
ºô­¶³sµ²VB»sµ{ªº.exe ¥Ñ.exe¥h«ü©w"Excel Application"¶}.xls(§tVBA)¡A¦¹®É²×ºÝ¾÷¥i°õ¦æ§_?
§Ú¥\¤O¤£°÷ ©|»Ý°ª¤â¨Ó¸Ñµª

TOP

        ÀR«ä¦Û¦b : µoµÊ®ð¬Oµu¼ÈªºµoºÆ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD