Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


70014 / 76732 ←次へ | 前へ→

【11230】Re:パッチの\を忘れていました。
回答  Jaka  - 04/3/3(水) 13:44 -

引用なし
パスワード
   >開かれたもののみ
を、どう受け取ったら良いのかわかりませんけど、エラートラップじゃダメだったんでしょうか?

他だとこんなかなぁ。

Sub kjkjlkjij()
  Dim dit() As String, OPWb As Workbook
  For Each OPWb In Workbooks
    i = i + 1
    ReDim Preserve dit(1 To i)
    dit(i) = OPWb.Name
  Next
  If Application.Match("ttety.xls", dit, 0) Then
    MsgBox "開いてる。"
  Else
    MsgBox "開いてない"
  End If
  Erase dit
End Sub

良くわかんないけど、これも。
読み取り専用にされているとダメです。

Sub kok()
  With Workbooks.Open(フルパス)
   If .ReadOnly Then
     .Close False
     MsgBox "開かれている。"
   Else
     MsgBox "開かれてない。"
   End If
  End With
End Sub

1 hits

【11172】ファイルの状態によって制御を分けたいのですが... はるか 04/3/2(火) 10:48 質問
【11175】Re:ファイルの状態によって制御を分けたい... IROC 04/3/2(火) 11:29 回答
【11177】Re:ファイルの状態によって制御を分けたい... Jaka 04/3/2(火) 11:43 回答
【11190】Re:ファイルの状態によって制御を分けたい... はるか 04/3/2(火) 13:38 お礼
【11220】パッチの\を忘れていました。 Jaka 04/3/3(水) 9:08 発言
【11224】Re:パッチの\を忘れていました。 はるか 04/3/3(水) 11:56 質問
【11230】Re:パッチの\を忘れていました。 Jaka 04/3/3(水) 13:44 回答
【11235】ごめんなさい。 Jaka 04/3/3(水) 14:40 回答
【11240】Re:ごめんなさい。 はるか 04/3/3(水) 17:10 お礼

70014 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free