[VBA]ファイルを開く処理 エラー回避

VBA(Excel)
この記事は約2分で読めます。

今回は、VBAにてExcel,CSV,Textファイルを開く際にエラーが出る事象を回避するプログラムを組みました。

不備や漏れがある可能性があるため、コメント頂けると幸いです。

 

■関数

・ユーザー定義 Open_ExcelCSVTextFile(OpenFilePathName)

OpenFilePathName ファイル名を指定します。

戻り値 True/False(ファイルを開く、またはすでに開いてるときにTrueを返します。)

 

■機能

ファイル名を指定しない場合は処理を中止。

対象のファイル名が存在しない場合は処理を中止。

拡張子にて、.xls?,csv,txt以外を指定している場合は処理を中止。

すでに開いているファイルを指定した場合は以下の処理を実施。

・メッセージにて選択(Yes,No,Cancel)を要求。

・Yesを選択する場合は、開いているファイルを上書保存後、フラグを真に変更し処理を終了。

・Noを選択する場合は、開いているファイルには何もせず、フラグを真に変更し処理を終了。

・Cancelを選択する場合は、なにもせずに処理を終了。

開いているファイルとは別に、別フォルダでファイル名が一致している場合は以下の処理を実施。

・Yesを選択する場合は、名前の変更を行う。(最終的にファイルを開くとフラグが真になる)

・Noを選択する場合は、なにもせずに処理を終了。

 

---コメント---

タイトルとURLをコピーしました