|
みぽりん さん
こんにちは。
bndという拡張子がよくわからないのと、
先ほどのコードを活かした内容ではないですが、
これでいきませんかね?
(bndという拡張子ではダメかもしれません)
昔、自分のためにつくったやつの焼き直しなので、細かく見てません。
ちょっと、忙しいので、クレーム対応遅れるかもしれません。
失礼致します。
Sub データ書き写し()
Dim myFo As String
Dim fileStr As String
Dim myWs As Worksheet, myWb As Workbook
Dim dataWb As Workbook
Dim i As Integer
Set myWb = Workbooks.Add
Set myWs = myWb.ActiveSheet
myFo = "D:\Ki" 'フォルダのパス
fileStr = Dir(myFo & "\", vbNormal)
i = 1
Do While fileStr <> ""
Set dataWb = Workbooks.Open(myFo & "\" & fileStr)
With dataWb.ActiveSheet
myWs.Range("A" & i).Value = "ファイル" & i
myWs.Range("B" & i).Value = .Range("C7").Value
myWs.Range("C" & i).Value = .Range("C9").Value
myWs.Range("D" & i).Value = .Range("C8").Value
myWs.Range("E" & i).Value = .Range("C13").Value
myWs.Range("F" & i).Value = .Range("C15").Value
myWs.Range("G" & i).Value = .Range("C14").Value
End With
i = i + 1
dataWb.Close
fileStr = Dir
Loop
End Sub
|
|