[]を使うと文字列の中の任意の文字を取り出せます。[]の中にはゼロ(0)から始まるインデックス番号を指定します。文字列の末尾(右端)から数える場合は、-1から始めます。
図
[0回]
PR
オブジェクト指向とは、プログラミングの機能をグループ化し、これを組み合わせてプログラムを作成していく考え方です。機能単位の独立性が高まり、再利用性がを高めることができます。
[0回]
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回]
'---------------------------------
'月末の判定例
'細かな形式は全部省略
'matubiA1は、末尾の判定ができるセルを指定する。
'右から2桁を抽出してCase文で判定します。
Sheets(hogehoge).Select
matubiA1 = Range("A1").Value
matubiA1 = DateValue(matubiA1)
matubiA1 = Right(matubiA1, 2)
Select Case matubiA1
Case "03"
'28日の場合
endID1 = 28
Case "02"
'29日の場合
endID1 = 29
Case "01"
'30日の場合
endID1 = 30
Case Else
'31日の場合
endID1 = 31
End Select
[0回]
