[リストへもどる]
一括表示

投稿時間:2004/01/22(Thu) 19:43
投稿者名:ひろ
Eメール:
URL :
タイトル:
Excelのプレビュー
VBからExcelを起動し、セルに値を貼り付けた後そのプレビュー画面を表示しています。
こちらのHPを参考にして作成し、そこまではうまくいっています。

VBのフォームのボタン押下時、プレビュー画面を表示しているのですが、
それが表示されている時、その裏のVBのフォームをクリックすると、
「コンポーネントを使用できません」というエラーが発生してしまいます。
プレビュー画面を閉じてからフォームをクリックすると、エラーは発生しません。

この現象の原因と解決方法を教えていただけないでしょうか。
宜しくお願いします。

なお、開発で使用しているのは、WINDOWS2000、VB6、Excel2000です。

投稿時間:2004/01/23(Fri) 01:25
投稿者名:花ちゃん
Eメール:
URL :
タイトル:
Re: Excelのプレビュー
プレビュー画面とは、印刷プレビュー画面でしょうか?
xlApp.ActiveWindow.SelectedSheets.PrintPreview で処理が移ったままになって
いるからじゃないでしょうか?
下記のようにして見てはどうでしょうか?

Private Sub Command2_Click()
    Form1.Visible = False
    xlApp.ActiveWindow.SelectedSheets.PrintPreview
    Form1.Visible = True
End Sub

投稿時間:2004/01/26(Mon) 10:42
投稿者名:ひろ
Eメール:
URL :
タイトル:
Re^2: Excelのプレビュー
お返事遅くなりまして申し訳ありません。

教えていただいた方法で試してみたのですが、前の画面をvbModalでShowしているため、
うまくできませんでした。もう少し方法を考えてみようと思います。

また不明点等ありましたら、質問させてください。
ありがとうございました。

> プレビュー画面とは、印刷プレビュー画面でしょうか?
> xlApp.ActiveWindow.SelectedSheets.PrintPreview で処理が移ったままになって
> いるからじゃないでしょうか?
> 下記のようにして見てはどうでしょうか?
>
> Private Sub Command2_Click()
>     Form1.Visible = False
>     xlApp.ActiveWindow.SelectedSheets.PrintPreview
>     Form1.Visible = True
> End Sub