Excel VBA質問箱 IV

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

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


7435 / 76732 ←次へ | 前へ→

【74884】Re:フォルダー内のbook全て開く
質問  Jママ  - 13/10/21(月) 14:58 -

引用なし
パスワード
   すみません、急いでいましたので、
下記を利用させて頂きました。

Public Function fncXlsOpen(strBookName As String) As Boolean  
Dim objWB As Workbook

fncXlsOpen = False

For Each objWB In Workbooks
  If objWB.Name = strBookName Then
    fncXlsOpen = True
  End If
Next objWB

End Function


2013でのエラーは ファイルを開くときによく起きるようです。
何かご教授いただけると助かります。

Workbooks.Open FileName:=ThisWorkbook.Path & "\" & strFileName
Workbooks.Open ThisWorkbook.Path & "\" & strFileName

この2つは同じ事だと解釈してますが、違うのでしょうか?
581 hits

【74883】フォルダー内のbook全て開く Jママ 13/10/21(月) 13:31 質問
【74884】Re:フォルダー内のbook全て開く Jママ 13/10/21(月) 14:58 質問
【74885】Re:フォルダー内のbook全て開く Yuki 13/10/21(月) 16:03 発言
【74886】Re:フォルダー内のbook全て開く Jママ 13/10/21(月) 16:38 回答
【74888】Re:フォルダー内のbook全て開く Yuki 13/10/21(月) 18:27 発言
【74889】Re:フォルダー内のbook全て開く Jママ 13/10/21(月) 20:35 お礼
【74910】Re:フォルダー内のbook全て開く Jママ 13/10/23(水) 11:20 お礼

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