次のコードを変更してファイルパスを含める方法

次のコードを変更して、ファイル名ではなくファイルパス全体を指定するにはどうすればよいですか？次のコードを変更してファイルパスを含める方法

Sub GetFileNames() 
Dim xRow As Long 
Dim xDirect$, xFname$, InitialFoldr$ 

InitialFoldr$ = "C:\" 
With Application.FileDialog(msoFileDialogFolderPicker) 
    .InitialFileName = Application.DefaultFilePath & "\" 
    .Title = "Please select a folder to list Files from" 
    .InitialFileName = InitialFoldr$ 
    .Show 
    If .SelectedItems.Count <> 0 Then 
     xDirect$ = .SelectedItems(1) & "\" 
     xFname$ = Dir(xDirect$, 7) 
     Do While xFname$ <> "" 
      ActiveCell.Offset(xRow) = xFname$ 
      xRow = xRow + 1 
      xFname$ = Dir 
     Loop 
    End If 
End With 

End Sub

出典

2017-04-04 KnowMeNot

を試してみてください。 Excelでは、ファイル名だけではなく、すべてが綴られていることを確認したいと思いますが、Excelでパス全体を返すように編集する必要はありません。 – KnowMeNot

'Debug.Print xDirect $'と 'xFname $'を追加すると –

となるでしょう。将来的には 'ActiveCell'を使わないで、' Worksheets（ "MeaningfulSheetName" ）.Range（ "A"＆RowNum）.Value = xDirect $＆xFname $ ' –

私は完全なコードを実行し、ファイルを含むフォルダのための私を求められたら、それだけで、ファイルExcelで名前全体ではなく、パスを返す...

ActiveCell.Offset(xRow) = xDirect$ & xFname$

出典

2017-04-04 13:44:35 sktneer

ああ...ちょっと気分が悪い、今Shaiが何を意味しているのか分かりました。 -_- – KnowMeNot

あなたは大歓迎です。心配しないでください。それは私たち全員で起こります。 :) – sktneer

次のコードを変更してファイルパスを含める方法

答えて

関連する問題