VB6.0用掲示板の過去のログ(No.2)−VBレスキュー(花ちゃん)
[記事リスト]
[新規投稿]
[新着記事]
[ワード検索]
[管理用]
| 投稿日 | ： 2005/08/05(Fri) 21:06 |
| 投稿者 | ： きよ |
| ＵＲＬ | ： |
| タイトル | ： Excelファイルの２重開き防止 |
はじめましてきよといいます。
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
これに何か足せば良いですかね？
- 関連一覧ツリー
（★ をクリックするとツリー全体を一括表示します）
- 返信フォーム
（この記事に返信する場合は下記フォームから投稿して下さい）