[リストへもどる]   [VBレスキュー(花ちゃん)]
一括表示

投稿時間:2005/02/17(Thu) 07:58
投稿者名:kara
Eメール:
URL :
タイトル:
auto_openが実行しません
おはようございます
お世話になっております、karaでございます。


VB6.0でEXCELを起動させるのですが
EXCELの標準モジュールのSub auto_open()が実行しない


Dim xl As Object 'Excel.Application
    Dim wb As Object 'Excel.Workbook
    Dim ws As Object 'Excel.Worksheet
Set xl = CreateObject("Excel.Application")
Set wb = xl.Workbooks.Open("C:\kara.xls")
'xl.Run "reseto"

xl.Visible = True
xl.UserControl = True


エクセル↓が起動できない 
Sub auto_open()

End Sub
直接EXCELを開くと起動するのですが、原因が分かりません
ご指示下さい。
よろしくお願いいたします。

投稿時間:2005/02/17(Thu) 08:17
投稿者名:花ちゃん
Eメール:
URL :
タイトル:
Re: auto_openが実行しません
Auto_OpenマクロはVBから起動した場合実行されません。別途VBから呼び出して
実行するような形に変更してください。

xl.Run ("Auto_Open")

>直接EXCELを開くと起動するのですが
Auto_Open マクロを実行せずにプロジェクト ファイルを開くには、[ファイ ル] メニューの
[開く] をクリックし、[ファイルを開く] ダイアログ ボックス から開きたいファイルを
選択した後、Shift キーを押しながら [OK] をクリック します。

投稿時間:2005/02/17(Thu) 09:03
投稿者名:kara
Eメール:
URL :
タイトル:
解決しました
> Auto_OpenマクロはVBから起動した場合実行されません。別途VBから呼び出して
> 実行するような形に変更してください。
>
>  xl.Run ("Auto_Open")
>
> >直接EXCELを開くと起動するのですが
> Auto_Open マクロを実行せずにプロジェクト ファイルを開くには、[ファイ ル] メニューの
>  [開く] をクリックし、[ファイルを開く] ダイアログ ボックス から開きたいファイルを
> 選択した後、Shift キーを押しながら [OK] をクリック します。

ありがとうございました
起動いたしました。