|
早速ありがとうございます。
下の様に変更したらあまりよい方法じゃないかもですが
思っていたようになりました。
よいお知恵をお借りできてよかったです。
ありがとうございました。
Sub filenamelist()
Dim folderPath As String
Dim myFName As String
Dim FCnt As Integer
Sheets("規定値").Select
folderPath = Range("B10")
ChDir folderPath
FCnt = 16 '取得ブック数をカウントするための変数を初期化
myFName = Dir("*.xls") 'フォルダ内の最初のExcelブックを取得
If myFName <> "" Then
FCnt = FCnt + 1 '取得ブック数をカウント
Cells(FCnt, 4).Value = myFName
Do '1件目以降のブックを取得
myFName = Dir()
If myFName <> "" Then
FCnt = FCnt + 1
Sheets("規定値").Cells(FCnt, 4).Value = myFName
Else
Exit Do
End If
Loop
End If
Sheets("規定値").Select
Range("B17").Select
ActiveCell.FormulaR1C1 = FCnt - 16 'ここに-16を追加
End Sub
▼マクロマン さん:
>Sheets("規定値").Cells(FCnt, 1).Value = myFName
>
>Cellsを使う場合は、
>Cells(行番号,列番号)
>と指定します。
|
|