2019.08.13この記事は約4分で読めます。マサヤです!今日は先日のツール開発時に使ったVBAコードを紹介します。ツールを作っていると、ファイルの存在確認後に削除したり、追加したりすることありますよね。このようなコードは頻繁に使うものではないですが必要となったときに、効率的に再現したいわけです。いうことで、コピペで使えるように汎用的にしてみました。前置きはこの辺にしてサッサとコードを紹介します!この記事は「細かい説明などは解っているから不要だ!」というアナタへ向けた記事となります。↓ファイルの存在確認するコードファイルが存在する場合は削除するコードファイルが存在しない場合は追加するコードまとめスポンサーリンクファイルの存在確認するコードまずは、ファイルの存在確認するコードです。'←存在確認したいファイルを指定する。'ファイルが存在していた場合の処理を入れる。'ファイルが存在していない場合の処理を入れる。Subファイル確認はDir関数でも実現できますが、会社のネットワークなどは長くなりがちなので、私はFileSystemObjectを使ってます。'←存在確認したいファイルを指定する。CreateObject("Scripting.FileSystemObject")'ファイルが存在していた場合、削除。Subファイル削除はKillを使ってます。Killはファイルが開かれている場合などはエラーになるので注意しましょう。スポンサーリンクファイルが存在しない場合は追加するコードファイルがない場合は指定ファイルを追加します。会社のネットワークフォルダにファイルが存在するかを確認。無い場合、指定ファイルをコピーする時に使ったりします。'←存在確認したいファイルを指定する。'←追加したいファイルを指定する。CreateObject("Scripting.FileSystemObject")'ファイルが存在していない場合はコピー。Subまとめファイル存在確認後、削除や追加するコードを紹介しました!そのまま使う・関数化する・カスタマイズするなどはアナタのお好みです!使用したFileSystemObjectはファイル関連処理が色々できるので便利ですよね。フォルダ内のファイル名を一覧化するといったようなこともできます。1行で全シート名の一覧を作成!おまけ付き。コメントをキャンセルメールアドレスが公開されることはありません。時短!コピペで使える複数行を高速に削除するコード2018.09.092018.11.20プロフィールどうも、マサヤ@プログラム勉強中です!メイン記事はプログラムですが、楽しく生きていくための学びや料理など、色々好きなこと書いてます。場所・時間に縛られず、好きに生たい。それを実現するためエンジニアを目指すブログです。私に変えねばならないものを変える勇気を、どうしようもないものを受け入れる静穏を、そして、それらを見分ける洞察力を与えて下さい。時短!コピペで使える複数行を高速に削除するコード2018.09.092018.11.20プロフィールどうも、マサヤ@プログラム勉強中です!メイン記事はプログラムですが、楽しく生きていくための学びや料理など、色々好きなこと書いてます。場所・時間に縛られず、好きに生たい。それを実現するためエンジニアを目指すブログです。私に変えねばならないものを変える勇気を、どうしようもないものを受け入れる静穏を、そして、それらを見分ける洞察力を与えて下さい。