|
以下のようにコードを追加して下さい
ただし、Book1.xlsは、既に開かれている物とします
'書き込み行の初期値を設定
lngWriteRow = 1
'以下の行を追加して下さい
'例えば、Book1.xlsのSheet1に書き込みます
With Workbooks("Book1.xls").Worksheets("Sheet1")
'ファイルの終わりまで繰り返し
Do Until EOF(dfn)
・
・
・
'書き込み位置にデータを書き込み
'Cells(lngWriteRow, 1)の前にピリオドを追加
With .Cells(lngWriteRow, 1)
Range(.Offset(, 0), .Offset(, _
UBound(vntColm))).Value = vntWrite
・
・
・
Loop
'Loopの後にEnd Withを追加
End With
もし、Book1.xlsもマクロで開く場合は
With Workbooks("Book1.xls").Worksheets("Sheet1")
より前に
'Book1.xlsをOpen
Workbooks.Open (ThisWorkbook.Path & "\" & "Book1.xls")
を要れて下さい
尚、コードの中に
vntColm = Array(2, 4, 6)
が入っていますが、これは、私のミスで、Test用のコードを消し忘れていました
|
|