複数CSVファイルから最大行数を取得するVBAのメモ残しとく 使うかもしれない ---- Set fs = CreateObject("Scripting.FileSystemObject") Set tempListSheet = ThisWorkbook.Sheets(LIST_SHEET) '選択したファイルの行数を取得 If IsArray(TargetFiles) Then For i = LBound(TargetFiles) To UBound(TargetFiles) If InStr(TargetFiles(i), "_reg") = 0 Then Set fst = fs.OpenTextFile(TargetFiles(i), ForAppending) '最大行数のファイルを取得する If maxRowCounter < fst.Line Then maxRowCounter = fst.Line firstImportFilename = TargetFiles(i) End If End If Next i MsgBox "最大の行数は" & maxRowCounter & "行です。" & vbCrLf & "取込対象は" & firstImportFilename & "です。" tempListSheet.Cells.Clear 'フォルダ内で最大行数のCSVファイルを横展開して取込 Set importCsvSheet = Workbooks.Open(firstImportFilename) Range("B3:F3").Select Range(Selection, Selection.End(xlDown)).Select Selection.Copy tempListSheet.Activate tempListSheet.Range("B1").Select Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=True importCsvSheet.Activate Range("A3").Select Selection.Copy tempListSheet.Activate tempListSheet.Range("A3").Value = "Hostname" tempListSheet.Range("A4").Select Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=True importCsvSheet.Close End If

複数CSVファイルから最大行数を取得するVBAのメモ残しとく 使うかもしれない ---- Set fs = CreateObject("Scripting.FileSystemObject") Set...
=======================================

複数CSVファイルから最大行数を取得するVBAのメモ残しとく
使うかもしれない

----
Set fs = CreateObject("Scripting.FileSystemObject")
Set tempListSheet = ThisWorkbook.Sheets(LIST_SHEET)

'選択したファイルの行数を取得
If IsArray(TargetFiles) Then
For i = LBound(TargetFiles) To UBound(TargetFiles)
If InStr(TargetFiles(i), "_reg") = 0 Then
Set fst = fs.OpenTextFile(TargetFiles(i), ForAppending)
'最大行数のファイルを取得する
If maxRowCounter < fst.Line Then
maxRowCounter = fst.Line
firstImportFilename = TargetFiles(i)
End If
End If
Next i


MsgBox "最大の行数は" & maxRowCounter & "行です。" & vbCrLf & "取込対象は" & firstImportFilename & "です。"

tempListSheet.Cells.Clear
'フォルダ内で最大行数のCSVファイルを横展開して取込
Set importCsvSheet = Workbooks.Open(firstImportFilename)
Range("B3:F3").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
tempListSheet.Activate
tempListSheet.Range("B1").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
importCsvSheet.Activate
Range("A3").Select
Selection.Copy
tempListSheet.Activate
tempListSheet.Range("A3").Value = "Hostname"
tempListSheet.Range("A4").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
importCsvSheet.Close
End If

http://ift.tt/1abnmbU
June 28, 2017 at 09:26AM