Sub Main
'----------------------
'ファイル取り込み処理
For j = sID1 To endID1
filename = ThisWorkbook.Path & "\Disk_C_" & nengetu & Format(j, "00") & ".csv"
sheetsName = hostName & "_Disk_" & Format(j, "00")
'ファイルがない場合にループを抜ける処理
If Dir(filename) = "" Then
MsgBox j & "日のファイルが見つかりません"
GoTo Line1
End If
'外部テーブル範囲に取り込み
'---------------------------------
Set myQT = Sheets(sheetsName).QueryTables.Add( _
Connection:="TEXT;" & fileName, _
Destination:=Sheets(sheetsName).Range("A1"))
With myQT
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileCommaDelimiter = True
.TextFileSpaceDelimiter = False
.TextFileSemicolonDelimiter = False
.TextFileTabDelimiter = False
.TextFileOtherDelimiter = ""
.AdjustColumnWidth = True
.BackgroundQuery = False
.Refresh
.Delete
End With
'---------------------------------
'ここに、取り込んだファイルの処理内容を書く
'---------------------------------
Next j
'---------------------------------
MsgBox hostName & "マクロ正常終了"
Line1:
End Sub
[0回]
PR
