忍者ブログ
ブログ主が仕事や個人的に学んだPC系・プログラミング系(VBAとかHTML)について書いていく備忘録ブログ。 ※ここで記載する内容はあくまで「個人的に」上手くいく内容です。ご使用には十分注意してください
[9] [8] [7] [6] [5] [4] [3] [1
Posted by - 2017.06.28,Wed
×

[PR]上記の広告は3ヶ月以上新規記事投稿のないブログに表示されています。新しい記事を書く事で広告が消えます。

Posted by 若槻風亜 - 2013.07.06,Sat

(対象)Excel VBA
(確認)Excel2003


今回は指定したブックが開いているか否かのファンクションです。

たとえば外部ファイルを開いてそこにある値を持って来たい時、
すでに開いているとエラーになったりしませんか?
(ブログ主は時々なります←開きっぱなしにすることがある)

そんな時、とりあえず開いているかいないかの確認をする
ファンクションです。

これ以外の方法も(作ったこと忘れたので)色々やっていますが、
とりあえず一番単純なものを。

これの結果次第でエラーとして処理するか開く動作を無視して
そのまま次の動作にいくかもあなた次第。





'==============================================================
' ファンクション
' : 指定したブックが開いているかどうかの判断(True/False)
'==============================================================
Function CheckOpenBook(CheckBookName As String) As Boolean
  '■ワークブック変数を宣言
  Dim WB_A As Workbook
  
  '■初期化
  CheckOpenBook = False
  
  '■開いているブックを全て探し、指定したファイルの有無を確認
  For Each WB_A In Workbooks
    If WB_A.Name = CheckBookName Then
      CheckOpenBook = True
      Exit For
    End If
  Next
End Function
――――――――――――――――――――――――――――――――

(使い方例)
Dim Flg as Boolean
Flg = CheckOpenBook("aaa\bbb.xls")
If Flg Then
  Msgbox "開いてるよ"
Else
  Msgbox "開いてないよ"
End If


→指定したファイルが開いていたらTrue、開いてなかったら
 Falseを返すので、その値によって処理を分ける



ちょいちょい役立つものだと思います。

ちなみに、探すと似たようなもの書いたサイトさん
いっぱい出てきます。

真面目に作ってる方多いので、大変参考になります。

拍手[0回]

PR
Comments
Post a Comment
Name :
Title :
E-mail :
URL :
Comments :
Pass :   Vodafone絵文字 i-mode絵文字 Ezweb絵文字
プロフィール
HN:
若槻風亜
性別:
女性
職業:
会社員
趣味:
創作、プログラミング
自己紹介:
仕事や個人で学んだことをまとめておきたかったがために備忘録ブログを立ち上げました。
あくまで自分が学んだこと・自分が出来たことなので、ご覧くださる場合は参照レベルでお願いします。
ブログ内検索
カレンダー
05 2017/06 07
S M T W T F S
1 2 3
4 5 6 7 8 9 10
11 12 13 14 15 16 17
18 19 20 21 22 23 24
25 26 27 28 29 30
P R
最新トラックバック
コガネモチ
フリーエリア



Template by mavericyard*
Powered by "Samurai Factory"
忍者ブログ [PR]