VB初心者友の会 - Q&A掲示板過去ログ

> CreateObjectを使用するとマクロの確認メッセージが表示されず
> Auto_Openも行われません。

この場合、Auto_Openを実行させるには、オブジェク変数.Run("ファイル名.xls!Auto_Open")
とします。

> GetObjectを使用すると、マクロの確認メッセージは表示される
> のですが、「はい」を選択すると「オートメーションエラーです」
> のエラーメッセージが出てしまいます。

普通は出ないはずですが。。。
何か特別なコードを書いていますか？

> やりたい事としては、マクロの確認メッセージを表示し、Auto_Open
> を実行したいのです。

CreateObjectとRunメソッドの組み合わせでもエラーが出ますか？
出ないなら、マクロの確認メッセージを自作しましょう（笑）
出るなら、マクロ自体を見直しましょう。

> 何か特別なコードを書いていますか？

コードは以下の通りです。

Public Function Excel_Open_New(pPath As String) As Boolean
Dim G_Excel_New  As Object    'Excelオブジェクト
Dim bNotRun      As Boolean

On Error Resume Next
    
    Excel_Open_New = False
    
    Set G_Excel_New = GetObject(, "Excel.Application")
    If Err.Number <> 0 Then bNotRun = True
    Err.Clear
    
    DetectExcel
    
    '__pPath:ファイルのフルパス
　　Set G_Excel_New = GetObject(pPath)
    
    G_Excel_New.Application.Visible = True
    G_Excel_New.Parent.Windows(1).Visible = True
    
    If bNotRun Then
        G_Excel_New.Quit
    End If
    
    Set G_Excel_New = Nothing
    
    Excel_Open_New = True
    
    Exit Function

End Function


> CreateObjectとRunメソッドの組み合わせでもエラーが出ますか？

試してみました。
エラーは出ませんでした。
確認メッセージを自作しましょうかね？(^^;)

> 　　Set G_Excel_New = GetObject(pPath)

こうすると変数 G_Excel_New は、ブックオブジェクトになります。
ですから、
>         G_Excel_New.Quit

この行は、G_Excel_New.Application.Quit
になります。

気の付いたところはこのくらい。

みゃおさんありがとうございます。

さらに質問なんですが、
CreateObjectでマクロ確認メッセージを自作する場合、
そのエクセルファイルにマクロが含んでいるか判断する
ことは可能なのでしょうか？

> みゃおさんありがとうございます。
> 
> さらに質問なんですが、
> CreateObjectでマクロ確認メッセージを自作する場合、
> そのエクセルファイルにマクロが含んでいるか判断する
> ことは可能なのでしょうか？

CodeModuleプロパティで出来たと思います。
試してないけど、こんな感じかな？

Dim i As Integer
Dim CheckModule As Boolean

CheckModelue = False
With objExcel.Application.VBE.ActiveVBProject
    For i = 1 To .VBComponents.Count
        If .VBComponents(i).CodeModule Is Nothing then
            '
        Else
            CheckModule = True
            MsgBox .VBComponents(i).Name & "にモジュールがあります。"
        End If
    Next i
End With

if CheckModule = False Then
    MsgBox "このプロジェクトにはモジュールがありません。"
End If

> CodeModuleプロパティで出来たと思います。
> 試してないけど、こんな感じかな？
> 
> Dim i As Integer
> Dim CheckModule As Boolean
> 
> CheckModelue = False
> With objExcel.Application.VBE.ActiveVBProject
>     For i = 1 To .VBComponents.Count
>         If .VBComponents(i).CodeModule Is Nothing then
>             '
>         Else
>             CheckModule = True
>             MsgBox .VBComponents(i).Name & "にモジュールがあります。"
>         End If
>     Next i
> End With
> 
> if CheckModule = False Then
>     MsgBox "このプロジェクトにはモジュールがありません。"
> End If

上記のコードを使ってみたのですが、マクロを含んでいないエクセルファイルでも
マクロを含んでいるように認識してしまいます。
どうも、
>　If .VBComponents(i).CodeModule Is Nothing then

の部分がうまく行っていないようです。
本をいろいろと調べてみたのですが、分かりませんでした。
ご存知の方、いらっしゃいましたらご指導宜しくお願いします。

> 上記のコードを使ってみたのですが、マクロを含んでいないエクセルファイルでも
> マクロを含んでいるように認識してしまいます。
> どうも、
> >　If .VBComponents(i).CodeModule Is Nothing then
> 
> の部分がうまく行っていないようです。
> 本をいろいろと調べてみたのですが、分かりませんでした。
> ご存知の方、いらっしゃいましたらご指導宜しくお願いします。

すみませんでした。先程試してみたら確かにIf文の条件は
成り立たないですね。

If .VBComponents(i).CodeModule.CountOfLines > 0 Then
    CheckModule = True
    MsgBox .VBComponents(i).Name & "にモジュールがあります。"
End If

とするとうまくいくようです(^^;

> どうも、
> >　If .VBComponents(i).CodeModule Is Nothing then
> の部分がうまく行っていないようです。

http://www.microsoft.com/JAPAN/support/kb/articles/J031/5/06.htm
を見て、コードの行数を数えてはいかがでしょう？
マクロがあれば、必ず２行以上（Sub〜End Sub, Function〜End Functionなど)
使われているはずです。