0

助けてください-このコードでどのように使用できますか:

Dim doc As XDocument = _
    New XDocument( _
    New XElement("root"))
    doc.Root.Add(From i In Enumerable.Range(0, 10) _
                 Select New XElement("foo", i))


                 Dim doc As XDocument = <?xml version="1.0"?>
                       <root>
                           <values>
                               <%= From i In Enumerable.Range(1, 3) Select <value>
                                                                               <%= cells(i, 1).Value %>
                                                                           </value> %>
                           </values>

                       </root>

ここでは数値変数の代わりに？Enumerable.Range(1, 3) 次のようなもの:

Dim iCount = 5
    Enumerable.Range(1, iCount)

このように使用するとエラーが発生します-「iCount」が宣言されていません。保護レベルにより、アクセスできない場合があります。

4

1 に答える 1

0

これですべて問題ありませんが、この行にエラーがあります: (...) == "y"

..... 
</Header>
                                            <Request>
                                                <%= From i In Enumerable.Range(1, LastRow) Select
                                                    <%= If(LCase(Globals.ThisAddIn.Application.ActiveWorkbook.ActiveSheet.Cells(iRow, 25).Value) == "y",
                                                        <ID>
                                                            <%= Globals.ThisAddIn.Application.ActiveWorkbook.ActiveSheet.Cells(i, 1).Value %>
                                                        </ID>,
                                                        Nothing)
                                                    %>
                                                %>
                                            </Request>
                                        </RequestMessage>
                                    </soapenv:Body>
                                </soapenv:Envelope>
于 2016-08-28T16:43:57.180 に答える