Dim writeSheet As Worksheet ' 自分自身の書き出し先シート Dim DMN As Double よろしくお願いします！, 私がやる方法です。 　　If wb.Name = "book1.xls" Then 'このブックのパス お世話になっております。Excel VBA についてご質問します。今、VBAでCSVファイルを作成してデータ管理を行うソフトを作成しております。このソフトは、共有をかけて複数の人で使用するため同じCSVファイルに同時にアクセスする可能性が ' 例えば 　Dim xlBook VBAとは？Excelでマクロを作成するための基礎知識と便利な作業自動化｜発注ラウンジは、発注に必要な様々なノウハウや「発注ナビ」で実際にシステム開発を発注された方々のインタビューなど、発注担当者様のためのお役立ち情報を満載したサイトです。 ファイルをオープンする時の、サーバ名から指定しているコードの、ファイル名より前の部分をそのままコピペしたのですが、それがよくないのでしょうか。, こんにちは。 CSV ファイルですか....難しいですよ。 Dim ZPOS As Double 　　On Error Resume Next やりたいことは ファイル保存についてはExcelマクロでファイルを保存する方法をご覧ください。 【VBA】Excelマクロでファイルを保存する方法 【筆者プロフィール】・プログラミング未経験からVBAとPythonを独学・業務自動化と機械学習を仕事に取り入れたこんな私が書いた当記事は以下の人におススメです。 　Application.ScreenUpdating = False すみません。そしてありがとうございました。, 「VBA 書き方」に関するQ&A： エクセルの表の集計をVBAでやりたいのです。, 「書き方 メッセージ」に関するQ&A： 志望動機はどんなこと言ってますか？（飲食業界）, Excelファイルを開くとき、読み取り専用にするかどうかのダイアログを出ないようにしたい, エクセル：マクロ「Application.CutCopyMode = False」って？, お世話になっております。 Excel VBA でファイルのタイムスタンプ（更新日時）を取得するには標準関数を使用する方法と FileSystemObject を使用する方法があります。 標準関数を使用する方法; FileSystemObject を使用する方法; 標準関数を使用する方法. 'Excelで設定されたデフォルトパス MsgBox (" >>> 補間誤差自動計算　<<< ") ' // ファイルが使用中か調べる その実行を保留するちょと特別動作をします。 を取得する事は可能でしょうか？ また、質問文から察するに「部品表.xls」と「コード一覧表.xls」の両方を開いて処理されていますが「コード一覧表.xls」はプログラム内で開いて閉じているので実行するときは「コード一覧表.xls」は閉じて置いてください。 こういうものですか？ 手作業でブックを開くとき、そのブックを誰か他のユーザーが開いていた場合、[使用中のファイル]ダイアログボックスが開き、現在そのブックを誰が編集しているかが表示されます。 ファイルをロックする、、これが条件です。ロックされないファイル Application.Quitはそれがあるプロシージャのコードが全て終わるまで Shell "C:\Windows\Explorer.exe " & targ, vbNormalFocus たとえば他のフォルダーのEXCELのRange("A2:A3").ValueをメインプログラムのRange("C2:C3").Valueにセットしたい時です。 メッセージを出さずに上書きするプログラミングを教えて下さい で、四捨五入 　Application.ScreenUpdating = False Sub Sample() Set readSheet = readBook.Worksheets("sheetName") ' 相手シートを参照 Excel で CSV を開く場合、ファイルはロックされるため、下記のような writeSheet.Cells(1, 1).Value = readSheet.Ce...続きを読む, ※各種外部サービスのアカウントをお持ちの方はこちらから簡単に登録できます。 このときのVBAは、オリジナルのファイル名を使っているため、ファイル名を変更するとエラーになり、以後の業務に使用できません。 　　Dim n As Integer もっと手っ取り早くですと、 Windows("コード一覧表.xls").Activate Set readBook = Nothing, 私がやる方法です。 ・作業者が選んだパスとブックもMsgBoxで表示できてるので、もらう相手の場所も取得できてます。 Selection.AutoFilter Field:=3, Criteria1:="=検索する", Operator:= xlAnd 検索する = cells(i,2).Value VBAでファイルを読み込むにはOpenメソッドを使用します。 ファイルを読み込む方法がよくわからない ファイルを読み込んでデータを取得したい といった方にむけて、この記事ではExcelブックやテキストファイル、CSVなどファイルを読み込んでデータを取得する方法について解説し … お陰様で、無事今回の一連の作業は終了しました。 Sub Sample() ' 例えば Excel VBA マクロでファイルの存在確認をする方法を紹介します。FileExists 関数を使うと指定したファイルが存在していると True を返します。パスの大文字と小文字の区別はしません。 A列に商品名、B列に商品番号が入力してあります。C列のコードは未入力です。 End Sub, エクセルにて VBAでCSVファイルが使用中かどうかの確認 . Wordを操作する準備VBAは、Excelだけではなく、WordやAccess、PowerPoint、Outlookといった主要なOfficeアプリケーションにも搭載されています。VBAが参照する「ライブラリファイル」がOfficeアプ … ファイルかフォルダが存在しているどうか確認するにはDir関数を使います。Dir関数とは、指定した属性と一致するファイルまたはフォルダの名前を返す関数です。もし一致するファイルまたはフォルダが見つからなければ、長さ0の文字列が返ります。 MsgBox "このブックのパス　　　: " & a & Chr(13) & _ 例によって、参考書と首っ引きでコードを読ませていただきました。 別のプログラムがフォルダーまたはファイルを開いているので、操作を完了できません。フォルダーまたはファイルを閉じてから再実行してください。 タスクマネージャーの [ プロセス ] を確認しても対象のフォルダなどは閉じているのに、上記のメッセージが出る場合の対処。 ' または Set readSheet = readBook.Worksheets(sheetIndex) Exel VBA　別ブックから該当データを検索し、必要なデータを取得する方法について. 宜しくお願いします, Application.DisplayAlerts = False 　Set xlBook = Workbooks....続きを読む, ネットで探してみたのですが、計算結果を四捨五入して特定のセルを 《エクセル2000VBA》これで実行時エラー '1004'が出るのはなぜでしょう? Excel97 でも、同じですね。以下で試してみてください。 Dim readBook As Workbook ' 相手ブック ですね。 それですみません、一点だけ確認させて頂きたいのですが、「'Const Fname ～」の部分を削除したということは、例えばここの行などは「 & Fname」を削除して、 　　On Error GoTo 0 メモ帳（他多くのエディタ）では、ファイルがロックがされませんから、 Dim ZPS As Double 添付ファイルが、[危険度 - 中] のファイルの種類一覧に含まれるものである場合は、ファイルの発信元ゾーンにかかわらず、ユーザーがファイルにアクセスしないうちはメッセージは表示されません。 危険度 - 低 添付ファイルが危険度の低いファイルの種類の一覧に含まれる種類の場合は、フ� また、コード一覧表という別のブックには、A列に商品番号と、B列にコードが、何千件も入力されています。 基本事項は本で学びましたが、呪文のようなコードはよく理解できません。懸命にネットで検索して、訳して理解する努力をしてはいますが。 vbaでファイル名を取得したい vbaを実行している自分自身のファイル名の取得ってできないの？ ファイルやフォルダの存在や一覧を取得するにはどしたらいい？ vbaでファイル操作をしていると、上のような悩みを抱えることがあるのではないでしょうか？ モータ　　U-1325-L　　 End Sub ロジックで使用中かどうかを調べることは可能です。 　　カレントフォルダ名 部品表は、何百種類もありますので、関数ではなく、マクロで処理を希望します。 thisYear = date.getFullYear(); エクセルVBAのFileSystemオブジェクトでファイルやフォルダの操作をする方法をお伝えしています。今回はFileExists、FolderExistsメソッドでファイル・フォルダの存在を判定します。 VBA講座 ブックの操作：既に使用されている. 次の使用例は、Book1.xls ブックを閉じますが、変更の保存を確認するメッセージを表示しません。 This example closes the Workbook Book1.xls and does not prompt the user to save changes. ホルダ　　R-134256 達人の皆様、どうかお知恵をかして下さいませ。, 「書き方 メッセージ」に関するQ&A： 退官される先生へのメッセージの書き方, 「vba 強制終了」に関するQ&A： エクセルVBA　コンボボックスで強制終了, いつもお世話になっております。 該当のcsvファイルが使用中であれば、 『 は使用中です。使用中でないことを確認してから再度実行してください』 といったメッセージを表示したいと考えています。 検索したところ下記のサイトが出てきましたが、 　Application.Quit マクロでエクセルを終了（ブックを閉じて、アプリケーション自体も終了）させたいのですが、以下のコードではアプリケーションが閉じてくれません。 という書き方があるようですが、VBAを使わない場合でも「他の人が使用中です。読み取り専用で開きますか？」というメッセージが自動で出てしまうため、これを出さずに強制終了できると嬉しいです。 　　FileInUse = CBool(Err.Number > 0) Excel VBA マクロのデバッグの仕方を紹介します。デバッグとは、プログラムがどのように実行されているか調査することです。実行中の変数の値を調べながら、正しく動作しているか、予期せぬ動作になっていないか確認するために、何度もデバッグを繰り返すのがプログラミングです。 Dim readSheet As WorkSheet ' 相手シート ReadOnlyがTRUEの場合、使用されています。. 心配ならデータベース（例えば mdb とか）を使った方がよろしいのでは？, こんにちは。 ファイルが使用中かどうかをチェックするには、ファイルが使用中だとファイル名を変更できないのを利用して、以下のようにします。. Excel/VBAでExcelファイルを開く際に使用中ファイルだったら開かない方法 非IT企業でしかもITとは全く関係ない部署にいる中年エンジニア。唯一の趣味がプログラミングという”自称”プログラマー。 ExcObj.Quit 大変お世話になっています。 document.getElementById("thisYear").innerHTML = thisYear; 共有ブックを開いているユーザーを調べる. If Dir(MyPath & Fname)　→　If Dir(MyPath) 　しかし、 Excel VBA マクロのデバッグの仕方を紹介します。デバッグとは、プログラムがどのように実行されているか調査することです。実行中の変数の値を調べながら、正しく動作しているか、予期せぬ動作になっていないか確認するために、何度もデバッグを繰り返すのがプログラミングです。 やりたいことは VBAでファイル処理を行っていると特定名のファイルを検索したり、関連するフォルダを検索したいことが多々あるかと思います。そんな時に使用するのがDir関数で、この関数を使って処理すれば簡単にファイルやフォルダを抽出してくれます。今回はDir関数の解説と実用例、フォルダ新 … For Each wb In Workbooks 自分では、部品表の商品番号をコピーして、コード一覧表で検索し、検索結果の右隣のセル（B列のコード）の値を部品表のC列に貼り付ければよいかと思い、書いてみたんですが… CSV は Excel で編集すると限定できる場合は、このロジックで十分です。 このケースでは検知できません。 readBook.Close False ' 相手ブックを閉じる Sub hokangosa() HOME > 即効テクニック > Excel VBA > ファイル 操作関連のテクニック > 他のユーザーにより使用中のブックを強制的に閉じる. の様にするとすでにファイルがある場合上書きメッセージが出ます ZPS = InputBox(">>> ステップを入力してください<<<") 　ちょっと曖昧な表現かなぁという気もいたしますが、VBAが書いてあるブックのブック名は 　　Close #n © 1995 - Office TANAKA 読み取り専用のファイル ファイルのプロパティの設定で読み取り専用の設定を行うことが出来ます。 読み取り専用のファイルを書き込みモードのOpenメソッドで開こうとするとエラーになります。 そのエラーを回避するために、事前に … 他のフォルダーにあるEXCELの項目の内容を取り込みたいです。 ただし、これは CSV を編集するアプリが、ファイルを開くときに、 Wordマクロ(VBA)使用の前提条件と，知っておきたいこと Wordのマクロ，VBA(Visual Basic for Applications)プログラムを使用すると， (1)頻繁に行う編集や書式設定等の操作手順を効率化したり， (2)繰り返し行われる一連の煩瑣な作業を自動化したりすることができます。 　　End If 読み取り専用のファイル ファイルのプロパティの設定で読み取り専用の設定を行うことが出来ます。 読み取り専用のファイルを書き込みモードのOpenメソッドで開こうとするとエラーになります。 そのエラーを回避するために、事前に … 指定フォルダを開く、マクロがあれば教えて頂けないでしょうか。 VBAでブックを非表示で開いて処理して閉じる方法. 　　Open sFilename For Binary Lock Read Write As #n 　Loop 　　Close #n 　　Dim 検索する As Long Sheet1.Cells(23, 6).Value = DMN エクセルVBAでファイルを開く作業を自動化する方法についてのシリーズ。今回は開くファイルの指定をエクセルシートに変更し、またファイルが存在するかどうかをDir関数で判定する方法についてお伝え … Excel VBA についてご質問します。 Dim blnFlag As Boolean Windows10 では現在起動中のアプリを確認したり終了させることができます。通常は画面下のタスクバーをみれば起動中のアプリのアイコンが表示されますが、バックグラウンドで動作しているアプリなども確認したいケースもあるかと思います。今回は、 Windows("部品表.xls").Activate https://www.atmarkit.co.jp/ait/articles/1704/12/news021.html について、使用中かどうかを判定する術はありません。 ファイルが使用中であることを知らせる警告メッセージ これは、ある共有ファイル（00-0006.xls）をExcelで開こうとしたときに表示されたもの。 Excel VBA マクロの Dir 関数を紹介します。Dir 関数は、指定したパターンに一致するファイルやフォルダのパスを返します。ファイルやフォルダの存在確認などに使用します。 ここでDMNの値を四捨五入したいです。 DMN = ZPOS / ZPS targ = "C:\" (C:\経理\,D:\2005年度\) 　　On Error GoTo 0 Sub test() ホルダ　　R-134256 MsgBox (" >>> 初期値入力します　<<< ") ThisWorkbook.Name 　Dim I As Long で切り上げです。 Excel VBA で指定したパスにファイルが存在するかを確認するには、 Dir 関数を使用する方法と FileSystemObject を使用する方法があります。 Dir 関数を使用する方法; fileSystemObject を使用する方法（後の処理でも fileSystemObject を使う場合） 　　n = FreeFile() 　　Open sFilename For Binary Lock Read Write As #n ActiveWorkbook.SaveAs "C:\Documents　andSettings\Nakatani\MyDocuments\Book1.xls" 他のユーザーにより使用中のブックを強制的に閉じる (Excel 97) 詳細 ブックを開く際に、他のユーザーが既に使用している場合は、そのブックは自動的に「読み取り専用」になります。 手動で使用中のブックを開こうとすると次のようなダイアログが表示されます。 この場合、開きたいブックを読み取り専用で開くかキャンセルします。 読み取り専用で開く場合は、他の人がファイルの使用を終了したとき通知を受け取るかを選択できます。 ZPOS = Sheet1.Cells(22, 4).Value できますよね？ Else 　　n = FreeFile() google_ad_slot = "0887539173"; 　MsgBox ("完了") Visual Basic（VBA） エクセルで誰が今開いているか調べる方法。 Excel（エクセル） 4. お世話になっております。 excel vba についてご質問します。 今、vbaでcsvファイルを作成してデータ管理を行うソフトを作成しております。 '-------------------------------------, 部品表というブックがあります 　Do While Range("A" & I).Value <> "" というような文脈からすると、 ロジックで使用中かどうかを調べることは可能です。 こちらのIF文の内容はまだ試していないのですが、何となく今回の仕様にそぐわない気がしてきまして、採用しないことにしました。 Option Explicit Excelブックが既に使用されているかどうか調べる / Step4 VBA講座 ブックの操作. ActiveWorkbook.SaveAs "C:\Documents　andSettings\Nakatani\MyDocuments\Book1.xls" hana-hana3さんの回答にもあるようにThisWorkBook.Closeでコード終了となりますので Public Function FileInUse(ByVal sFilename As String) As Boolean Excel（エクセル） 6. 　　FileInUse = CBool(Err.Number > 0) Sub 別ブックから貼り付ける() で、現在 "アクティブにして" 操作対象になっているブックの名前は //-->. 商品名　　商品番号　　コード Set writeSheet = ThisWorkbook.Worksheets(1) ' Sheet1 を参照 　Dim I As Long サーバ上にあるファイルを更新するVBAを作りました。 よろしくお願いいたします。, こんにちは。 date = new Date(); b = ActiveWorkbook.Path どこか悪いところはありますでしょうか？ [通知]ボタンをクリックすると、使用可能になったときに[ファイル使用可能]のメッセージを表示してくれます。 他に誰も編集しているはずはないのに、[使用中のファイル]メッセージが表示される場合、次のような原因や対処方法があるかと思います。 ＜2. 部品表のC列のコード欄に、コード一覧表ブックから商品番号と一致するコードを貼り付けしたいのです。 EXCEL97ファイルがあります。 ・コマンドボタン押したら、どこのEXCELから取り込むかのポップアップ(？)は、表示はできてます。 Set readSheet = readBook.Worksheets("sheetName") ' 相手シートを参照 そこでテストしてみようと思ったところ、MyPath～の所でなぜかコンパイルエラーになってしまうのですが… EXCEL作成したファイルは、SaveAsメゾットを利用してEXCELファイル（ブック）を保存する事が出来ます。また、ブックを保存（SaveAs）する際に、引数（Filename）を指定する事により、CSVファイル・テキストファイルなども保存する事が出来ます。 Dir【ﾃﾞﾚｸﾄﾘ】関数ファイルの存在を確認するには、Dir【ﾃﾞﾚｸﾄﾘ】関数を使用します。Dir【ﾃﾞﾚｸﾄﾘ】関数は、引数に指定したファイルが存在すると「パス（場所）を含まないファイル名」を返します。引数に指定したファイルが存在しな Excel VBA で指定したパスにファイルが存在するかを確認するには、 Dir 関数を使用する方法と FileSystemObject を使用する方法があります。 Dir 関数を使用する方法; fileSystemObject を使用する方法（後の処理でも fileSystemObject を使う場合） Excel/VBAでExcelファイルを開く際に使用中ファイルだったら開かない方法 2017/11/21 Excelマクロで、共有フォルダに入っているExcelファイルを開こうとした際に、誰かが使用中で読み取り専用で開いてしまうケースがあります。 そこでIf文を使って、ファイルが存在するかどうか確認を行い、 ファイルがないときには、Msgboxでその旨を表示してプログラムの実行を中止します 。 逆に、ファイルがあれば、10行目以降で実際にブックを開いて処理を行います（先ほどとまったく同じです 　　Dim n As Integer これは、既に使用されているファイルを開いた場合、「読み取り専用」になるからです。. d = CurDir 今回は、Dir関数の使い方を説明いたします。Dir関数の主な使い方は、ファイルやフォルダーを検索する時に、指定したファイル名などを簡単に探しだす事ができます。ひとつのフォルダーに大量のファイルが有る時など、該当するファイルを探し出す時は、とても簡単に検索する事ができます。 メインの動作はワークシート関数のVLOOKUPをVBA上で使用していますので理解はしやすいかと思います。 本当に助かりました。ありがとうございました。, ありがとうございます！無事機能を追加することができました！ としても大丈夫ですよね？, いえいえ、ご回答恐れ入ります。 /* Unit3 */ 該当ファイルはあらかじめ閉じられていて、オープンして処理終了後保存して閉じるという仕様になっているのですが、そのファイルは複数人が使用するもののため、「閉じている」ことを前提としたVBAにもかかわらず、ファイルが開いている可能性があります。 モータ　　U-1325-L　　 開くフォルダを変えたいときは targ に与えるパスを変更します。 手動で使用中のブックを開こうとすると次のようなダイアログが表示されます。 この場合、開きたいブックを読み取り専用で開くかキャンセルします。 読み取り専用で開く場合は、他の人がファイルの使用を終了したとき通知を受け取るかを選択できます。 返すにはどうしたらいいのでしょうか？ また、質問文から察するに「部品表.xls」と「コード一覧表.xls」の両方を開いて処理されていますが「コード一覧表.xls」はプログラム内で開いて閉じているので実行するときは「コード一覧表.xls」は閉じて置いてください。 Next Public Function FileInUse(ByVal sFilename As String) As Boolean A列　　　　 B列　　　　　C列　　　　　　 エクセルVBAで使うコードの備忘録。VBAで指定フォルダ内のファイル数を取得するコード。Dir関数を使ってフォルダ内のファイルを数える方法と、ファイルシステムオブジェクトを使ってダイレクトに取得する方法を紹介します。 VBAで どうもマサヤです！今日は先日のツール開発時に使ったvbaコードを紹介します。ツールを作っていると、ファイルの存在確認後に削除したり、追加したりすることありますよね。このようなコードは頻繁に使うものではないですが必要となったときに、効率的に再 Excel で CSV を開く場合、ファイルはロックされるため、下記のような 先週の人気記事 (Excel VBA)ファイルが開いているか判定をしてファイルが開いていても開いていなくてもオブジェクトを取得して作業できるようにする 279件のビュー (Excel VBA)文字列の中に指定文字が何文字あるかを調べる 203件のビュー (Excel VBA)ファイル一覧リストから自動で印刷をする。 № 概略説明; ①: 処理を行なうフォルダパスを受け取ります。 「 modFolderPicker2 」はフォルダ名・ファイル名受け取り用に本サイトで作成した汎用機能で、「フォルダの参照 (ダウンロード) 」で説明しています。 ②: 指定フォルダの先頭のファイル名を取得します。 Set readBook = Workbooks.Open(filename) ' 相手ブックを開いて参照 よろしくお願いします。, 普通に考えれば質問者のコードで上手くいきそうですが このソフトは、共有をかけて複数の人で使用するため同じCSVファイルに同時にアクセスする可能性があります。そのため、CSVファイルに混同したデータが書き込まれてしまう恐れがあります。 C:\経理\予算.xls Book1.xls に対する変更は保存されません。 Changes to Book1.xls are not saved. お客様の許可なしに外部サービスに投稿することはございませんのでご安心ください。. ・となると次はOPEN,INPUTですか？ よろしくお願いします。, こんにちは。 ご相談いただいた内容で調べてみます。 他のユーザーが� 部品表のC列のコード欄に、コード一覧表ブックから商品番号と一致するコードを貼り付けしたいのです。 　　 "デフォルトパス　　　　: " & c & Chr(13) & _ メインの動作はワークシート関数のVLOOKUPをVBA上で使用していますので理解はしやすいかと思います。 Step 4 … Set readBook = Workbooks.Open(filename) ' 相手ブックを開いて参照 そこで、一番最初に「ファイルが開かれていたら何もせずに終了する」という判断をしたいのですが、いい方法はあるでしょうか。 これだけ覚えておけば別ファイルを開いて、その中のマクロを実行することはできるようになります。 ※ちなみに変数を使用しない場合は、ファイルのフルパスを " で挟んでしまえばokです。 過去の質問を検索したところ、 開こうとしたとき、そのファイルが他のアプリケーションによって開かれていた場合は、エラーを返します。誰かが操作しているファイルに対しては、うかつに追記できないからです。 この特徴を利用して、ブックをファイルとして転記モードで開きます。 またこれとは別に切上げ、切捨ても教えていただけるとありがたいです。, DMN = Application.WorksheetFunction.Round(ZPOS / ZPS, 0) 　　I = I + 1 テキストデータの取り込みですと、Inputでそのバッファを定義してるのですが、なんか違うような。。。 ThisWorkbook.Close Dim readSheet As WorkSheet ' 相手シート 注: [アカウント] が表示されない場合、または既にファイルまたはドキュメントを開いている場合は、メニューから [ファイル] を選び、左側の一覧から [アカウント] または [サポート] を選択します。 [製品情報] の下に、Office 製品の名前と、場合によっては完全なバージョン番号が表示されます。 ’処理を行う End Fun...続きを読む, ExcelのVBAで、book1.xlsというファイルが現在開かれているか確認するにはどんなプロパティを使えばいいでしょうか？ Dim targ As String End If 【初心者向け】VBAのDir関数について解説します。Dir関数はファイル名の取得、及びファイルの存在確認に役立ちます。ワイルドカードを用いたDir関数の使い方や、引数ブランク「Dir()」の場合の処理内容などを1から整理して解説します。【サンプルコード付きで解説します。 ’処理を行わない End Sub, ＥＸＣＥＬマクロで上書きメッセージ無しで保存する方法をお願いします 'アクティブブックのパス で切り捨て 常にファイル名を取得出来るVBAをどなたか、教えて下さい。, ＞現在開いているブックのファイル名 とりあえず実用性も踏まえました。 サーバー上にあ … 　Dim xlBook DMN = Application.RoundDown(ZPOS / ZPS, 0) Dim writeSheet As Worksheet ' 自分自身の書き出し先シート の方ですかね。, 環境：WindowsXP、Excel2003 Dim readBook As Workbook ' 相手ブック ThisWorkbook.Name ActiveWorkbook.Name 'カレントディレクトリ CSV ファイルですか....難しいですよ。 a = ThisWorkbook.Path ョンによって開かれていた場合は、エラーを返します。誰かが操作しているファイルに対しては、うかつに追記できないからです。, この特徴を利用して、ブックをファイルとして転記モードで開きます。そして、開く操作でエラーが発生したら、そのブックは誰かがすでに開いているということです。, ブックをExcel上に開くのではなく、ファイルとして開くだけですので、どんなに大きなブックであっても処理にかかる時間はほんのわずかで済みます。大量のブックを判定することも簡単ですね。,