Excel VBA メモ帳

ファイル一覧の取得

FileSystemObject への参照設定をしておく必要があります。

Sub FileOperation(Target)

Dim FSO As FileSystemObject
Dim F As File
Dim FD As Folder
Dim FS As Files

Set FSO = New FileSystemObject
Set FD = FSO.GetFolder(Target)
Set FS = FD.Files
'ThisWorkbook.Sheets("Sheet1").UsedRange.Delete

'見出しを付ける
ThisWorkbook.ActiveSheet.Range("C2") = "ファイル名"
ThisWorkbook.ActiveSheet.Range("D2") = "ファイル種別"
ThisWorkbook.ActiveSheet.Range("E2") = "ファイル容量(バイト)"

Dim i As Integer
i = 3
For Each F In FS
'ファイル名
ThisWorkbook.ActiveSheet.Cells(i, 3) = F.Name
'ファイル種別
ThisWorkbook.ActiveSheet.Cells(i, 4) = F.Type
'ファイル容量
ThisWorkbook.ActiveSheet.Cells(i, 5) = F.Size
i = i + 1
Next
End Sub

Excelのシートからハイパーリンクを取り出すVBA


Function HyperLinkChar(s As String)
Dim r As Range
Set r = Range(s)
HyperLinkChar = r.Hyperlinks.Item(1).Address
End Function