GBKEE

¦^´_ 1# basarasy

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim i%
   
4.     With Application.FileDialog(msoFileDialogOpen)
   
5.         .AllowMultiSelect = True
   
6.         .InitialFileName = "D:\TEST"       '½Ð ­×§ï¬°§Aªº¤å¥ó§¨
   
7.         .Show
   
8.         For i = 1 To .SelectedItems.Count
   
9.             ActiveSheet.[A2].Offset(i - 1) = .SelectedItems(i)
   
10.         Next
    
11.     End With
    
12. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 4# basarasy
ActiveSheet.[A2].Offset(i - 1) = .SelectedItems(i)
§ï¦¨§@¥Î¤¤ªºÀx¦s®æ
ActiveCell.Offset(i - 1) = .SelectedItems(i)