Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


14327 / 76734 ←次へ | 前へ→

【67904】Re:フォルダーからファイル名を取得
質問  koko  - 11/1/15(土) 11:12 -

引用なし
パスワード
   ▼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

>一括取得とはどのような意味でしょうか。
>配列にいれて一括で表示みたいな方法ですか?

一つずつ選択するのではなくフォルダーにある全てのファイルを取得して一度に処理をしたいのです
配列に入れてもかまいません

よろしくお願いします
10 hits

【67900】フォルダーからファイル名を取得 koko 11/1/15(土) 8:40 質問
【67901】Re:フォルダーからファイル名を取得 Yuki 11/1/15(土) 9:09 発言
【67904】Re:フォルダーからファイル名を取得 koko 11/1/15(土) 11:12 質問
【67907】Re:フォルダーからファイル名を取得 Jaka 11/1/15(土) 15:41 発言
【67909】Re:フォルダーからファイル名を取得 Yuki 11/1/15(土) 19:54 発言
【67910】Re:フォルダーからファイル名を取得 koko 11/1/16(日) 9:14 お礼

14327 / 76734 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free