| 投稿日 | ： 2005/08/26(Fri) 16:02 |
| 投稿者 | ： ま〜さ |
| ＵＲＬ | ： |
| タイトル | ： Re2': Excelプロセスが残る（ごめんなさい、理解力不足で） |
> > そこから取り出しなさいという意味ですか？
> > お手数おかけします。
>
> hhttp://www.bcap.co.jp/hanafusa/dotnet/Excel08.htm
> 自分で見比べて違う箇所を直して試して見て下さい。
> 自分でやらないと身につかないし、応用も利きませんよ。
>
> hhttp://www.bcap.co.jp/hanafusa/dotnet/Excel01.htm
> hhttp://www.bcap.co.jp/hanafusa/bbs/wforum.cgi?no=1000&reno=997&oya=997&mode=msgview&page=30
いろいろやってみましたがうまくできませんでした。
下記のように変えたら動作するようにはなりました。（当初から理解していたつもり）
Dim xlRange1 As Excel.Range
xlRange1 = xlCells(yLine, yQtyQ)
zQtyQ = xlRange1.Value 'QTY1 TAG
MRComObject(xlRange1)
xlRange1 = xlCells(yLine, yQtyX) 'QTY2 TAG
zQtyX = xlRange1.Value 'QTY1 TAG
MRComObject(xlRange1)
xlRange1 = xlCells(yLine, yQtyN) 'QTY3 TAG
zQtyN = xlRange1.Value 'QTY1 TAG
MRComObject(xlRange1)
xlRange1 = xlCells(yLine, yQtyG) 'QTY4 TAG
zQtyG = xlRange1.Value 'QTY1 TAG
MRComObject(xlRange1)
xlRange1 = xlCells(yLine, yPrice) 'Price TAG
zPrice = xlRange1.Value 'QTY1 TAG
MRComObject(xlRange1)
xlRange1 = xlCells(yLine, yAmount) 'Amount TAG
zAmount = xlRange1.Value 'QTY1 TAG
経緯を書くと、当初は取出したい項目が３項目でした
zQtyQ = xlCells(yLine, yQtyQ).value 'QTY1 TAG
zQtyX = xlCells(yLine, yQtyX).value 'QTY2 TAG
zQtyN = xlCells(yLine, yQtyN).value 'QTY3 TAG
Rangeを使いたくなかった（MachalMoveObj)を使用する度実行する必要があると、
お教え(掲示板)いただいていた。（Cellsは１回でイイ）
なら同じExcle.Range型の項目から内容を取りだすだけなのでCellsのみで
コーディングしたらいいのではと思ってコーディングしたら動作した。
（プロセスが正常に終了していた）
2項目追加したらうまく行かなくなった。
１項目でも５項目でもダメなら最初からダメにならないのかと、いまだまったく理解できない。
これが正解ということなんでしょうか。