ファイルを開く処理の前に、対象ファイルが開かれているかチェックして、開かれていたらエラーを表示する処理を以下のように記述したのですが、対象ファイルが開かれていないのにエラーになってしまいます。
エラーコードは『75』と表示されるのですが、ヘルプを見たり調べてみましたが、なぜエラーとなるのかが分かりません。
どなたか教えて下さい。宜しくお願いします。
*************************************************************
Public Path As String
Public Fmei1 As String
Public Full1 As String
Public Error As String
Private Sub CommandButton1_Click()
Path = "\\ディレクトリ1-1\ディレクトリ1-2\ディレクトリ1-3"
Fmei1 = "ファイル.xls"
Full1 = Path & "\" & Fmei1
Fopn
End Sub
Sub Fopn()
On Error Resume Next
Name Full1 As Full1
If Err.Number Then(←ここでエラーコード『75』となってしまいます)
Error = MsgBox("『ファイル.xls』を閉じて下さい。", _
vbCritical, "処理中断")
Err.Clear
End
Else
Workbooks.Open Filename:=Path & "\" & Fmei1
End If
End Sub
No.1ベストアンサー
- 回答日時:
そのパス名だとネットワーク先のファイルになるかと思いますが、私の環境ではファイルへの権限が与えていない状態だと同じエラーがでましたよ。
権限を与えたら通りました。エラー番号の内容についてはヘルプの「トラップできるエラー」で番号を調べておいて方がよいかと思います。エラーが出るのは何もファイルが開かれているからとは決められませんので。例えばファイルが存在しない場合のエラー(ナンバー53)もありうるかと思います。
あとちなみに
× If Err.Number Then
○ If Err.Number <> 0 Then
こうですよね?
早々にアドバイス下さり、ありがとうございます!
ご指摘下さった権限について確認している際に、ネットワーク上でファイルの残プロセスが残っていることが判明し、プロセスを切ることで処理が正常に動作するようになりました。
ありがとうございました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) エクセルVBA(実行時エラー438)の対処法を教えてもらえないでしょうか 3 2023/04/22 13:43
- Visual Basic(VBA) vbaのエラー対応(実行時エラー7:メモリが不足しています) 4 2023/04/24 00:20
- Visual Basic(VBA) Excel-VBAでのファイルの開き方 4 2023/02/14 11:01
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/07/06 17:46
- Visual Basic(VBA) vbaの構文の修正相談(xmlファイルを順に開いてコピペ作業) 1 2023/04/22 01:18
- Excel(エクセル) Excel VBAどこが間違ってますか? 4 2023/07/17 10:04
- Excel(エクセル) エクセル VBA For Next 繰り返しの書き方を教えてください 6 2022/09/01 14:11
- Excel(エクセル) 2つのVBAを一緒にしたら機能しなくなりました(エクセル) 7 2022/06/02 12:41
- Visual Basic(VBA) VBAのユーザーフォームのテキストボックスに入力制限をしたい 6 2022/11/15 08:28
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 1 2023/08/09 10:33
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Lubuntuでフォントをインストー...
-
VB2005 で encoding="Shift_JIS...
-
メールの添付ファイルが「DD...
-
Refreshで落ちる
-
Tiny FTP Daemonの設定について
-
VBAでFTPファイル転送がうまく...
-
Excel VBA シートを指定して...
-
【Excel VBA】PDFを作成して,...
-
オンラインスキャンをしようと...
-
バッチファイルが作成できない
-
Excelでdatファイルを作成??
-
FileUploadで複数ファイルのア...
-
フローチャートをhtmlで表示したい
-
Atokのユーザー辞書に、複数の...
-
Excel2003でマクロを使用してtx...
-
ヤフーメールの問い合わせ。
-
「dllファイルをコンポ-ネット...
-
ファイルダウンロードの開くで...
-
フォルダ階層が深いファイルの...
-
マルチモニタ環境でネットから...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
VBAでファイルパスが長すぎてコ...
-
Microsoft Access エラー 3051
-
Lubuntuでフォントをインストー...
-
【Excel VBA】PDFを作成して,...
-
Refreshで落ちる
-
ExcelVBAで、隠しフォルダにあ...
-
Excel VBA シートを指定して...
-
FFFTPでサーバに新規フォルダが...
-
VBAでFTPファイル転送がうまく...
-
フォルダ参照ではなくファイル...
-
エクセルVBA フォームを開く時...
-
グーグルドライブからコピーし...
-
OCXのライセンス
-
ファイルが別のPCで開けない
-
ASP上でFileSystemObjectのDele...
-
ASP.NETで、別サーバーへファイ...
-
VBSで指定したフォルダにファイ...
-
BASP21のアップロードについて
-
【python】pandasでExcel(...
-
vba エクセルダウンロードファ...
おすすめ情報