|
▼Yuki さん:
>これはどのようにして取得されているのですか?
テキストボックスからフォルダーにあるファイルを一つ選択して
Path名を削除しました
以下のようにして一つずつ選択をして処理をしています
Private Sub CommandButton1_Click()
Dim Ex_Name As String
Dim LastRow As Long
UserFormFile.TextBoxFile = Get_OpenFile
Ex_Name = GetFileName(TextBoxFile.Text)
LastRow = Range("C65536").End(xlUp).Row
ThisWorkbook.Worksheets("File").Cells(LastRow + 1, 3) = Ex_Name
End Sub
Function GetFileName(ByVal F_NAME As String) As String
Dim F_Cnt As Integer
Dim F_Instr As Integer
Do
If InStr(1, F_NAME, "\") = 0 Then
Exit Do
Else
F_NAME = Trim(Mid(F_NAME, (InStr(F_NAME, "\") + 1)))
End If
Loop
GetFileName = F_NAME
End Functio
>一括取得とはどのような意味でしょうか。
>配列にいれて一括で表示みたいな方法ですか?
一つずつ選択するのではなくフォルダーにある全てのファイルを取得して一度に処理をしたいのです
配列に入れてもかまいません
よろしくお願いします
|
|