はじめましてきよといいます。
Excel操作時についての質問です。

Excelファイルを開くためのボタンを作成。
ボタン操作時に選択しているExcelファイルが開いている場合は
エラーを発生させファイルの２重開きを防止したいのですが。

どなたかご教授お願い致します。

Dim xlapp As Excel.Application
Dim xlbook As Excel.Workbook
Dim xlsheet As Excel.Worksheet

Set xlapp = CreateObject("excel.application")
Set xlbook = xlapp.Workbooks.Open("c:\ファイル名.xls")
Set xlsheet = xlbook.Worksheets("シート名")
xlapp.Visible = True
これに何か足せば良いですかね？

> はじめましてきよといいます。
> Excel操作時についての質問です。
>
> Excelファイルを開くためのボタンを作成。
> ボタン操作時に選択しているExcelファイルが開いている場合は
> エラーを発生させファイルの２重開きを防止したいのですが。
>
> どなたかご教授お願い致します。
>
> Dim xlapp As Excel.Application
> Dim xlbook As Excel.Workbook
> Dim xlsheet As Excel.Worksheet
>
> Set xlapp = CreateObject("excel.application")
> Set xlbook = xlapp.Workbooks.Open("c:\ファイル名.xls")
> Set xlsheet = xlbook.Worksheets("シート名")
> xlapp.Visible = True
> これに何か足せば良いですかね？

上記コードは何をしているのか分かっていますか？
そこにどういう処理（コードじゃなくてこうするとかああするとか文字で説明）をすれば
いいか書いてみてください。

せっかく、コンテンツが豊富にそろっているホームページの掲示板に書き込んでいるんだから
Excel Word関連の記事に目を通してみてください。
たとえば
hhttp://www.bcap.co.jp/hanafusa/VBHLP/excel03.htm

> > はじめましてきよといいます。
> > Excel操作時についての質問です。
> >
> > Excelファイルを開くためのボタンを作成。
> > ボタン操作時に選択しているExcelファイルが開いている場合は
> > エラーを発生させファイルの２重開きを防止したいのですが。
> >
> > どなたかご教授お願い致します。
> >
> > Dim xlapp As Excel.Application
> > Dim xlbook As Excel.Workbook
> > Dim xlsheet As Excel.Worksheet
> >
> > Set xlapp = CreateObject("excel.application")
> > Set xlbook = xlapp.Workbooks.Open("c:\ファイル名.xls")
> > Set xlsheet = xlbook.Worksheets("シート名")
> > xlapp.Visible = True
> > これに何か足せば良いですかね？
>
> 上記コードは何をしているのか分かっていますか？
> そこにどういう処理（コードじゃなくてこうするとかああするとか文字で説明）をすれば
> いいか書いてみてください。
>
> せっかく、コンテンツが豊富にそろっているホームページの掲示板に書き込んでいるんだから
> Excel Word関連の記事に目を通してみてください。
> たとえば
> hhttp://www.bcap.co.jp/hanafusa/VBHLP/excel03.htm

ありがとうございました。
今後はよく見てから書き込みします。