• 締切済み

Windows7&VB6(SP6)&Excel2000

Windows7(RC)でテストをしております。 VB6(SP6)&Excel2000の組み合わせでエラーが発生します。 Dim wApp As Excel.Application Set wApp = CreateObject("Excel.Application")   <--- ここでエラー メッセージは、   実行時エラー '-2147024156 (800702e4)'; オートメーションエラーです。   要求された操作には管理者特権が必要です。 と、なります。 Excelのプロパティのショートカットタグの詳細設定ボタンを 押すと、「管理者として実行」と言う項目のチェックボックスが あるのでずが、グレーアウトになっていてチェックが入れれません。 何か、解決策がありましたら、教えて下さい。 宜しくお願い致します。

みんなの回答

  • gamebakari
  • ベストアンサー率60% (699/1147)
回答No.2

回り道ですがXPMで動作させた場合に同じエラーが出るか検証してみては? うちのエクセル2003ではプロパティ画面の「管理者権限」はグレーアウトしていないのでUACの設定で変わる可能性もあります。 エクセル2000インストール時に何かのエラーは出なかったのでしょうか? イベントビューアの「アプリケーション」の項目にヒントがあるかも。 それと根拠はあまりないけどDEP無効化がいいかもしれない。bcdedit.exeでAlwaysOffを追加すればいいんですが、ハード管理面ではリスキーな設定。 http://okwave.jp/qa4907868.html あと、ここはRC版専門のサポートサイトではないけど、「広く」情報を得ることはできます。質問を出したこと自体は無効ではないと考えます。 ちなみに7(ベータ、RC)のフォーラムもあります。MSのモデレータが参照するのでより専門的アドバイスは期待できます。 http://social.technet.microsoft.com/Forums/ja-JP/w7itprogeneralja/threads ただ、向こうに質問を立てるとこちらでは「マルチポスト」になってしまうので配慮が必要でしょうけどね。

m-toshi
質問者

お礼

早速のご回答をありがとうございました。 ご支持通りに色々と試して見ます。 また、こちらを締め切った後に、そちらのフォーラムにも、 チャレンジしてみます。

  • hana-hana3
  • ベストアンサー率31% (4940/15541)
回答No.1

ここはRC版のサポートサイトではありませんよ。 RC版の利用規約にしたがってMSにフォードバックしてください。

m-toshi
質問者

お礼

解りました。向こうに言ってみます。 ありがとうございました。

関連するQ&A

  • Windows7 & VB6(SP6) & office2010(Bata)

    WindowsXP & VB6(SP5) & office2003の組み合わせで プログラミングをしておりました。 Windows7 & VB6(SP6) & office2010(Bata)の組み合わせで テストをしております。 Dim wApp As Excel.Application ここで、 コンパイルエラー ユーザー型は定義されていません。 と、なってしまいます。 解決方法を教えて下さい。宜しくお願い致します。

  • VB5.0からExcel97にデータを書き込むとき

    VB5.0からExcel97にデータを書き込んだりする場合、最初にVBのほうで どういう設定をしなければいけないのでしょうか? 参照設定でMicrosoft Excel 8.0 Object Libraryを選択していて 以下の文をVBに設定しています。 Dim ExcelApp As Object Set ExcelApp = CreateObject("Excel.Application") これだけだと、起動したときに"Excel.Application"の部分が 「型が一致しません」でエラーになります。 何か足りない設定があるのでしょうか? 説明がわかりにくいかと思いますが、どうしたらいいかなかなか わかりません。どうぞよろしくお願いします。

  • VB6.0上でExcelオブジェクトを生成

    質問です。 VB6.0上でExcelオブジェクトの生成についてです。 その1 Dim xlApp As Excel.Application … Set xlApp = CreateObject("Excel.Application") と その2 Dim xlApp As Object … Set xlApp = CreateObject("Excel.Application") と、どちらが良いのでしょうか? 開発環境は Win XP SP2 VB 6.0 Excel 2003 実行環境は Win 98 SE VB 6.0(ランタイムのみ) Excel 2000 SR-1 です。 開発環境ではその1、その2ともOKなのですが、 実行環境ではその2のみがOKです。 参考書にはその1が書かれていますが、その2を使うことによって何か不具合や都合の悪いことが起こりうるのでしょうか? あるいは当方の見当違いで根本的に何かが間違っているのでしょうか? どんな些細なことでも結構ですので宜しくお願いします。

  • excel2010でのCreateObject

    OS:Windows7Pro Office:オフィス2010 Excel2007で作成したメール一括送信プログラムがExcel2010でエラーが発生します。 CreateObject メソッドを使用して Outlook Application オブジェクトを作成する際に 「実行時エラー'429' ActiveXコンポーネントはオブジェクトを作成できません。」 と表示されます。デバッグ画面では Dim myOLApp As Object Dim myDATA As MailItem '### OUTLOOKのオブジェクトを作成後、メールを新規作成する。 Set myOLApp = CreateObject("Outlook.Application")   Set myDATA = myOLApp.CreateItem(olMailItem) の Set myOLApp = CreateObject("Outlook.Application")  この部分でエラーになっています。 VB6.0SP6ランタイムのインストールをしましたが状況は変化しません。 Excel2007では正常に動作します。 どこを修正すればよいのでしょう? ご教授いただけると幸いです。宜しくお願いいたします。

  • VB6でEXCELをクローズ出来ない

    VB6でEXCELを使用した後クローズ処理をしたつもりですが、VBと別にEXCELを起動しVBで使ったEXCELを読み込もうとすると、「編集のためロックされています」とメッセージが出て、読み取り専用でしかオープン出来ません。また、VBでEXCELを繰り返しオープンするとメモリがいっぱいになってしまいます。 VBでのEXCELオープンは Dim fnm As String Dim exl As Object fnm = "EXCEL File名" 'フルパスで指定 Set exl = CreateObject("Excel.Application") exl.Application.Workbooks.Open FileName:=fnm クローズは Set exl = CreateObject("Excel.Application") exl.Application.Quit Set Sheet = Nothing Set BooK = Nothing Set ExcelApp = Nothing 以上です。なお、VBの参考書は入門書だけ持っていますが、このようなことは書いてありません。従って上のコードも意味もわからず、ネットから拾ってきたまま使用しています。参考書または、Webサイトを紹介して頂ければ有り難いです。

  • VB6.0上でExcelオブジェクトを生成

    VB6.0上でExcelオブジェクトの生成についてです。 その1 Dim xlApp As New Excel.Application Dim xlBook As New Excel.Workbook Dim xlSheet As New Excel.Worksheet Set xlApp = New Excel.Application Set xlBook = xlApp.Workbooks.Add Set xlSheet = xlBook.Worksheets(1) と その2 Dim xlApp As Excel.Application Dim xlBook As Excel.Workbook Dim xlSheet As Excel.Worksheet Set xlApp = CreateObject("Excel.Application") Set xlBook = xlApp.Workbooks.Add Set xlSheet = xlBook.Worksheets(1) と、どちらが良いのでしょうか? 開発環境は  Windows2000  VB 6.0  Excel 2003 です。

  • VB6でExcelシートのコピー、貼付け

    VB6でExcelファイルを開いてシートをコピーし、新規ファイルとして保存したいのですが方法がわかりません。 (既存のExcelシートを雛形として新しくBookを作りたいんです) Set objexcel = CreateObject ("Excel.Application") Set objexcel_new = CreateObject("Excel.Application") objexcel.Workbooks.open (App.Path & "\book1.xls") objexcel_new.Workbooks.Add '新規に作る 'シートのコピー objexcel.sheets("Sheet1").Copy objexcel_new.sheets("Sheet1").Select objexcel_new.activesheet.Paste としても、実行前のクリップボードの中身が貼り付けられるだけで、シートがコピーできません。 よろしくお願いします。

  • VBとExcelオブジェクト

    VB6から 起動してまたは→CreateObject ("Excel.Application") オープン中の→GetObject(, "Excel.Application") Excelのデータを取り込んでいるのですが エクセルのデータが一定以上の行を超えると エクセルがタスクに残ってしまいます。 過去ログなどを見ましたがいまいち原因がつかめません。 使っているのは、Rangeぐらいしかありません。 現状は、取込範囲が 44行でアウト 40行はOKといった感じです。 複雑なことはやっていませんが 取り込む行数によって現象が 起こったり起こらなかったりして 困っています。 ************************************ プログラム概要 GetObject版 Dim objExcel As Excel.Application Dim SheetNm As String Set objExcel = GetObject(, "Excel.Application") SheetNm = objExcel.ActiveSheet.Name Do Until 縦=終了条件    Do Until 横=終了条件           構造体.XXX = objExcel.Range(座標).Value       横=横+1    Loop    縦=縦+1 Loop Set objExcel = Nothing    .    .    . 格納した構造体のデータをデータベースに格納    .    .    . ************************************ CreateObjectの場合は、 openやclose、Quitも記述してあります。

  • VB2008でEXCELのセルデータが読めません

    VB2008でEXCELを開き、セルの内容を読み込もうとしましたが読み込めません。 EXCELのオープンとセルの読み込みは下記により行いました。 Dim strExcelFile As String 'エクセルファイル Dim xlApp As Excel.Application       Dim strExcelData As String xlApp = CreateObject("Excel.Application") xlApp.Workbooks.Open(Filename:=strExcelFile) xlApp.Visible = True 'EXCELは表示されている strExcelData = xlApp.Cells(3,4).ToString EXCELの3列4行には数値が入っていますが、strExcelDataには"System._ ComObject"というデータが読み込まれています。 ToStringは、これをつけないとデータの型が違うとエラーになります。 EXCELのデータは文字型と思っていましたがこれも判りません。 VBの参照で「Microsoft Excel9.0Object Library」をクリックしてOKしていますが、チェックマークなどはつかず、正しく反映されたかについては未確認です。 原因の見当が皆目つかず困っています。 誤って「ディジタルライフ」-「その他」に同じ内容で投稿しています。

  • VBからaccess UserControl

    vb.netから 【VB】-------------------------------------------- Sub AccOpen() Dim AccApp As Access.Application Dim MyPath As String MyPath = "○○.accdb" AccApp = CreateObject("Access.Application") AccApp.OpenCurrentDatabase(MyPath) AccApp.Visible = True AccApp.UserControl = True End Sub -------------------------------------------------- でアクセスのファイルを開いているのですが、 アクセスの標準モジュールで 【access】-------------------------------------------- Sub test() MsgBox "The user started Access: " & Application.UserControl End Sub ---------------------------------------------------- を実行すると、Trueが返ってくるのですが、正しくはFalseなのではないでしょうか? アクセスのヘルプをみると、 ・ ・ ・ ・ ・ ・ ・ ・ ・ ・ ・ ・ ・ ・ ・ ・ ・ ・ ・ ・ ・ ・ ・ ・ ・ ・ ・ ・ ・ ・  True 現在のアプリケーションはユーザーによって起動されました。 False 現在のアプリケーションは、オートメーションを使って他のアプリケーションによって起動されました。 と書かれています。 ・ ・ ・ ・ ・ ・ ・ ・ ・ ・ ・ ・ ・ ・ ・ ・ ・ ・ ・ ・ ・ ・ ・ ・ ・ ・ ・ ・ ・ ・  AccOpenはvbで実行しているので、 「オートメーションを使って他のアプリケーションによって起動されました。」 に該当するのではないでしょうか?