###前提・実現したいこと
エクセルマクロで150個のファイルを一つのシートに集計したいのですが、100で集計が止まってしまい実現できずにいます。
100以上を集計するにはコードをどうのように改変すればよいのでしょうか?
###該当のソースコード
Sub sample()
Dim sh As Worksheet, i As Long, xFile As String, xPath As String
Dim cPath As String
Set sh = Workbooks("dummy-Text.xls").ActiveSheet
cPath = sh.Range("I1").Value
Application.ScreenUpdating = False
For i = 0 To 99
xPath = cPath & Format(i + 1, "000")
xFile = Dir(xPath)
If xFile <> "" Then
Workbooks.OpenText Filename:=xPath, StartRow:=1, DataType _
:=xlDelimited, TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, _
Tab:=True, Semicolon:=False, Comma:=True, Space:=False, Other:=True, _
OtherChar:=":", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1))
With ActiveWorkbook
Range("B1:B2").Copy
sh.Range("B2").Offset(, i).PasteSpecial Paste:=xlValues
Range("C3:C4").Copy
sh.Range("B4").Offset(, i).PasteSpecial Paste:=xlValues
Range("B5:B8").Copy
sh.Range("B6").Offset(, i).PasteSpecial Paste:=xlValues
Range("C9").Copy
sh.Range("B10").Offset(, i).PasteSpecial Paste:=xlValues
Range("B10:B61014").Copy
sh.Range("B14").Offset(, i).PasteSpecial Paste:=xlValues
Application.CutCopyMode = False
.Close
End With
End If
Next i
Application.ScreenUpdating = True
End Sub
回答1件
あなたの回答
tips
プレビュー
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。
2017/01/18 01:15