質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

ただいまの
回答率

88.36%

VBA Excel for Macにて「ActiveX コンポーネントはオブジェクトを作成できません。」の解消の仕方がわかりません(MacScript関数の使い方)

解決済

回答 1

投稿 編集

  • 評価
  • クリップ 0
  • VIEW 6,032

dacchi2000

score 27

前提・実現したいこと

Excel for Macにて連想配列のサンプルコードを実行しようとしたところ
「実行時エラー '429':
ActiveX コンポーネントはオブジェクトを作成できません。」
が表示され実行されません。調べる限りだとMacScript関数を使うと見たのですが、
どのように使用するのかよくわかりません。
原因がわかる方解答をお願いします。
ソースコードは下記サイトのものを使用しました。
サイトURL:http://www.eurus.dti.ne.jp/~yoneyama/Excel/vba/vba_dictionary.html

発生している問題・エラーメッセージ

イメージ説明

該当のソースコード

Sub rei21_3()
  Dim myDic As Object, myKey, myItem
  Dim myVal, myVal2, myVal3
  Dim i As Long
    Range("E2", Range("G" & Rows.Count).End(xlUp)).ClearContents
    Range("E1:G1").Value = Range("A1:C1").Value
    Set myDic = CreateObject("Scripting.Dictionary")
    ' ---元データを配列に格納
    myVal = Range("A2", Range("A" & Rows.Count).End(xlUp)).Resize(, 3).Value
    ' ---myDicへデータを格納
        For i = 1 To UBound(myVal, 1)
            myVal2 = myVal(i, 1) & "_" & myVal(i, 2)
            If Not myVal2 = "_" Then
                If Not myDic.exists(myVal2) Then
                    myDic.Add myVal2, myVal(i, 3)
                Else
                    myDic(myVal2) = myDic(myVal2) + myVal(i, 3)
                End If
            End If
        Next
    ' ---Key,Itemの書き出し
    myKey = myDic.keys
    myItem = myDic.items
        For i = 0 To UBound(myKey)
            myVal3 = Split(myKey(i), "_")
            Cells(i + 2, 5).Value = myVal3(0)
            Cells(i + 2, 6).Value = myVal3(1)
            Cells(i + 2, 7).Value = myItem(i)
        Next
    Set myDic = Nothing
    ' ---並べ替え
    Range("E1", Range("G" & Rows.Count).End(xlUp)).Sort _
        Key1:=Range("E2"), Order1:=xlAscending, _
        Key2:=Range("F2"), Order2:=xlAscending, _
        Header:=xlGuess
End Sub

エクセル画面

イメージ説明

補足情報(言語/FW/ツール等のバージョンなど)

使用しているPC: iMac OS X 10.11.5
マイクロソフトOffice: Office365 Solo

Windowsにて実行した場合、問題ありませんでした

  • 気になる質問をクリップする

    クリップした質問は、後からいつでもマイページで確認できます。

    またクリップした質問に回答があった際、通知やメールを受け取ることができます。

    クリップを取り消します

  • 良い質問の評価を上げる

    以下のような質問は評価を上げましょう

    • 質問内容が明確
    • 自分も答えを知りたい
    • 質問者以外のユーザにも役立つ

    評価が高い質問は、TOPページの「注目」タブのフィードに表示されやすくなります。

    質問の評価を上げたことを取り消します

  • 評価を下げられる数の上限に達しました

    評価を下げることができません

    • 1日5回まで評価を下げられます
    • 1日に1ユーザに対して2回まで評価を下げられます

    質問の評価を下げる

    teratailでは下記のような質問を「具体的に困っていることがない質問」、「サイトポリシーに違反する質問」と定義し、推奨していません。

    • プログラミングに関係のない質問
    • やってほしいことだけを記載した丸投げの質問
    • 問題・課題が含まれていない質問
    • 意図的に内容が抹消された質問
    • 過去に投稿した質問と同じ内容の質問
    • 広告と受け取られるような投稿

    評価が下がると、TOPページの「アクティブ」「注目」タブのフィードに表示されにくくなります。

    質問の評価を下げたことを取り消します

    この機能は開放されていません

    評価を下げる条件を満たしてません

    評価を下げる理由を選択してください

    詳細な説明はこちら

    上記に当てはまらず、質問内容が明確になっていない質問には「情報の追加・修正依頼」機能からコメントをしてください。

    質問の評価を下げる機能の利用条件

    この機能を利用するためには、以下の事項を行う必要があります。

回答 1

checkベストアンサー

+1

Scripting.Dictionary がmac環境では利用できないからだと思います。
「Scripting.Dictionary mac」 で検索するといくつか代替案が見つかりそうですので、調べてみてはいかがでしょうか。

投稿

  • 回答の評価を上げる

    以下のような回答は評価を上げましょう

    • 正しい回答
    • わかりやすい回答
    • ためになる回答

    評価が高い回答ほどページの上位に表示されます。

  • 回答の評価を下げる

    下記のような回答は推奨されていません。

    • 間違っている回答
    • 質問の回答になっていない投稿
    • スパムや攻撃的な表現を用いた投稿

    評価を下げる際はその理由を明確に伝え、適切な回答に修正してもらいましょう。

  • 2016/05/30 17:19

    調べたら出てきました。
    ありがとうございます。

    キャンセル

15分調べてもわからないことは、teratailで質問しよう!

  • ただいまの回答率 88.36%
  • 質問をまとめることで、思考を整理して素早く解決
  • テンプレート機能で、簡単に質問をまとめられる

関連した質問

同じタグがついた質問を見る

  • トップ
  • VBAに関する質問
  • VBA Excel for Macにて「ActiveX コンポーネントはオブジェクトを作成できません。」の解消の仕方がわかりません(MacScript関数の使い方)