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

[µo°Ý] ¸óÀÉ®×Â^¨ú¤u§@­¶¸ê®Æ

[µo°Ý] ¸óÀÉ®×Â^¨ú¤u§@­¶¸ê®Æ

§Ú¦³A.xls ¤Î B.xls
·Q±qA.xls°õ¦æªí³æ«ü¥O.±NB.xlsªº¸ê®Æ¶×¤JA.xlsªº©T©w¤u§@­¶¤¤(¹ê»Ú§@·~ªº¸ê®Æ¤ñ¼ÆÆZ¦hªº)
¤wª¾ÀɦW¥i¥H¼g¦º¸ô®|..
¦ý¹J¨ìÀɦW¸ò¸ô®|¦³Åܧó®É...¨Ò¦pB.xlsÅܦ¨C.xls
´N¤£ª¾¹D¸Ó«ç»ò³B²z¤F
½Ð±Ð¦U¦ì¤j¤j¦³¨S¦³¤è¦¡¥h¨ú¥NÀɦW³o­Ó°ÝÃD¶Ü
¨Ò¦p¥ÎTextbox©Îcombobox¨ú±o¸ô®|+ÀɦW¥h¨ú¥N?
Excel¾Ç²ß.rar (20.76 KB)
boyao

¦^´_ 1# boyao
¤£ª¾§A­n«ç§Ë,µ¹§A¤@­Ó¤è¦V.
  1. Private Sub CommandButton1_Click()
  2.     If Dir([a1]) = "" Then
  3.         With Application.FileDialog(msoFileDialogFilePicker)
  4.             .InitialFileName = Range("a1")
  5.             Do While .Show = 0   '°õ¦æ°j°é: ¨S¦³¿ï¨úÀÉ®×
  6.             Loop
  7.             [a1] = .SelectedItems(1) '¶}±Ò ©Ò¿ïªºÀÉ®×
  8.         End With
  9.     End If
  10.     UserForm1.Show
  11.     'UserForm1¤¤¥Î Workbooks.Open ([A1])
  12. End Sub
½Æ»s¥N½X

TOP

¦^´_ 2# GBKEE

·PÁ¤j¤j
³oºØ¶}±ÒÀɮתº¤è¦¡¤è«K¦h¤F.....
boyao

TOP

¦^´_ 2# GBKEE


¦A½Ð±ÐG¤j
­n«ç»ò¤Á´«¦^¶}±ÒÀɮתºµøµ¡.¨ÃÃö±¼¤w¸g¶}±ÒªºÀÉ®×£«
¦pªþ¥ó...
·PÁÂ!!
Excel¾Ç²ß.rar (27.83 KB)
boyao

TOP

¦^´_ 4# boyao
  1. Private Sub CommandButton2_Click()
  2.     'BBBÀÉ®×Ãö³¬«á´N·|¦^¨ìÀɮתºµøµ¡
  3.     Workbooks([A1]).Close False  '«ü©w¬¡­¶Ã¯.Ãö³¬ÀÉ®× ¤£¦sÀÉ
  4.     'ThisWorkbook.Activate          '³o¤£´N¬O¦^¨ìÀɮתºµøµ¡
  5.    
  6.     'ActiveWorkbook.Close False  '¨Ï¥Î¤¤¬¡­¶Ã¯
  7.     'Workbooks(1).Close False    '¨Ì¬¡­¶Ã¯¯Á¤Þ
  8.     'ThisWorkbook.Close False    'µ{¦¡½X©Ò¦b¬¡­¶Ã¯
  9. End Sub
½Æ»s¥N½X

TOP

¦^´_ 5# GBKEE


ÁÂÁÂ
§Ú¥ÎActiveWorkbook¸òThisWorkbook¥h±Æ°£°ÝÃD...
'Workbooks(1).Close False    '¨Ì¬¡­¶Ã¯¯Á¤Þ
¯Á¤Þªº­È¬O¨Ì·ÓÀɮ׶}±Òªº¥ý«á¶¶§Ç...·|¥X¿ù....
boyao

TOP

        ÀR«ä¦Û¦b : ¤H¥Í¨S¦³©Ò¦³Åv¡A¥u¦³¥Í©Rªº¨Ï¥ÎÅv¡C
ªð¦^¦Cªí ¤W¤@¥DÃD