- ベストアンサー
参照設定にチェックを入れないで実行したい
- VBAで参照設定にチェックを入れずに特定のコードを実行する方法が知りたいです。
- 参照設定で「Microsoft Shell Controls And Automation」にチェックを入れたくないけれど、コードを実行したいです。
- 「http://okwave.jp/qa/q7325145.html」の方法を参考にしましたが、参照設定にチェックを入れずにコードを実行できるでしょうか？
- f2sa6sdfa
- お礼率100% (53/53)
- Visual Basic
- 回答数2
- ありがとう数2
- みんなの回答 （2）
- 専門家の回答
質問者が選んだベストアンサー
その他の回答 (1)
- watabe007
- ベストアンサー率62% (476/760)
こんばんは、これでどうでしょうか CreateObject("Shell.Application").Help
お礼
書き忘れましたが 当方オフィスのバージョンは２００３と２００７を持っていますが Function test() Dim objsample As Shell の間に、 CreateObject("Shell.Application").Help を入れてみましたが、２００３も２００７も objsample As Shell の部分が、 「ユーザー定義型は定義されていません。」 になってしまいました。。。
関連するQ&A
- 参照設定は2.8と6.0 6.1とどちらにチェッ
ADOとADOXを使おうと思うのですが 参照設定の2.8と6.0 6.1とどちらにチェックをつければいいでしょうか？ ADOの場合は、2.8の次が6.1 ADOXの場合は、2.8の次が6.0になっています。 一番新しい番号にチェックするべきという書き込みを見たのですが 2.6 2.7 2.8 6.1 と飛んでるのが不自然で、6.0は無視して2.8にチェックをつけるのか、 6.0が最新だからチェックをつけるのか、迷っています。 それぞれひとつずつチェックをつけて、コードを実行してみましたがエラーにはなりませんでした。 どちらでも全く変わらないのでしょうか？
- ベストアンサー
- その他MS Office製品
- 参照設定にチェックを入れないでADOを使いたい
アクセス２００３です。 テーブル１にテキスト型のフィールド１を作り、数レコードをサンプルで入れました。 そしてＶＢＥ画面で Sub test() Dim cn As New ADODB.Connection Dim rs As New ADODB.Recordset cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source= " & CurrentProject.FullName rs.Open "テーブル1", cn, adOpenKeyset, adLockOptimistic MsgBox rs.RecordCount rs.Close: Set rs = Nothing cn.Close: Set cn = Nothing End Sub としたらレコード件数が取得できました。 質問は ツール→参照設定の Microsoft ActiveX Data Objects 2.8 Library にチェックをいれなくても ＶＢＡコードだけで参照設定できたような気がするので そのコードを教えてくいただけませんか？ アドバイスよろしくお願いします。
- ベストアンサー
- Visual Basic
- コンパネが開かない win7
http://www.accessclub.jp/supbeg/070.html のようにＶＢＡでコンパネを開きたいのですが なぜか Function Folder_Open() Dim objsample As Shell Set objsample = New Shell 'コントロールパネルを開きます。 objsample.ControlPanelItem "" Set objsample = Nothing '開放します。 End Function を実行すると、コンパネではなく C:\Users\あああ\Documents が開いてしまいます。 当方ｗｉｎ７です。 原因と対策を教えてください。
- ベストアンサー
- オフィス系ソフト
- Object型じゃない型で宣言したいです。
Function MyDesktop() Dim WSH Set WSH = CreateObject("Wscript.Shell") MyDesktop = WSH.SpecialFolders("Desktop") Set WSH = Nothing End Function このコードの Dim WSH に、ちゃんと変数の宣言をしてあげたいのですが 何で変数の宣言をして、どこに参照設定をすればいいのでしょうか？ Object型じゃない型で宣言したいです。
- ベストアンサー
- オフィス系ソフト
- VBAで参照設定を行いたい GUIDを知るには？
オフィス２０１０なのですが、 VBAで参照設定を行いたいのですが GUIDというのはどうやって調べればいいのでしょうか？ 例えばエクセルに参照設定したいのですが レジストリエディタを立ち上げて、 HKEY_CURRENT_USER\Software\Microsoft\Office\14.0\Excel のどの部分を見れば、GUIDがわかりますか？ http://www.moug.net/tech/acvba/0010004.html を参考にｖｂａコードを作っていますが、 Public Function SetGUID() On Error GoTo Err_Check: Dim Ref As Reference 'Microsoft Excel 9.0 Objects Library (Excel2000) Const strExcel As String = "{00020813-0000-0000-C000-000000000046}" '参照設定 Set Ref = References.AddFromGuid(strExcel, 1, 3) Func_Exit: Set Ref = Nothing Exit Function Err_Check: If Err.Number = 32813 Then Resume Next Else MsgBox "Error Number : " & Err.Number & vbCrLf & Err.Description GoTo Func_Exit: End If End Function やはりこれだと、参照設定できません。 もちろんオフィスのバージョンが違うからだと思いますが。 あと、AddFromGuidメソッドの引数Major、Minorも、どの値を設定してあげればいいのかわかりません。 ご教授よろしくお願いします。
- ベストアンサー
- その他MS Office製品
- 参照設定 ＶＢＡで行ないたいのですが
参照設定で[Microsoft Visual Basic Application Extensibility]をチェックを ＶＢＡで行ないたいのですが Sub test() Dim Ref As Reference 'Excel Set Ref = References.AddFromGuid("{00020813-0000-0000-C000-000000000046}", 1, 7) Set Ref = Nothing End Sub のようになるとしたら、どうすればいいのでしょうか？ エクセルの参照設定の仕方はネットからコピーしたもので、 やりたい参照設定のパスの調べ方がわかりません。 ("{00020813-0000-0000-C000-000000000046}", 1, 7) が何を意味するのか、何の情報かわからない為 [Microsoft Visual Basic Application Extensibility]についてもわかりません。 アクセス2010です。
- ベストアンサー
- オフィス系ソフト
- VB6 ADOの参照設定の意味、
VB6.0にて、ADOを使用したアプリケーションを作成しています。 参照設定にてADO2.7を指定しています。 コンパイルしたアプリケーションを、 MDAC2.5が入っている環境で、動かしてみたら動きました。 インストールされているMDACの確認には、Microsoftのツールを使用しました。 下記コードを記述したモジュールを作成し、 Dim adoCon As ADODB.Connection Set adoCon = New ADODB.Connection MsgBox adoCon.version その環境にてバージョンを確認したら 「2.5」と表示されました。 ちなみに、MDAC2.7がインストールされている環境では、「2.7」と表示されました。 ここで質問があるのですが、 参照設定でADO2.7を指定した場合、 動作先の環境に入っている最新のADOのバージョンが使われると考えて良いのでしょうか？ たとえば、動作先の環境にADO2.1が入っていたら、参照設定のバージョンに関わらず、それで動作する・・・ が、バージョンに依存するメソッドを実行するとエラーになってしまうとか。 Createobjectで生成するのと、かわらないのでしょうか？ よろしくお願いいたします。
- 締切済み
- Visual Basic
- Access 開くときに自動で参照設定
いつもお世話になっております。 Accessで参照設定を自動でする下記コードで、 "C:\Program Files (x86)\Microsoft Office\Office" & sansyou & "\MSOUTL.OLB" がない場合は "C:\Program Files\Microsoft Office 15\root\office15" & sansyou & "\msoutl.olb" をセット という風な条件を付けたいのですが、添削をお願いできますでしょうか。 Dim A As Object Set A = CreateObject("Outlook.Application") Dim sansyou As String sansyou = Left(A.Version, 2) Dim Ref As Reference Set Ref = References.AddFromFile("C:\Program Files (x86)\Microsoft Office\Office" & sansyou & "\MSOUTL.OLB") Set Ref = Nothing ちなみに、閉じるときに Application.References.Remove References("Outlook") で、参照設定のチェックを外しています。 バージョンがそれぞれ異なるPCでOutlookの参照設定チェックをONOFFするコードです。 よろしくお願いします。
- 締切済み
- その他MS Office製品
- shell関数を使ってる事になりますか？
Function test() Dim objsample As Object Set objsample = CreateObject("Shell.Application") objsample.FindFiles '検索画面を表示させます。 Set objsample = Nothing '開放します End Function このサンプルは、shell関数を使ってる事になりますか？ 「Shell.Application」がshell関数なのか教えてください。
- ベストアンサー
- オフィス系ソフト
- ADO 前は参照設定にチェックが付いてなかった
office２００３、XP SP3を使っています。 前までは,新規にmdbファイルを作成した時のＶＢＥの参照設定は、 Microsoft ActiveX Data Objects 2.1 Libraryにチェックがついてなかったような気がしたのですが 今は 新規ブックを立ち上げて、参照設定を確認すると、 Microsoft ActiveX Data Objects 2.1 Libraryにチェックがついています。 Dim cn As New ADODB.Connection cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source= " & CurrentProject.FullName cn.Close: Set cn = Nothing のコードを標準モジュールに張り付けて実行した時に、 問題なく作動します。 昔は、参照設定に Microsoft ActiveX Data Objects 2.1 Libraryがデフォルトで ついてなかったから、 http://www.happy2-island.com/access/gogo03/capter00601-01.shtml のようにチェックしないと、 「cn As New ADODB.Connection」の部分で、 ”コンパイルエラーユーザー定義型は定義されていません。” となっていたのですが、どういう事なのでしょうか？ 自分が聞きたいことは なぜ昔は新規にファイルを作った時に Microsoft ActiveX Data Objects 2.1 Library にチェックがついてなかったのに、 今はMicrosoft ActiveX Data Objects 2.1 Libraryにチェックが つくようになったのか？という事です。 ウインドウズアップデートが原因なのでしょうか？
- ベストアンサー
- オフィス系ソフト
お礼
お返事遅くなってしまい申し訳ございません。 再度ご回答いただきありがとうございます。 Function test() Dim objsample As Object Set objsample = CreateObject("Shell.Application") objsample.Help Set objsample = Nothing End Function でうまく行きました！