エクセル起動時のVisual Basicエラーの解決方法とは?
- エクセルを起動すると、Visual Basic!無効なオブジェクトライブラリです。または定義されていないオブジェクトへの参照を含んでいます。と警告されます。
- エラーの原因は、インストールされている便利ツールに関連している可能性があります。
- 解決方法として、オフィスを再インストールするか、便利ツールを無効にすることが考えられます。
- ベストアンサー
エクセルを起動すると、Visual Basic !無効なオブジェクトラ
エクセルを起動すると、Visual Basic !無効なオブジェクトライブラリです。または定義されていないオブジェクトへの参照を含んでいます。と警告され。BOOK名 BenriQAT.basと言うbookが自動的に開き、Attribute VB_Name = "MD_QATBENRI" Option Explicit Const Benri As String = "便利ツール.xls!" Private Sub Auto_Open() Application.OnTime Now + TimeValue("0:0:2"), ThisWorkbook.Name & "!Start_Proc" End Sub Private Sub Start_Proc() Dim wb As Workbook Application.ScreenUpdating = False ThisWorkbook.Saved = True If ThisWorkbook.ReadOnly = False Then ThisWorkbook.ChangeFileAccess xlReadOnly ThisWorkbook.IsAddin = False ThisWorkbook.Windows(1).Visible = False ThisWorkbook.Saved = True For Each wb In Application.Workbooks If wb.Windows(1).Visible = True Then Exit For End If Next If wb Is Nothing Then Workbooks.Add End If Set wb = Nothing Application.ScreenUpdating = True End Sub Public Sub QAT_はんこ設定() Application.Run Benri & "CMD_はんこ設定" End Sub Public Sub QAT_押印1() Application.Run Benri & "CMD_押印1" End Sub Public Sub QAT_押印2() Application.Run Benri & "CMD_押印2" End Sub Public Sub QAT_押印3() Application.Run Benri & "CMD_押印3" End Sub Public Sub QAT_目次作成() Application.Run Benri & "CMD_目次作成" End Sub Public Sub QAT_ページ設定情報一覧() Application.Run Benri & "CMD_ページ設定情報一覧" End Sub Public Sub QAT_ページ設定情報複写() Application.Run Benri & "CMD_ページ設定情報複写" End Sub Public Sub QAT_一括取り込み() Application.Run Benri & "CMD_一括取り込み" End Sub Public Sub QAT_一枚取り込み() Application.Run Benri & "CMD_一枚取り込み" End Sub Public Sub QAT_ピクセル_列幅行高() Application.Run Benri & "CMD_ピクセル_列幅行高" End Sub Public Sub QAT_数式セルのロック() Application.Run Benri & "CMD_数式セルのロック" End Sub Public Sub QAT_結合セルを含む範囲の値複写() Application.Run Benri & "CMD_結合セルを含む範囲の値複写" End Sub Public Sub QAT_結合セルの行高の自動調整() Application.Run "CMD_結合セルの行高の自動調整" End Sub Public Sub QAT_セル内改行のあるセルの列幅自動調整() Application.Run Benri & "CMD_セル内改行のあるセルの列幅自動調整" End Sub Public Sub QAT_極細罫線_格子() Application.Run Benri & "CMD_極細罫線_格子" End Sub ・・・・・続く・・と言った文字が毎回出ます。以前便利ツールをインストールしていたせいだと思いますが、直し方が分かりません。オフィスのインストールし直しなどしましたが変わりません。どうすればいいのですか?お願いします。
- alba5678
- お礼率29% (35/119)
- その他MS Office製品
- 回答数1
- ありがとう数6
- みんなの回答 (1)
- 専門家の回答
質問者が選んだベストアンサー
エクセルを起動してメニューバーのツール→アドインでアドインの一覧が出ますが、どうなっていますか?
関連するQ&A
- エクセルのブックを閉じるマクロについて
エクセルのブックAとブックBが開いている状態で、 ブックAのボタンに登録して実行すると、ブックAのみ閉じる、 というマクロを作りました。(下部にコードを記載します) このマクロは、2つのブックが開いていると正常に稼働するのですが、 ブックが1つしかない場合、実行時エラーが出てしまいます。 (ブックAのみ開いた状態でこのボタンを押してもエラーなく閉じたい) 実行時エラーが出ないようにするにはどうすれば良いか、 おわかりの方がいらっしゃいましたら教えて下さい。 どうぞよろしくお願い致します。 Sub このブックのみ閉じる() Dim wa As String wa = "ほかに無い" Dim wb As Workbook For Each wb In Workbooks If wb.Name <> ThisWorkbook.Name Then wa = "ほかにあるよ" End If Next If wa = "ほかに無い" Then Application.DisplayAlerts = False Application.Quit '終了予定 End If Range("D2").Select Selection.ClearContents ThisWorkbook.Close SaveChanges:=False End Sub
- ベストアンサー
- Excel(エクセル)
- エクセルVBAで、ある条件の時
お世話になります。 エクセルVBAで次のようなことをしたいのですが方法を教えてください。 formフォルダにあるすべてのファイルについて、A1セルが「0」でないとき、 A4:B7及びA9:B12の中で日付が入っている行の日付と内容を、ActiveWorksheetのB列、C列にレコードとして取り出したいのです。 (A列はナンバリングになります) --------formフォルダの中にあるブック--------- A B 1 23 2 3 日付 内容 'この行は固定です 4 5/13 あああ 5 5/17 いいい 6 7 8 日付 内容 'この行は固定です 9 5/16 ううう 10 5/12 えええ 11 12 5/10 おおお ---ThisWorkbook(前に助けていただいたコードです)--- Sub data_torikomi2() Dim wb As Workbook Dim Fn As String Dim myPath As String Dim dbBkSh As Worksheet Dim i As Long For Each wb In Workbooks If wb.Name <> ThisWorkbook.Name And _ InStr(1, wb.FullName, "form\", 1) > 0 Then 'formを検索 wb.Close '閉じる End If Next wb myPath = ThisWorkbook.Path & "\" Set dbBkSh = ThisWorkbook.Worksheets("一覧表") Range("4:1000").Clear '全データ削除 Fn = Dir(myPath & "form\*.xls") i = 1 '画面のちらつきを抑える Application.ScreenUpdating = False Do Until Fn = "" If Fn <> ThisWorkbook.Name Then With Workbooks.Open(myPath & "form\" & Fn, , True) dbBkSh.Range("A3").Offset(i, 0).Value = i 【★たぶんこの部分に入るものです★】 .Close False i = i + 1 End With End If Fn = Dir() Loop Application.ScreenUpdating = True Set dbBkSh = Nothing End Sub ご教示よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- ブック内に特定名のシートがある場合
はじめまして、こんにちは。 VBAを最近はじめたばかりの者です。質問が初歩的なもので申し訳ないのですが是非教えてください。 以下を使って、複数ブックの○○というシートから指定セルの内容を抜き出したいと思っています。 ところが、ブックによっては○○というシートが存在しない場合があり、その場合には「インデックスが有効でない」というエラーで動作が止まってしまいます。 ブック内に○○というシートがある場合にのみ動作させるようにするにはどのようにすれば良いのでしょうか。 よろしくお願いします。 Dim wb As Workbook, myRow As Long Dim e As Integer myRow = ThisWorkbook.Worksheets(1).Rows.Count With Application.FileSearch .NewSearch .LookIn = ThisWorkbook.Path .SearchSubFolders = True .FileType = msoFileTypeExcelWorkbooks If .Execute() > 0 Then For i = 1 To .FoundFiles.Count If .FoundFiles(i) <> ThisWorkbook.FullName Then Set wb = Workbooks.Open(.FoundFiles(i), UpdateLinks:=0) Application.ScreenUpdating = False ThisWorkbook.Worksheets(1).Range("A" & myRow).End(xlUp).Offset(1, 0).Value = _ wb.Worksheets("○○").Range("F6").Value ThisWorkbook.Worksheets(1).Range("B" & myRow).End(xlUp).Offset(1, 0).Value = _ wb.Worksheets("○○").Range("F7").Value ThisWorkbook.Worksheets(1).Range("C" & myRow).End(xlUp).Offset(1, 0).Value = _ wb.Worksheets("○○").Range("F8").Value ThisWorkbook.Worksheets(1).Range("D" & myRow).End(xlUp).Offset(1, 0).Value = _ wb.Worksheets("○○").Range("Y6").Value wb.Close False End If Next i Else MsgBox "ファイルがありません。" End If End With End Sub
- ベストアンサー
- Visual Basic
- エクセルVBA ブック間のコピー
選択したテキストファイルをエクセルで開いたコピーし、 もう一つ開いたエクセルファイルにペーストするというマクロをVBAで 作成していますが、つまずいてしまいました。 ----------------------------------- Dim wb1 As String Dim wb2 As String Sub Opentxt() wb1 = Application.GetOpenFilename("テキストファイル,*.txt") If wb1 <> "False" Then Workbooks.OpenText Filename:=wb1, DataType:=xlDelimited, comma:=True End If End Sub Sub Copy() Dim LastRow As Long wb2 = Application.GetOpenFilename("Microsoft Excelブック,*.xls?") If wb2 <> "False" Then Workbooks.Open wb2 LastRow = wb2.Sheets("一覧表").Range("A" & Rows.Count). End(xlUp).Row wb2.Sheets("一覧表").Range("A5:A" & lastRow).Copy _ wb1.Sheets("Sheet1).Range("B33") End If End Sub ----------------------------------- Opentxtの方は問題ないですが、Copyの方を実行すると wb1とwb2で引っかかって「コンパイルエラー/ 修飾子が不正です」と 表示されて、エラーになってしまいます。 この場合変数の型などがおかしいのでしょうか? excel2007を使用しています。 よろしくお願いします。
- ベストアンサー
- Visual Basic
- エクセルVBAで別BOOKに「名前の定義」のCopy
前からあったエクセルのファイルのどこかが壊れたらしく、ときどき作業中に突然エラーとなってエクセル自体が落ちてしまうので、BOOKの複製では意味がないと考え、同じ内容のものを別BOOKに再作成するマクロを以下のとおり作ってみました。(新規作成のBOOKにこのマクロを貼ります) これで、VBAのモジュールを除き、再作成できたのですが、どういうわけか「名前の定義」を行なったセル範囲の一部が反映されません。 調べてみると、他のセルから参照されていない「名前の定義」がすっぽり抜け落ちるようにも思えるのですが、この理解であっているでしょうか? 他のセルから参照していなくとも、マクロで参照しているので抜け落ちるのは困ります。 どうすれば、すべての「名前の定義」が再作成されるでしょうか? Sub Book_Copy() Dim fn As String Dim wb1 As Workbook, wb2 As Workbook Dim ans As Integer, i As Integer Dim nm As Name Dim sh As Worksheet fn = Application.GetOpenFilename("エクセル ファイル (*.xls), *.xls") If fn = "False" Then Exit Sub Application.EnableEvents = False Set wb1 = Workbooks.Open(Filename:=fn, UpdateLinks:=1) Set wb2 = ThisWorkbook ans = MsgBox(wb1.Name & "を " & wb2.Name & " へCopyしますか?", vbYesNo + vbQuestion) If ans = vbNo Then Exit Sub For Each nm In wb2.Names nm.Delete Next nm For Each sh In wb1.Worksheets sh.Cells.Copy i = i + 1 If wb2.Worksheets.Count = i Then wb2.Worksheets.Add After:=Worksheets(i) Application.DisplayAlerts = False wb2.Activate wb2.Worksheets(i).Activate wb2.Worksheets(i).Cells.Select ActiveSheet.Paste wb2.Worksheets(i).Name = sh.Name Application.DisplayAlerts = True Application.CutCopyMode = False End If Next sh wb1.Close (False) Application.EnableEvents = True ActiveWorkbook.ChangeLink Name:=fn, NewName:=wb2.Name, Type:=xlExcelLinks Set wb1 = Nothing Set wb2 = Nothing End Sub
- ベストアンサー
- オフィス系ソフト
- エクセルVBA 「Application.Run」について
職場のエクセルファイルに以下のようなコードがあります。 これはブック内の○○というマクロを実行するという意味でしょうか? (実際は~~部分に多くのコードがあり、上記のことが正しいのかよくわかりません) Sub test() ~~ Application.Run "ThisWorkbook.○○" ~~ End Sub 以上、よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- excelファイルが意図せず起動
下記を参考にして、起動時にタイマーを設定してexcelファイルを5分後に自動的に 保存・終了するようにしています。 http://okwave.jp/qa/q2911086.html しかし実際5分を待たず、手動でそのexcelファイルを終了した場合、 後でそのexcelファイルが自動で起動して、そのまま終了しているようです。 この症状をなくしたい場合どのように、記述を加えればよいか教えていただけないでしょうか? 記述は下記です。 '標準プロシージャ Public Operated As Boolean Sub SetTimer() Application.OnTime Now + TimeValue("00:05:00"), "CloseMe" End Sub Sub CloseMe() If Operated Then Operated = False SetTimer Exit Sub End If 'ブックの上書き保存 ActiveWorkbook.Save ' 保存確認を避けるため、保存済みにする ThisWorkbook.Saved = True ' 他にブックが開いていなければ、Excelを終了する If Workbooks.Count <= 1 Then Application.Quit ' 本ブックをClose ThisWorkbook.Close False End Sub 'ワークブックプロシージャ Private Sub Workbook_Open() Operated = False SetTimer End Sub Private Sub Workbook_BeforePrint(Cancel As Boolean) Operated = True End Sub Private Sub Workbook_Deactivate() Operated = True End Sub Private Sub Workbook_Activate() Operated = True End Sub Private Sub Workbook_SheetActivate(ByVal Sh As Object) Operated = True End Sub
- ベストアンサー
- Excel(エクセル)
- エクセルマクロ リンクダイアログのスルー
下記のVBAを作成し、動かしているのですが、 Office2002以降では、問題なく動くのですが、Office2000では、コピー先のファイルを開く際に、リンクのダイアログが表示されます。 コピー先ファイルのリンクを削除したらよいのですが、どうしても見つかりません。 なので、下記のマクロにリンクダイアログをスルーするようにしたいのですが、どのようにすればよいか教えてください。 Private Sub CommandButton1_Click() Dim wb As Workbook Application.ScreenUpdating = False Set wb = Workbooks.Open(Filename:=ThisWorkbook.Path & "\AAA.xls") ThisWorkbook.Sheets("BBB").Range("E4:AR4").Copy wb.Sheets("CCC").Range("E4:AR4") Application.DisplayAlerts = False wb.Close (True) Application.DisplayAlerts = True Application.ScreenUpdating = True End Sub
- ベストアンサー
- オフィス系ソフト
- エクセル ルーチンマクロ
以前コピー・貼り付けを停止させる為に、下記マクロを参照させて頂いたのですが、 '--------------------------------------------------------------- Sub DisableCommandButtons(Cmd_bln As Boolean) 'コピー・貼り付けを停止させるサブルーチン・マクロ Dim cmd As Variant Dim Cmdb As Object Dim CmdNames As Variant CmdNames = Array("Worksheet Menu Bar", "Cell", "Column", "Row") 'ショートカットのインスタンス If Cmd_bln = False Then Application.OnKey "^c", "" Application.OnKey "^v", "" Application.OnKey "^x", "" Else Application.OnKey "^c" Application.OnKey "^v" Application.OnKey "^x" End If 'コマンドボタンのEnable For Each cmd In CmdNames If cmd = "Worksheet Menu Bar" Then With Application.CommandBars(cmd).Controls(2) .Controls(3).Enabled = Cmd_bln .Controls(4).Enabled = Cmd_bln .Controls(5).Enabled = Cmd_bln End With Else With Application.CommandBars(cmd) .FindControl(, 19).Enabled = Cmd_bln 'Copy .FindControl(, 22).Enabled = Cmd_bln 'Paste .FindControl(, 21).Enabled = Cmd_bln 'Cut End With End If Next cmd End Sub '--------------------------------------------------------------- このマクロを実行した所、コンテキストメニュー及びショートカットキーのコピー、貼付が無効になりました。 EnableCommandButtons というマクロを別に作り ショートカットのインスタンスの If Cmd_bln = False Then を If Cmd_bln = True Then に 書き換えて、実行した所、ショートカットキーは有効になったのですが コンテキストメニューのコピー、貼付を有効にするやり方がわかりません。 以前、 同じ質問させていただき、ご回答頂いたのですが、別のPCでは、その方法でもダメなことが分かりました。 OSはXP Pro エクセルはは2003です どなたか、助けていただけないでしょうか? よろしくお願い致します。
- ベストアンサー
- オフィス系ソフト
- 各ブックの集計値を自動的に他のブックに総合計として表示させたい。
エクセルで各ブックの集計値を他のブックに集計したいのですが、フォルダを移動させると数値が違ってしまう。どうすればいつ見ても正しい集計値を見れるか教えて下さい。 現在1つのファイルの中にある、ブック1・2・3にそれぞれ数値を入力して合計値をブック3の別シートに合計表示させていますが、同じブックのシート間の集計ではないため、毎回数値が変わってしまい、その都度計算式を(=ブック1 D60+ブック2 d80+・・・など)を入れなおしています。 間違いなく集計できる方法を教えて下さい。ちなみに全くの初心者なので細かく説明していただけると有難いです。 VBAで検索して下記を見つけ、セル範囲やシート名など変更して試してみましたが、内容がよくわからないため 変な数字がでてきました。初心者にはやはり無理でしょうか? Sub Test() Dim MyName As String, wb As Workbook On Error Resume Next MyName = Dir(ThisWorkbook.Path & "\*.xls", vbNormal) Do While MyName <> "" If UCase(MyName) <> UCase(ThisWorkbook.Name) Then Application.ScreenUpdating = False Set wb = Workbooks.Open(ThisWorkbook.Path & "\" & MyName) ThisWorkbook.Worksheets("Sheet1").Range("A65536").End(xlUp) _ .Offset(1, 0).Value = wb.Worksheets("物件").Range("d90:k90").Value wb.Close End If MyName = Dir Loop Application.ScreenUpdating = True End Sub
- ベストアンサー
- Visual Basic
お礼
直りました。プログラムではアンインストール出来ていても、appdataの先にしっかりと残っていました。それを削除したら普通に戻りました。
補足
アドインには便利ツールは無く、電子印鑑・kt関数・look upウィザード・テンプレートユーティリティー・分析ツールVBAのみチェックされた状態です。因みに、もう一度便利ツールをインストールしようとしても、エラーになりました。