C# と VB.NET の質問掲示板

ASP.NET、C++/CLI、Java 何でもどうぞ

C# と VB.NET の入門サイト

Excelを開くのを1つだけ

分類:[Microsoft Office 全般]　

office 2019 を使っています

パソコン上でエクセルファイルを1つだけ開いて
２つ目以降は開けないように出来ないでしょうか
宜しくお願い致します

■No103450 (screen さん) に返信
> office 2019 を使っています
>
> パソコン上でエクセルファイルを1つだけ開いて
> ２つ目以降は開けないように出来ないでしょうか

なぜ「２つ目以降は開けないように」したいのか、そうすることの目的や理由
をなるべく詳しく書くと、「それはできないけど目的を果たすにはこうしたら
どうか？」というような代案が出てくるかもしれません。

（出てこなかったらスミマセン）

■No103451 (WebSurfer さん) に返信
> ■No103450 (screen さん) に返信

すみません分かりにくい表現をしてしまいました

C#でプログラムを作っているのですが
入力された文字列を
パソコン上で開いたエクセルのA列を検索して
合致したものがあればB列からP列までのデータを取って来る
と言うものです

エクセルファイルはいくつもあるので開いたエクセルファイルのデータを
取りに行きたいのですが2つ以上開いているとうまく取りにいってくれません

そこで１つだけ開けられるようにしておけばいいのかなと思い聞いてみました

何かいい案があるますでしょうか
宜しくお願い致します

■No103452 (screen さん) に返信
> ■No103451 (WebSurfer さん) に返信
>>■No103450 (screen さん) に返信
> C#でプログラムを作っているのですが
作っているアプリはどんなアプリですか？
　・Formアプリ
　・WPFアプリ
　・その他
フレームワークは何ですか？
　・.NETFrameWork4.8
　・.NET6
　・.NET8
　・その他

> エクセルファイルはいくつもあるので開いたエクセルファイルのデータを
> 取りに行きたいのですが2つ以上開いているとうまく取りにいってくれません

どのようなソースを書いて、
うまく取りにいけないのかを記述すると
ピンポイントで回答があるかもしれないです。

■No103452 (screen さん) に返信
> エクセルファイルはいくつもあるので開いたエクセルファイルのデータを
> 取りに行きたいのですが2つ以上開いているとうまく取りにいってくれません

対象のファイル名が分かっているなら、
　dynamic book = Microsoft.VisualBasic.Interaction.GetObject(xlsxFilePath);
で呼び出せる可能性があります。ただ、今回は望ましくないかな…。

それぞれの Excel が同一プロセスなら、Excel.Application オブジェクトの
Workbooks プロパティで、個々のワークブックにアクセスできます。

別プロセスで起動されている場合(特にオートメーション併用時)にも対応したい場合は、
ROT を辿れば、個々の Workbook オブジェクトにアクセスできるかと。
https://learn.microsoft.com/ja-jp/dotnet/api/system.runtime.interopservices.comtypes.ibindctx.getrunningobjecttable?WT.mc_id=DT-MVP-8907&view=netframework-4.8.1

いずれも COM オブジェクトへのアクセスとなるので、ReleaseComObject を忘れずに。

■No103456 (魔界の仮面弁士) に追記
> 別プロセスで起動されている場合(特にオートメーション併用時)にも対応したい場合は、
> ROT を辿れば、個々の Workbook オブジェクトにアクセスできるかと。

これでどうかな。
現在開かれている Workbook オブジェクトを全列挙しています。
※あまりテストしてません。

private void button1_Click(object sender, EventArgs e)
{
　var books = ExcelSample.GetWorkbooks();
　foreach (var (name, obj) in books)
　{
　　Debug.WriteLine(name);
　　Microsoft.Office.Interop.Excel.Workbook book = obj;
　　Debug.WriteLine(book.FullName);
　　Marshal.ReleaseComObject(obj);
　}
}

//---
using System;
using System.Collections.Generic;
using System.Diagnostics;
using System.Runtime.InteropServices;
using System.Runtime.InteropServices.ComTypes;

internal static class ExcelSample
{
　public static Tuple<string, dynamic>[] GetWorkbooks()
　{
　　var list = new List<Tuple<string, dynamic>>();
　　if (CreateBindCtx(0, out var ctx) == 0 && ctx != null)
　　{
　　　ctx.GetRunningObjectTable(out var rot);
　　　rot.EnumRunning(out var enumMoniker);
　　　enumMoniker.Reset();
　　　var ms = new IMoniker[1];
　　　while (enumMoniker.Next(1, ms, IntPtr.Zero) == 0)
　　　{
　　　　try
　　　　{
　　　　　ms[0].GetDisplayName(ctx, null, out var displayName);
#if DEBUG
　　　　　ms[0].GetClassID(out var clsid);
　　　　　Debug.WriteLine($"{clsid} / {displayName}");
#endif
　　　　　rot.GetObject(ms[0], out var comObject);
　　　　　if (comObject is Microsoft.Office.Interop.Excel.Workbook)
　　　　　{
　　　　　　list.Add(new Tuple<string, dynamic>(displayName, comObject));
　　　　　}
　　　　}
　　　　finally
　　　　{
　　　　　Marshal.ReleaseComObject(ms[0]);
　　　　}
　　　}
　　　Marshal.ReleaseComObject(enumMoniker);
　　　Marshal.ReleaseComObject(ctx);
　　　Marshal.ReleaseComObject(rot);
　　}
　　return list.ToArray();
　}

　[DllImport("ole32")]
　private static extern int CreateBindCtx(int reserved, out IBindCtx ppbc);
}

名前 (*必須)
E-Mail (任意)
Web サイト (任意)
投稿モード	通常モード　　図表モード (ソースコードを貼る場合はこちらを使用)
本文　(質問の場合は、開発環境・使用言語のバージョンなどを最初に書いてください) ■No103471 (魔界の仮面弁士さん) に返信 > ■No103456 (魔界の仮面弁士) に追記 >>別プロセスで起動されている場合(特にオートメーション併用時)にも対応したい場合は、 >>ROT を辿れば、個々の Workbook オブジェクトにアクセスできるかと。 > > これでどうかな。 > 現在開かれている Workbook オブジェクトを全列挙しています。 > ※あまりテストしてません。 > > private void button1_Click(object sender, EventArgs e) > { > 　var books = ExcelSample.GetWorkbooks(); > 　foreach (var (name, obj) in books) > 　{ > 　　Debug.WriteLine(name); > 　　Microsoft.Office.Interop.Excel.Workbook book = obj; > 　　Debug.WriteLine(book.FullName); > 　　Marshal.ReleaseComObject(obj); > 　} > } > > > //--- > using System; > using System.Collections.Generic; > using System.Diagnostics; > using System.Runtime.InteropServices; > using System.Runtime.InteropServices.ComTypes; > > internal static class ExcelSample > { > 　public static Tuple<string, dynamic>[] GetWorkbooks() > 　{ > 　　var list = new List<Tuple<string, dynamic>>(); > 　　if (CreateBindCtx(0, out var ctx) == 0 && ctx != null) > 　　{ > 　　　ctx.GetRunningObjectTable(out var rot); > 　　　rot.EnumRunning(out var enumMoniker); > 　　　enumMoniker.Reset(); > 　　　var ms = new IMoniker[1]; > 　　　while (enumMoniker.Next(1, ms, IntPtr.Zero) == 0) > 　　　{ > 　　　　try > 　　　　{ > 　　　　　ms[0].GetDisplayName(ctx, null, out var displayName); > #if DEBUG > 　　　　　ms[0].GetClassID(out var clsid); > 　　　　　Debug.WriteLine($"{clsid} / {displayName}"); > #endif > 　　　　　rot.GetObject(ms[0], out var comObject); > 　　　　　if (comObject is Microsoft.Office.Interop.Excel.Workbook) > 　　　　　{ > 　　　　　　list.Add(new Tuple<string, dynamic>(displayName, comObject)); > 　　　　　} > 　　　　} > 　　　　finally > 　　　　{ > 　　　　　Marshal.ReleaseComObject(ms[0]); > 　　　　} > 　　　} > 　　　Marshal.ReleaseComObject(enumMoniker); > 　　　Marshal.ReleaseComObject(ctx); > 　　　Marshal.ReleaseComObject(rot); > 　　} > 　　return list.ToArray(); > 　} > > 　[DllImport("ole32")] > 　private static extern int CreateBindCtx(int reserved, out IBindCtx ppbc); > } >
編集キー	自分の投稿を編集する時に必要です (半角8文字以内)
解決済み /解決したらチェックしておきましょう。
プレビュー/