|
>私の質問が、わかりにくかった
そうではなく、応用もできないのに初めから実際の状況を説明せず、
例題ばかり内容をコロコロ変えて書いたのが間違いなのです。
最初の[44871]の文章を読み返してみて下さい。そこから何回内容が
変わってますか ?
>生半可の知識しかない
のを自覚していたら、ヒントぐらいの回答では応用できそうにない、
と思わなかったですか ?
ま、何はともあれ今回が最後の回答にしますから、そのつもりで。
Sub Macro1()
Dim i As Integer, j As Integer
Dim Sh As Worksheet
Dim AdAry As Variant
Dim MyF As String, LkAry(0 To 4) As String
Const SFol As String = _
"C:\Documents and Settings\安部 義信\デスクトップ\授業料調査集計\"
Set Sh = Worksheets("集計")
AdAry = Array("R7C3", "R7C5", "R8C5", "R7C6", "R8C6")
For i = 1 To 94
MyF = Dir(SFol & Format(i, "00") & "*.xls")
With Sh.Range(Sh.Cells(i + 6, 5), Sh.Cells(i + 6, 9))
If MyF = "" Then
.Cells(1).Value = "File_NotFound"
Else
For j = 0 To 4
LkAry(j) = ExecuteExcel4Macro("'" & SFol & _
"[" & MyF & "]アンケート'!" & AdAry(j))
Next j
.Value = LkAry(): Erase LkAry
End If
End With
Next i
Sh.Activate: Set Sh = Nothing: Erase AdAry
MsgBox "全てのデータを転記しました", 64
End Sub
|
|