縦でレコード保管する場合、こっちの方が楽だけど行数が厳しい。 タイトル行かどうかだけ判別必要でそれ以外は判別無しでOK ------------------ If IsArray(TargetFiles) Then For i = LBound(TargetFiles) To UBound(TargetFiles) If InStr(TargetFiles(i), "_reg") = 0 Then importFilename = TargetFiles(i) 'ワークシートの最終行を取得 lastRow = tempListSheet.Cells(Rows.Count, 1).End(xlUp).Row 'CSVファイル取込 Set importCsvSheet = Workbooks.Open(importFilename) If lastRow = 1 Then Range("A1:F1").Select Else Range("A2:F2").Select End If Range(Selection, Selection.End(xlDown)).Select Selection.Copy tempListSheet.Activate If lastRow = 1 Then tempListSheet.Range("A" & lastRow).Select Else tempListSheet.Range("A" & lastRow + 1).Select End If ActiveSheet.Paste importCsvSheet.Close End If Next i End If 

縦でレコード保管する場合、こっちの方が楽だけど行数が厳しい。 タイトル行かどうかだけ判別必要でそれ以外は判別無しでOK ------------------ If IsArray(TargetFiles...
=======================================

縦でレコード保管する場合、こっちの方が楽だけど行数が厳しい。
タイトル行かどうかだけ判別必要でそれ以外は判別無しでOK

------------------
If IsArray(TargetFiles) Then
For i = LBound(TargetFiles) To UBound(TargetFiles)
If InStr(TargetFiles(i), "_reg") = 0 Then
importFilename = TargetFiles(i)
'ワークシートの最終行を取得
lastRow = tempListSheet.Cells(Rows.Count, 1).End(xlUp).Row

'CSVファイル取込
Set importCsvSheet = Workbooks.Open(importFilename)
If lastRow = 1 Then
Range("A1:F1").Select
Else
Range("A2:F2").Select
End If
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
tempListSheet.Activate
If lastRow = 1 Then
tempListSheet.Range("A" & lastRow).Select
Else
tempListSheet.Range("A" & lastRow + 1).Select
End If
ActiveSheet.Paste
importCsvSheet.Close
End If
Next i

End If


http://ift.tt/1abnmbU
June 28, 2017 at 11:42AM