2016-07-22 2 views
0

都市のリストを文字列として出力するコードがあります。このリストを分割し、各行を別のセルに貼り付けるにはどうすればよいでしょうか?リストには、これが唯一の3都市よりも多くの可能性があり、これは、これまでの私のコードのセグメントリストのExemple未知のサイズのリストを別の行に分割する方法

Formosa, Brazil (193 km) Sao Luis De Montes Belos, Brazil (190 km) Palmeiras De Goias, Brazil (190 km)

不明です:

output = driver.FindElementByXPath("//*[@id=""EchoTopic""]/div[1]/div[1]/table/tbody/tr").Text Worksheets("Cityfinder").Cells(p, 5) = output

これはリストが返されます、それは1から30以上の都市へのすべての方法かもしれない、という考えは、リストを貼り付けないことですが、各個別のpの行にリストここ

+0

分割するには、[Split'](https://msdn.microsoft.com/) en-ca/library/6x627e5f(v = 90).aspx)関数を使用し、[ループ]を使用します(http://stackoverflow.com/documentation/vba/1873/flow-control-structures#t=201607221517521317619)どこにでも置くこと – litelite

+0

はい、buどのくらいの時間ループする必要があるのか​​分かりますか?リストのサイズは不明です – bingoball

+0

[UBound](https://msdn.microsoft.com/en-ca/library/95b8f22f(v = v90).aspx) – litelite

答えて

0

の異なるラインは一例ですどのような@liteliteがsplitを使って言及したのか - splitは配列に何個のビルドを行うかを考慮します:

Sub splitandUbound() 

    Dim s() As String, s1 As String 
    Dim i As Integer 

    s1 = "C:\_KTemp\TEMP\Test Macro for FolderExists\test\test1\test2\test3" 

    ' Create the array 
    s = Split(s1, "\") 

    ' fill the array 
    For i = 0 To UBound(s) 
     debug.print Trim(s(i)) 
    Next 

End Sub 
+1

サブの名前は形式化されていません – litelite

+0

@ liteliteありがとう!それを私が直した。 –

関連する問題