投稿日 | : 2005/08/06(Sat) 03:24 |
投稿者 | : のびた |
Eメール | : |
URL | : |
タイトル | : Re: Excelファイルの2重開き防止 |
> はじめましてきよといいます。
> Excel操作時についての質問です。
>
> Excelファイルを開くためのボタンを作成。
> ボタン操作時に選択しているExcelファイルが開いている場合は
> エラーを発生させファイルの2重開きを防止したいのですが。
>
> どなたかご教授お願い致します。
>
> 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