文字列の分割(Split関数)　 次の文書

i = 4
K = 0
Dim 配列() As String
PS情報 = データ情報SH.Cells(1, 2) & "\" & データ情報SH.Cells(1, 3)
Open PS情報 For Input As #1
Do While Not EOF(1)
Line Input #1, PS情報IN
K = K + 1
配列 = Split(PS情報IN, ",") ',で分割
For j = 0 To UBound(配列) '配列の最大値
myMsg = myMsg & j & "番目の要素 : " & 配列(j) & vbCr
IMCD = 配列(0)
LV = 配列(1)
PIMCD = 配列(2)
AIMCD = 配列(3)
Application.StatusBar = "IN=" & 製品 & " " & K & " " & IMCD
Next j

If 製品 = IMCD Then
シュミレーションSH.Cells(i, 1) = AIMCD
i = i + 1
End If
Loop
Close #1

　



← 左の文字をここへ入力後 登録ボタンをクリックしてください

(サイト管理者承認後掲載されます)