未保存のEXCELシートを読込むには？

解決

ひろ 2002-11-23 04:38:11 No: 76449

こんばんは、ひろと申します。
VB6 SP5で、保存されていないEXCELワークシートのデータを読込むことって
可能でしょうか？
ＯＬＥ貼り付けされているデータをクリックすると、Untitledのワークシートが
開きます。
このワークシートをファイル保存せずにＶＢで直接データを読込みたいのですが、
何か方法はあるでしょうか？
ご存知の方、ぜひご教示下さい。
よろしくお願いします。

魔界の仮面弁士 2002-11-23 05:32:56 No: 76450

Workbookオブジェクト経由で読み込む事ができます。

例えば、OLEコントロールに埋め込まれているのであれば、
MsgBox OLE1.object.Sheets(1).Range("A1").Value
のように書くことができますし、ExcelやIEで開いているのなら、
MsgBpx objWorkbook.Sheets(1).Range("A1").Value
などと書くことができるでしょう。

ひろ 2002-11-25 18:53:47 No: 76451

魔界の仮面弁士様
今回はＯＬＥコントロールは使いませんでしたが、
レスを参考にいろいろ資料等を調べてみると、
GetObjectという関数があったので、それを使用して
Set exl = GetObject(, "Excel.Application")
exl.Worksheets(1).Cells(1, 1).Value = "*****"
のように記述すると上手くいきました。
ありがとうございました。