GBKEE

¦^´_ 1# icestormer
Application.GetOpenFilename ¬O¨S¦³¶}±ÒÀɮתº,¦p¦³¿ï¨úÀÉ®×·|¶Ç¦^³oÀɮתº§¹¾ã¸ô®|¦WºÙ
¸Õ¸Õ¬Ý¬O³o¼Ëªº¶Ü?

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim file_path_get As String, Wo As Workbook
   
4.     file_path_get = Application.GetOpenFilename("EXCEÀÉ(*.XLS),*xls")
   
5.     Set Wo = Workbooks.Open(file_path_get)                               '³]©wÅܼƬ° ¶}±Ò¿ï¨úªºÀÉ®×
   
6.     WorkBooks("¤ÀªRªí").Sheets(1).[a1] = Wo.Sheets(1).Name   '¨ú±o²Ä¤@­Ó¤u§@ªí¦WºÙ
   
7.     Wo.Close 0                                                                                       'Ãö³¬ ¿ï¨úªºÀÉ®× ¤£¦sÀÉ
   
8. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 4# icestormer
Worksheets("¤ÀªRªí").Sheets(1) ³o»yªk¿ù»~      ¤w§ó¥¿ 2# ªºµ{¦¡½X
¯«©_ªº¨Æµo¥Í¤F    ¤£ºÞ§Ú§âÀɮשñ¦b¨º¤@¼Ñ ¦b¨º¤@¥Ø¿ý¤U
¤£¬O¯«©_ªº    ¬O GetOpenFilename ·|¶Ç¦^¿ï¨úÀɮתº§¹¾ã¸ô®|¦WºÙ
[A1]=file_path    ·íµM·|¦Û°Ê§ï¸ô®|¦WºÙ

1. Sub Ex()
   
2.     Dim file_path_get As String
   
3.      file_path = Application.GetOpenFilename("EXCEÀÉ(*.XLS),*xls")
   
4.     MsgBox file_path
   
5. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 6# icestormer
¶Ç¤WÀɮ׬ݬÝ