|
列方向(右)へとリンクしていくなら、かならず 256個以内 のファイル数でないと
いけません。それは分かりますね ? で、保存先のフォルダーは決まっているのですから
そのパスは定数で宣言しておきます。こんな感じになります。
Sub TEST1()
Dim MyF As String
Dim Cnum As Integer
Const Ph As String = _
"'C:\Documents and Settings\(中略)\"
MyF = Dir(Ph & "*.xls")
Do Until MyF = ""
Cnum = Cnum + 1
If Cnum > 256 Then Exit Do
With Worksheets("テスト1")
With .Range(.Cells(4, Cnum), .Cells(24, Cnum))
.Formula = "=' & Ph & "[" & MyF & "]TOTAL'!D12"
.Value = .Value
End With
End With
MyF = Dir()
Loop
With Worksheets("テスト1")
.Range(.Cells(26, 1), .Cells(26, Cnum)).Formula = _
"=IF(ISNA(MATCH(""AAA"",A:A,0)),"""",MATCH(""AAA"",A:A,0))"
End With
End Sub
|
|