- ベストアンサー
実行時エラー：429 ActiveXコンポーネントはオブジェクトを作成できません。
VB.ver ：VB6SP5 動作環境：(1)windowsXPProSP1 (2)windows95 I/E4.0 以下のような、ＡドライブのＶＯＬ名を変更するだけの簡単なロジックなんですが、 動作環境(1)では起動するんですが、(製造は(1)の環境です) (2)では起動しません。（タイトルのエラーが表示されませす） また、(2)の環境でインストール時に以下のようなエラーは発生しています。 『'C:\WINDOWS\SYSTEM\scrrun.dll'の登録中にエラーが発生しました』 もちろん、VB6SP5バージョンのRUNTIMEはインストール済みです。 ⇒http://www.komiya.co.jp/soft/ksrun.htm こんな感じで、どこが悪いのかさっぱりわかりません。 解る方がいらっしゃれば、回答の方、よろしくおねがいいたします。 Private Sub Command1_Click() Dim inFsoDrive As Scripting.Drive Dim inDrive As String Dim inFsoFileSystem As New Scripting.FileSystemObject inDrive = "A" Set inFsoDrive = inFsoFileSystem.GetDrive(inDrive) inVolumeName = inFsoDrive.VolumeName MsgBox inVolumeName inFsoDrive.VolumeName = "VOL055" End Sub
- morimorio
- お礼率80% (4/5)
- Visual Basic
- 回答数1
- ありがとう数3
- みんなの回答 （1）
- 専門家の回答
質問者が選んだベストアンサー
関連するQ&A
- エラー'429'ACtiveXコンポーネントはオブジェクトを作成できません
OS:windowsXP(windows update 未処理) VB:VB6.0sp5 首記のエラーが発生しシステムが正常に動作いたしません ただ、windows update 済みの端末では動作いたしました 問題の端末にて、windows updateすれば解決できることではございますが、問題の端末自体がインターネット(外部)に接続できる状態にありません windows update以外の方法で解決できる方法をご教示くださいます様よろしくお願いいたします
- 締切済み
- Visual Basic
- ACtiveXコンポーネントはオブジェクトを作成できません(つづき)
OS:windowsXP(windows update 未処理) VB:VB6.0sp5 首記のエラーが発生し「OSをシャットダウンさせるシステム」が正常に動作いたしません OSをシャットダウンさせるプログラムを作成し、 ディストリビーション ウィザードにてSetup.exeを作成いたしました VB6.0をインストールしている端末にて OSシャットダウンプログラムのSetup.exeを実行しインストールし、 OSシャットダウンプログラム(exe)を実行するとシャットダウンする のですが、 VB6.0をインストールしていない端末にて OSシャットダウンプログラムのSetup.exeを実行しインストールし、 OSシャットダウンプログラム(exe)を実行すると 上記のエラーが発生しシャットダウンできません どのようにすれば良いのでしょうか？
- 締切済み
- Visual Basic
- ActiveX コンポーネントを作成できません
Excel2007 WinVista32ビット Adobe Reader 9 Ver9.5.5 を使用しています。 ExcelVBAでPDFを操作するコードを作成したところ、CreateObject関数のところで（※） 「ActiveX コンポーネントを作成できません。」のエラーが出てしまっています。 色々ネットで調べて宣言を変更したりしたのですが上手くいきません。今はこの２行だけでもエラーが出ます。 Dim aaa As Acrobat.CAcroAVDoc aaa = CreateObject("AcroExch.AVDoc") ※ Dim aaa As Acrobat.CAcroAVDocを (1)Dim aaa As new Acrobat.CAcroAVDoc (2)Dim aaa As object (3)Dim aaa にしてもだめでした 最終的にはPFDファイルのページ数が知りたいのですが・・・・・・ Adobe ReaderはProfessionalではありません この環境でどうにかする事できませんか？
- ベストアンサー
- Excel（エクセル）
- VB6 実行時エラー -2(fffffffe)
VB6で作成したAPでエラーで出て困っております。 調べても解決策が見つからず、皆様のお力をお借りしたいと思います。 【環境】 Windows XP SP3 microsoft visual studio 6.0 sp6 【現象】 webbrowserコントロールを利用し、GIFファイルの表示を行う処理で以下のエラーが発生。 実行時エラー '-2(fffffffe)': オートメーション エラーです 【ソース】 Private GifLoad As Boolean -------------------------------------------------------------------------------- Private Sub GifFileLoad() Dim Hstyl As HTMLStyle Dim GifName As String GifName = Gifファイルのフルパス WebBrowser.Navigate GifName GifLoad = False '表示を読み込むまで待機 Do DoEvents←ここでエラーが発生 Loop Until GifLoad Set Hstyl = WebBrowser.Document.Body.Style With Hstyl .OverFlow = "hidden" .MarginLeft = "0px" .MarginTop = "0px" End With Set Hstyl = Nothing End Sub -------------------------------------------------------------------------------- Private Sub WebBrowser_DocumentComplet(ByVal pDisp As Object,URL As Variant) GifLoad = True End Sub -------------------------------------------------------------------------------- エラー発生後、メッセージのデバッグボタンでデバッグモードに移行すると、問題なくDoEventsを通り抜けます。単純にResume Naxtを追記したらいいだけのような気もするのですが、エラーの内容、原因が特定できず悩んでいます。 この事象に対して情報をお持ちの方がおられましたら、ご教授お願いいたします。
- ベストアンサー
- Visual Basic
- 実行時エラー13について
データベースにアクセス2000を使用し、VBからアクセスのデータを抽出しようと言う、簡単なプログラムを作成しました。 そして私のPCではデータがちゃんと抽出されるのですが、他のPCで実行しますと、実行時エラー13となってしまいます。 ソースは以下のように記述いたしました。 Private Sub Command1_Click() Dim objCon As ADODB.Connection Dim objRec As ADODB.Recordset Set objCon = CreateObject("ADODB.Connection") objCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\test.mdb;" Set objRec = objCon.Execute("SELECT komoku2 FROM test WHERE komoku1 = 1") Text1.Text = objRec.Fields("komoku2").Value objCon.Close Set objCon = Nothing End Sub 尚、他のPCに最新のランタイムをインストールしてみましたが、現象は変わらずです。。。 現象を確かめるべく、他のPCにVBをインストールしたいのですが、個人的に作ったプログラムの為に他人のPCにVBをインストールする事が出来ないので、デバックが行えない状況です。 私のPCの環境は Win2000Pro－SP2 VB6.0－SP5 他のPC（2台） ・WinNT－SP4 ・Win98 上記2台とも、ランタイムだけは最新です。
- ベストアンサー
- Visual Basic
- 実行時エラー 76 パスが見つかりません。
VBAのFileSystemObjectでフォルダをコピーしているのですが フォルダ１は問題なくコピーできるのですが 毎回フォルダ２だけは、 実行時エラー 76 パスが見つかりません。 と言うエラーになってしまいます。 Sub Sample() Dim myFSO As Object Dim MyPath As String MyPath = "C:\" Set myFSO = CreateObject("Scripting.FileSystemObject") myFSO.CopyFolder MyPath & "フォルダ２", MyPath & "新フォルダ２" Set myFSO = Nothing End Sub このようなコードなのですが、フォルダ１もフォルダ２も同じコードを使っています。 フォルダ２に関しては容量が１０ＧＢくらいありますが、フォルダが重すぎるのが原因でしょうか？
- ベストアンサー
- オフィス系ソフト
- VB2005でエクセルファイル作成時のエラー
現在、VB2005ExpressEditionを使って、データグリッドビューに表示されている値を、エクセル出力するアプリを作成しています。 デバッグでは問題がなかったので、ビルドをし、出来上がった実行ファイルをデスクトップなどに移動させ、そこからアプリを起動したところ、エクセル出力のところでプログラムが異常終了してしまいました。 Releaseフォルダから直接実行ファイルを動かした場合は、正常に動作しました。 そこで、try～catchを使ってエラー箇所を判別しようとしたところ、処理開始以前の宣言のところで、エラーが発生しているようなんです。 以下がその宣言部です。 Dim app As New Excel.Application Dim wb As Excel.Workbook Dim ws As Excel.Worksheet VBでのエクセルファイル出力はこれが初めてで、VB自体も独学で勉強しているため、かなり的外れな質問になってしまっているかもしれませんが、どうしてもわからないので、どうか教えて下さい。 長文、乱文で失礼いたしました。
- ベストアンサー
- Visual Basic
- 実行時エラー '53'「ファイルが見つかりません。
Sub test1() Dim strFName As String strFName = "C:\Users\test.html" Open strFName For Output As #1 Print #1, strHTML Close #1 ' 閉じる End Sub このような、フォルダ内にテキストファイルを作成するコードで 実行時エラー '53'「ファイルが見つかりません。」 と言うエラーになる場合があるのですが もしかして、ファイル名が長すぎるとこのようなエラーは発生しますか？ その場合、何文字以内ならいいのでしょうか？ ｗｉｎ８、オフィス２０１０です。
- ベストアンサー
- オフィス系ソフト
- 実行時エラー 2001
http://officetanaka.net/excel/vba/vbe/05.htm を参考に VBAコードを取得したいのですが Declare Function GetTickCount Lib "kernel32" () As Long Public sampledata As String Sub Sample9() Dim Code As String Code = ThisWorkbook.VBProject.VBComponents("Module1").CodeModule.Lines(7, 5) MsgBox Code End Sub を実行すると 実行時エラー 2001 'VBProject'メソッドは失敗しました：'_Workbook'オブジェクト が、 Code = ThisWorkbook.～ の行で発生します。 何が間違ってますか？
- ベストアンサー
- Visual Basic
- windows7でActivex.dllがエラー
テストプログラムで下記のロジック project.dllの作成を実行した結果 Windows-XPでは正常に作成されるのに、 Windows7では ”シシテム レジストリへのアクセスでエラーが発生しました。" エラーになります。 どこを直したらよろしいでしょうか？ よろしくお願いいたします VB6.0でSP6を使用しております ・標準モジュール Sub Main() End Sub ・クラスモジュール Public MyString As String Public Function MyFunction() As String MyFunction = "You never know what you're gonna get." End Function Public Sub Class_Initialize() MyString = "Life is like a box of chocolates." End Sub
- 締切済み
- Visual Basic
お礼
ご指摘通り環境面でかなり無理があったみたいです。 何とか、ＡＰＩを使用したコーディングで成功しました。 回答、ありがとうございました。