C# と VB.NET の質問掲示板

ASP.NET、C++/CLI、Java 何でもどうぞ

C# と VB.NET の入門サイト

Re[1]: 別ファイルに書き込みたい！

分類:[.NET 全般]　

ＶＢＡ6.0

CommandButtunがあるファイルとは別の、指定したファイル（ＳＡ.xls）にデータを書き込みたいのですが、
以下の記述だとCommandButtonのついている同じファイルにデータが書き込まれ、
ＳＡファイルを開こうとすると、「データが読み込めません」となって、
何も書き込まれません。
どうすればよいでしょうか？？
よろしくお願いいたします。

Private Sub CommandButton1_Click()

Dim i As Integer
Dim xml As MSXML2.DOMDocument
Dim xmlpath As String
Dim xmlel As IXMLDOMElement
Dim xmlnodl As IXMLDOMNodeList
Dim xmlnode As IXMLDOMNode

Dim lngRow As Long
Dim intFileNum As Integer
Dim strBand As String
Dim strTitle As String
Dim strComment As String

intFileNum = FreeFile

'書き込みファイルのＯＰＥＮ
Open "SA.xls" For Output As #intFileNum

'読み込みファイルの設定
Set xml = New MSXML2.DOMDocument
xmlpath = "C:\Documents and Settings\KIOSK\デスクトップ\20100219-排出指示緊急対応用データ\T0032\pullreceipts_T00000032_20100214_0000.xml"

'ファイル読み込み
xml.Load (xmlpath)

Set xmlel = xml.DocumentElement
Set xmlnodl = xmlel.getElementsByTagName("productid")
i = 1
For Each xmlnode In xmlnodl

'ファイルの書き込み
Workbook("SA.xls").Worksheets("SA").Range("B" & i).Value = xmlnode.Text
i = i + 1
Next

'書き込みファイルのＣＬＯＳＥ
Close #intFileNum

Set xml = Nothing

End Sub

回答ではありません。
「xmlpath =～」のパスの部分は伏せた方がいいのでは？

■No47785 (saya さん) に返信
> CommandButtunがあるファイルとは別の、指定したファイル（ＳＡ.xls）にデータを書き込みたいのですが、
> 以下の記述だとCommandButtonのついている同じファイルにデータが書き込まれ、
> ＳＡファイルを開こうとすると、「データが読み込めません」となって、
> 何も書き込まれません。
> どうすればよいでしょうか？？

まず、文章をもう少し整理して他の方が分かるようにしてください。
最終目的は分かるのですが、目的に達するまでの手順がよく分からない。

■No47785 (saya さん) に返信
> ＶＢＡ6.0
>
> CommandButtunがあるファイルとは別の、指定したファイル（ＳＡ.xls）にデータを書き込みたいのですが、
> 以下の記述だとCommandButtonのついている同じファイルにデータが書き込まれ、
> ＳＡファイルを開こうとすると、「データが読み込めません」となって、
> 何も書き込まれません。
> どうすればよいでしょうか？？
> よろしくお願いいたします。
>
>
>
> Private Sub CommandButton1_Click()
>
> Dim i As Integer
> Dim xml As MSXML2.DOMDocument
> Dim xmlpath As String
> Dim xmlel As IXMLDOMElement
> Dim xmlnodl As IXMLDOMNodeList
> Dim xmlnode As IXMLDOMNode
>
> Dim lngRow As Long
> Dim intFileNum As Integer
> Dim strBand As String
> Dim strTitle As String
> Dim strComment As String
>
> intFileNum = FreeFile

新しい「ファイル」を開くのではなく、新しい「ワークブック」を開かなければならないのでないですか？

■No47785 (saya さん) に返信
>     '書き込みファイルのＯＰＥＮ
>     Open "SA.xls" For Output As #intFileNum
この場合、Open /Close ステートメントは不要です。
Open ステートメントは、Workbook として開くためのものではなく、
Print # ステートメント等と組み合わせて使う物です。

Workbook として生成したいのであれば、
　　既存の SA.xls を編集する場合は「Workbooks.Open メソッド」＋「Workbook.Save   メソッド」
　　新たに SA.xls を作成する場合は「Workbooks.Add  メソッド」＋「Workbook.SaveAs メソッド」
を試してみてください。


>         'ファイル読み込み
>         xml.Load (xmlpath)
VBA では、引数を取らないメソッドの呼び出しに括弧を付けません。この場合には、
          xml.Load xmlpath
もしくは、
          Call xml.Load(xmlpath)
という記述を利用しましょう。


>     Set xml = Nothing
変数 xml は Nothing 代入しているのに、そのほかのオブジェクトは Nothing 代入しないのは何故でしょうか?

今回の場合、変数のスコープがプロシージャ レベルなので、Nothing を代入する事にはあまり意味がありませんが、
代入するならするで、一部のオブジェクト変数のみを処理するというのは不自然に思えます。

C# と VB.NET の質問掲示板

ASP.NET、C++/CLI、Java 何でもどうぞ

C# と VB.NET の入門サイト

Re[1]: 別ファイルに書き込みたい！

過去ログには書き込み不可