以下のお好きなサンプルコードを提供します。
VBAの実装の参考にどうぞ。
1.シートの存在チェック
2.ファイルの存在チェック
3.フォルダの存在チェック
4.文字列のキーワード存在チェック
5.ファイルのコピー
6.フォルダのコピー
7.ユーザ名取得
8.日時の取得
9.ファイル名取得
10.セルのコメント取得
11.シートの最後の列を取得
12.シートの最後の行を取得
13.フォルダ中のファイル情報(ファイル名/サイズ/作成日時/最終更新日時)の取得
14.ファイルの作成者取得
15.ファイルパスからファイル名を取得
16.ファイル選択ダイアログと選択されたファイル名取得
17.フォルダ選択ダイアログと選択されたフォルダパス取得
18.ファイル作成
19.ファイル読込
20.ファイル書込
21.フォルダの作成
22.CSV形式の文字列から配列への変換
23.CSV形式の文字列の作成
24.シートへのメッセージ(ログ)出力
25.外部リンクの削除
26.VBA実行速度向上設定
27.Excelの保存と終了
28.ファイル/フォルダの圧縮ファイル(Zip)作成
29.InternetExplorerの起動/ウェブページの表示
30.InternetExplorerの操作
31.OutLookメールの作成/送信
32.シート/ブックのパスワード解析(全組合せ試行)
以下のようなテキストでの提供になります。
ファイルの存在チェックのサブモジュールの例:
'ファイル存在チェック
'入力:ファイルの場所
' :ファイル名
' :ファイルの拡張子(指定なしでもOK)
'出力:ファイルが存在する場合 = True
' ファイルが存在しない場合 = False
Function FileExist( _
ByVal FilePath As String, _
ByVal FileName As String, _
Optional ByVal FileType As String = "NotGiven") As Boolean
(略)