Excel VBA質問箱 IV

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

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


14324 / 76734 ←次へ | 前へ→

【67907】Re:フォルダーからファイル名を取得
発言  Jaka  - 11/1/15(土) 15:41 -

引用なし
パスワード
   Sub xlsファイル出力Dir()
Dim SarchFile As String, Gy As Long
Dim FldNm As String
FldNm = CreateObject("WScript.Shell").SpecialFolders("Desktop")
SarchFile = Dir(FldNm & "\*.xls")
Gy = 0
Do Until SarchFile = ""
  Gy = Gy + 1
  Cells(Gy, 1).Value = SarchFile
  SarchFile = Dir()
Loop
If Gy = 0 Then
  MsgBox Dir(FldNm, vbDirectory) & "内にxlsファイルはありませんでした。"
End If
End Sub

Sub getF()
検索フォルダ = CreateObject("WScript.Shell").SpecialFolders("Desktop")
With CreateObject("Scripting.FileSystemObject")
  For Each FNM In .GetFolder(検索フォルダ).Files
    Ct = Ct + 1
    Cells(Ct, 1).Value = FNM.Name
  Next
End With
End Sub
8 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 お礼

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