エクセルの二重起動をやめたい

前へ 次へ
このQ&Aのポイント
  • ＶＢからエクセルを起動する際、すでに開いているファイルは開かないようにしたく、検索をした結果の回答があり参考にしたのですが、うまくいきません。
  • 「オブジェクト」－「参照設定」でエクセルを選択することによって解決しましたが、For Each xlsBook In xlsApp.Workbooksの部分で上手く引っ掛けることができません。
  • 設定が足りないのかどうか、わかる方がいらっしゃいましたら教えていただけると助かります。
回答を見る
  • ベストアンサー

エクセルの二重起動をやめたい

ＶＢからエクセルを起動する際、すでに開いているファイルは開かないようにしたく、検索をした結果 http://oshiete1.goo.ne.jp/kotaeru.php3?q=237618 の回答があり参考にしたのですが、うまくいきません。 はじめは 　　Dim xlsApp　As Excel.Application 　　Dim xlsBook As Excel.Workbook がうまくいかず悩んだのですが、「オブジェクト」－「参照設定」でエクセルを選択することによって解決しましたが、 　　For Each xlsBook In xlsApp.Workbooks 　　　 '見つかったらループを抜ける 　　　　If StrComp(xlsBook.FullName, findBookPath, vbTextCompare) = 0 Then 　　　　Exit For 　　　End If 　　Next xlsBook の部分で上手く引っ掛けることができません。 なにか設定が足りないのか？ どなたか分かる方がみえましたらよろしくお願いいたします。 では

質問者が選んだベストアンサー

  • ベストアンサー
  • sorarisp
  • ベストアンサー率58% (7/12)
回答No.2

Excel.Applicationはクラス名（？）です。 Set xlsApp = GetObject(, "Excel.Application") 第2引数になるのでこのようにしたらどうでしょう？

kamechan
質問者

お礼

ありがとうございます。 早速やってみました。 そしたら、見事！２重に開かなくなりました。 ありがとうございます。 これでやっと先に進むことが出来ます。 感謝！感謝！

その他の回答 (1)

  • sorarisp
  • ベストアンサー率58% (7/12)
回答No.1

FullNameで受け取るパスは絶対パスだったと思います。 findBookPathは絶対パスになっていますか？ それと、パスの最後等にスペース等が入っているとStrCompは-1を返すので注意してください。 上記の質問ですと、WorkbookをOpenする事は出来ているわけですよね。 そうすると、このぐらいしか思いつかないです。

kamechan
質問者

お礼

早速のご回答ありがとうございます。 初心者なのであまり難しいことは分かりませんが、 ＳＴＯＰで止めて確認したのですが、FullNameは”ｃ：￥○○￥○○．ｘｌｓ” となっており最後に空白は入っていません。 また、ＯＰＥＮはできる状態で、二重に起動してしまう問題です。 後、 　　On Error Resume Next と 　　On Error GoTo 0を外して、 エクセルを起動した状態で走らせて見ると 　Set xlsApp = GetObject("Excel.Application") でエラーが出て止まります。xlsApp =notingです。 このあたりに問題がありそうな気がしてきました。もう少し調べてみます。 では

  1. カテゴリ
  2. [技術者向] コンピューター
  3. プログラミング・開発
  4. Visual Basic

関連するQ&A

  • オブジェクトが必要です・・・・・

    オブジェクトが必要です・・・・・ すみません、判りません、丸投げです(爆)、申し訳ありませんがどなたか完成していただけませんか？；； また、この辺りをサルでも判るように解説してくれていて勉強し易いサイトがあったら教えてください・・・ Private Sub コマンド1_Click() Dim xlsApp As Excel.Application Dim xlsBook As Excel.Workbook Dim xlsSht As Excel.Worksheet Set xlsApp = CreateObject("Excel.Application") Set xlsBook = xlsApp.Workbooks.Open("■■■■■.xls") Set xlsSht = xlsWkb.Sheets(■■■■) If xlsBook.ReadOnly Then xlsBook.Close MsgBox "そのファイルは既に開かれています。" xlsApp.Quit Else xlsBook.Close End If Set wkb = Nothing: Set xls = Nothing Exit_exOpenEditC: Exit Sub Err_exOpenEditC: MsgBox Err.Number & " - " & Err.Description Resume Exit_exOpenEditC End Sub accessからexcelファイルをシートを指定して開き、重複の場合は開かない様にし、メッセージボックスを表示させたいのです・・・

  • Excelvba2000でExcelファイル間のコピーを行いたい

    現在マクロ実行中のExcelブックのシートのセルの値を、 新規作成したブックのシートのセルに値を貼り付けたいのですが、 うまくいきません。 ただし、コピーの条件として、クリップボードは使用しない Activeメソッドや、Selectメソッドも使用しないという制約があります 以前は、うまくいっていたのですが、コードの書き方を忘れてしまいました。以下の★印の行で、 「RangeクラスのCopyメソッドが失敗しました。」とエラーが出ます。 以前は、以下のコードに似た、ロジックで、問題なかったのですが、 どこか間違っていますでしょうか？ Dim xlsApp As Excel.Application Dim xlsBook As Excel.Workbook Dim xlsSheet As Excel.Worksheet Set xlsApp = CreateObject("Excel.Application") Set xlsBook = xlsApp.Workbooks.Add Set xlsSheet = xlsBook.Worksheets(1) '★エラー発生 ThisWorkbook.Worksheets("Sheet1").Range("A1:D4").Copy _ Destination:=xlsBook.Worksheets("Sheet2").Range("E5")

  • VB6.0 Excel 同シートで毎回改行して書き込む方法

    こんにちは。VB6.0(SP5)、Excel2003、WindowsXPでVBの勉強をしています。 現在、VBでコマンドボタンを押した時に、Excelに押した時の時間を書き込むプログラムを作成しています。 一応プログラムを組むことができたのですが、再びコマンドボタンを押すと2回目以降書き込んだ時間を上書きするものです。 コマンドボタンを押した時、時間の書き込みを毎回次の行で行うプログラムを組みたいと思っています。 毎回改行して書き込むためには、どのようにプログラムを書くと良いでしょうか？ ご指導よろしくお願いします。 組んだプログラムを下記に記します。 Private Sub Command1_Click() Dim xlsApp As Object Dim xlsBook As Object Dim xlsSheet As Object On Error Resume Next Set xlsApp = GetObject(, "Excel.Application") Set xlsBook = xlsApp.ActiveWorkbook Set xlsSheet = xlsBook.Sheets.Add If Err.Number <> 0 Then Set xlsBook = xlsApp.Workbooks.Add Set xlsSheet = xlsBook.ActiveSheet End If Call Excel(xlsBook, xlsSheet) Set xlsSheet = Nothing Set xlsBook = Nothing Set xlsApp = Nothing On Error GoTo 0 End Sub Private Sub Excel(xlsBook As Object, xlsSheet As Object) Dim hh As Single Dim mm As Single Dim ss As Single xlsSheet.Range("A1") = Format(Time, "hh:mm:ss") End Sub

  • 環境はVB2008です。開いているエクセルファイルの認識！

    環境はVB2008です。開いているエクセルファイルの認識！ すいません。詳しいかた宜しくお願い致します。 【現象】 ファイルが既に開いている場合、読み取り専用で開いてしまうと保存できないため、 開いているファイルの検索をかけようと試みたが、 新しいエクセルを起動した中のWorkBook内を検索してしまうのか 開いているワークブックを検知してくれない。 Dim xlApp As New Excel.Application Dim xlwb As Excel.Workbook Dim xlws As Excel.Worksheet Dim URL3 As String URL3 = "C:\MailDB.xls" Dim allwb As Excel.workbook For Each allwb In xlApp.Workbooks If allwb.Path = URL3 Then MsgBox(URL3 & "のファイルを閉じてください。", MsgBoxStyle.Exclamation, "警告") Exit Sub End If Next xlwb = xlApp.workbooks.open(URL3) xlws = xlwb.worksheets(1) With xlws .Cells(1, 3) = "テスト" End With xlwb.Save() xlwb.close() xlApp.quit()

  • ＡＳＰでエクセルの起動

    わかる方教えて下さい。 Set xlsApp=server.CreateObjec("Excel.Application") Set xlsBook =xlsApp.Workbooks.Add Set xlsSheet = xlsBook.Sheets.Add xlsBook.Application.Visible = True でＡＳＰからエクセルを起動したいと思いましたが、 『Server オブジェクト, ASP 0178 (0x80070005) 許可を確認中に Server.CreateObject の呼び出しに失敗しました。このオブジェクトへのアクセスは拒否されます。』　というエラーでエクセルが起動しません。 構文が悪いのでしょうか？ それともサーバー側で何か設定しなくてはいけないのでしょうか？ 但しサーバーと言ってもWin2000 Professional のＯｓクライアントですが（当然ＩＩＳ等はセットアップ済）それがいけないのでしょうか？ お願い致します。

  • Excel VBAで確認なしで上書き保存

    起動中のBookでファイル名が Data.xlsのものを閉じたいと思いますが、 上書き確認メッセージを出さないように oExcel.DisplayAlerts = False を設定すると エラーになります。 CreateObject で作成した場合は、DisplayAlerts が使えるようですが、 すでに起動済みのBookを確認なしで上書き保存するにはどうしたらいい のでしょうか？ Sub UnloadFile() 　　Dim myBook2 As Workbook 　　Dim myBook1 As Workbook 　　　For Each myBook2 In Workbooks 　　　　　If myBook2.Name = "Data.xls" Then 　　　　　　　Set myBook1 = myBook2 　　　　　　　myBook1.SaveAs myBook1.FullName 　　　　　　　myBook1.Close 　　　　　End If 　　　Next myBook2 　　　Set myBook1 = Nothing End Sub

  • VBで既存エクセルシートを新規ブックにコピー

    VB6,Excel2003です。 既存のエクセルシートを新規ブックにコピーする プログラムを作成してみましたが タスクバーに新規ブックのタスクバーボタンが２つできてしまいます。 どこが原因か教えてください。よろしくお願いします。 Private Sub Command1_Click() Dim xlsApp As Excel.Application Dim xlsBookTemp As Excel.Workbook 'コピー元ブック Dim xlsBookCopy As Excel.Workbook 'コピー先ブック Dim xlsSheetTemp As Excel.Worksheet 'コピー元シート Dim xlsSheetCopy As Excel.Worksheet 'コピー先シート Set xlsApp = CreateObject("Excel.Application") Set xlsBookTemp = xlsApp.Workbooks.Open("C:\Temp.xls") Set xlsSheetTemp = xlsBookTemp.Sheets(1) Set xlsBookCopy = xlsApp.Workbooks.Add Set xlsSheetCopy = xlsBookCopy.Sheets(1) xlsApp.Visible = True 'コピー元のSheet1を新規ブックにコピーする xlsSheetTemp.Copy Before:=xlsSheetCopy 'コピー元のブックは閉じる xlsBookTemp.Close '///新規ブックの編集処理/// Set xlsSheetTemp = Nothing Set xlsBookTemp = Nothing Set xlsSheetCopy = Nothing Set xlsBookCopy = Nothing Set xlsApp = Nothing End Sub

  • ＥＸＣＥＬ　ＶＢＡについて（再質問）

    お世話になります。 EXCEL VBAで指定したフォルダのEXCELブックが１つでもオープンされているかどうか知りたいのですが、可能でしょうか。 という質問を行い、以下の回答をいただきました。 自分でテストしてみてできたと思ったのですが、 他の人が開いているのが分かりませんでした。 他の人がオープンしているかどうか知ることは可能でしょうか？ よろしくお願いします。 以下の回答といただきました。 －－－－－－－－－－－－－ ※[ツール]-[参照設定]で Microsoft Scripting Runtimeにチェック入れて下さい。 Dim Fso As New FileSystemObject 'ファイルシステムオブジェクト Dim xlBook As Workbook '開かれているブック Dim objFolder As Folder '調べるフォルダ Dim bOpenedBook As Boolean '開かれているかフラグ '調べるフォルダを「C:\tmp」とする。 Set objFolder = Fso.GetFolder("C:\tmp") bOpenedBook = False '今開かれているブックでループする。 For Each xlBook In Excel.Workbooks If Len(xlBook.Path) > 0 Then 'ブックが保存されているフォルダと調べるフォルダが一致するか？ If objFolder Is Fso.GetFolder(xlBook.Path) Then '一致すれば開かれている bOpenedBook = True Exit For End If End If Next '結果をメッセージボックスで表示 If bOpenedBook Then MsgBox "開かれています。" Else MsgBox "一つも開かれていません。" End If

  • もしも新規Excelファイルを開いてる場合は閉じる

    Excel2003です・ ユーザーが新規Excelファイル（book1)かテスト用ファイルを開いている場合は閉じる処理を考えております。 Option Explicit Dim ws As Workbook, flag As Boolean Private Sub Workbook_Open() For Each ws In Workbooks If ws.Name = "Book1" Then flag = True Next ws If flag = True Then Workbooks("Book1.xls").Close 　 Else 　 End IF For Each ws In Workbooks If ws.Name = "テスト用.xls" Then flag = True Next ws If flag = True Then Workbooks("テスト用.xls").Close 　 Else 　 End IF End Sub このコードだとBook1を開いているのに、Trueで拾ってくれません。 ws.Name = "Book1.xls"にしても同じです。 どこかおかしい部分があるのでしょうか？

  • Excelにおけるセルの値をVB2005に配列として取り込みたい

    Excelのセルの値をVB2005に配列として取り込みたいのですが、Excel.Rangeと配列の整合性が取れず困っています。 なんらかヒントになるような助言をお願いします。 以下は今までに作成中のコードです。 Public Class Form1 Dim xlsapp As New Excel.Application Dim xlsbook As Excel.Workbook Dim xlssheet As Excel.Worksheet Dim fn As String = "sample.xls" Dim Q(,,) As Double Dim i, j, x, y, z As Integer Dim k As Double Dim w(i), v(i), u(i) As Double Dim As Object Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click xlsbook = xlsapp.Workbooks.Open(fn) xlssheet = xlsbook.Worksheets(1) k = 1 w(i) = xlssheet.Cells(1, 3) v(i) = xlssheet.Cells(1, 2) u(i) = xlssheet.Cells(1, 1) For x = 2 To 11 If w(i) = 1 Then For y = 2 To 11 If v(i) = 1 Then Q(1, 1, k) = u(i) k = k + 1 End If Next End If Next z = k For k = 1 To z TextBox1.Text = Q(1, 1, k) Next End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Me.Close() xlsapp.DisplayAlerts = False xlssheet = Nothing xlsbook.Close() xlsbook = Nothing xlsapp.Quit() xlsapp = Nothing End Sub End Class

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

あなたにピッタリな商品が見つかる！ OKWAVEセレクト

質問する