Excelマクロ特定のフォルダ内のファイルへのリンクのリストを取得する

Question

私は、ユーザーがフォルダを選択し、そのフォルダ内のファイルをリンクとしてリストするマクロを持っています。しかし、リストはセルA1から始まりますが、セルI5をクリックして、クリックしたセルでリストを開始したいとします。私は、以下のマクロを変更するにはどうすればよい：

Sub GetFileNames() 

Dim xFSO As Object 
Dim xFolder As Object 
Dim xFile As Object 
Dim xFiDialog As FileDialog 
Dim xPath As String 
Dim I As Integer 
Set xFiDialog = Application.FileDialog(msoFileDialogFolderPicker) 
If xFiDialog.Show = -1 Then 
    xPath = xFiDialog.SelectedItems(1) 
End If 
Set xFiDialog = Nothing 
If xPath = "" Then Exit Sub 
Set xFSO = CreateObject("Scripting.FileSystemObject") 
Set xFolder = xFSO.GetFolder(xPath) 
For Each xFile In xFolder.Files 
    I = I + 1 
    ActiveSheet.Hyperlinks.Add Cells(I, 1), xFile.Path, , , xFile.Name 
Next 
End Sub 

は、あなたの専門知識のためにそんなにありがとう!!!!マクロの中

Answer 1

フェザーこれを：あなたがマクロを実行すると

Dim curCell As Range 
Set curCell = ActiveCell 
i = 0 
For Each xFile In xFolder.Files 
    ActiveSheet.Hyperlinks.Add Cells(curCell.Row + i, curCell.Column), xFile.Path, , , xFile.Name 
    i = i + 1 
Next 

、それが起動し、その列と行を使用し、その後、アクティブセルが何であるかを見るために見ていきます。