タイトル : Re: 文字列分割 投稿日 : 2009/04/16(Thu) 17:01 投稿者 : 花ちゃん
下記のようになればいいのでしょうか? (ここのVB簡易リファレンス内のVB6.0 からの文字列関数を参照) Option Explicit Private Sub Command1_Click() Dim AddDat As Variant Dim myString As String Dim i As Long myString = """ABC DEF"" ""12453"" ""YYB 125""" AddDat = Split(myString, """") For i = LBound(AddDat) To UBound(AddDat) If Len(Trim(AddDat(i))) > 0 Then Debug.Print AddDat(i) End If Next i End Sub |