［ExcelVBA］文字コードがutf-8のテキストファイルを出力する

ADOのStreamオブジェクトを使う。以下のようなワークシートを開いた状態で、以下のSubプロシージャを実行する。

Sub StreamWriteTest()
  Dim i As Long
  Dim s As String
  Dim adodbsm As Object
  Set adodbsm = CreateObject("ADODB.Stream")
  adodbsm.Charset = "utf-8"
  adodbsm.Open
  For i = 1 To 6
    s = ActiveWorkbook.ActiveSheet.Cells(i, 1).Value
    adodbsm.WriteText s, 1
  Next i
  adodbsm.SaveToFile ActiveWorkbook.Path & "\stream.txt", 2
  adodbsm.Close
  Set adodbsm = Nothing
End Sub

そのブックが置かれたフォルダーに、ファイルstream.txtが作成されて、メモ帳で開くと、中身は以下のようになっているはず。

ABC
123
あいう
辰𠮷𠀋一郎
𩸽（ホッケ）を食べる
𩹉（トビウオ）を捕まえる

［Excel VBA］カレントディレクトリを取得する

CurDir関数を使う。戻り値のデータ型は文字列。以下は、起動した直後のExcelで実行した例。なお、これを実行したパソコンはDドライブがある。

Debug.Print "カレントディレクトリ→" & CurDir()
Debug.Print "カレントディレクトリ→" & CurDir("C")
Debug.Print "カレントディレクトリ→" & CurDir("D")
→
カレントディレクトリ→C:\Users\○○\Documents
カレントディレクトリ→C:\Users\○○\Documents
カレントディレクトリ→D:\

Excelは特に指定をしないと、起動直後はC:\Users\○○\Documents（○○はアカウント名）がカレントディレクトリになる。

引数に設定していないドライブ名を指定すると、エラー「実行時エラー '68': デバイスが準備されていません。」が発生して、プログラムが停止するので注意。

［Excel VBA］FileSystemObjectを使えるようにする

1. Microsoft Visual Basic for Applicationsウィンドウのメニュー「ツール」→「参照設定」。
2. 「Microsoft Scripting Runtime」を探す。初期状態ではチェックされていないはず。
3. これにチェックをつけて、OKボタンを押す。

これで使えるようになる。

↓

［Excel VBA］フォルダー内のサブフォルダー一覧を得る

ファイルシステムオブジェクトのGetFolderメソッドを使用する。以下はC:\Windowsフォルダー内のサブフォルダーをすべて表示させる例。

Dim obj As Object
With CreateObject("Scripting.FileSystemObject")
    For Each obj In .GetFolder("C:\Windows").SubFolders
        Debug.Print obj.name
    Next obj
End With

［Excel VBA］フォルダー内のファイル一覧を得る

ファイルシステムオブジェクトのGetFolderメソッドを使用する。以下はC:\Windowsフォルダー内のファイルをすべて表示させる例。

Dim obj As Object
With CreateObject("Scripting.FileSystemObject")
    For Each obj In .GetFolder("C:\Windows").Files
        Debug.Print obj.name
    Next obj
End With

［Excel VBA］そのモジュールやクラスが含まれているファイルが置かれているパスを得る

ApplicationオブジェクトのThisWorkbookプロパティのPathプロパティには、そのモジュールやクラスが含まれているファイル（.xlsm）が置かれているパスを返す。

Debug.Print Application.ThisWorkbook.Path
→
○:\○○\○○\…

Applicationオブジェクトは省略可能。通常は省略する。省略しても、結果は同じ。

Debug.Print ThisWorkbook.Path
→
○:\○○\○○\…

［Excel VBA］変数の宣言を強制にする（宣言していない変数を使えなくする）

Excel VBAは、初期状態ではDimステートメントで宣言をしなくても変数は使うことができるが、未宣言の変数の使用は、バグの温床になりやすい。そのため、Dimステートメントで宣言をしていない変数は使えないようにするべき。

モジュールの先頭部（宣言セクション、サブルーチンや関数の前）で、Option Explicitステートメントを使用する。

Option Explicit

［Excel VBA］そのモジュールやクラスが含まれているファイルのファイル名を得る

ApplicationオブジェクトのThisWorkbookプロパティのNameプロパティは、そのモジュールやクラスが含まれているファイルのファイル名を返す。

Debug.Print Application.ThisWorkbook.Name
→
○○.xlsm

Applicationオブジェクトは省略可能。通常は省略する。省略しても、結果は同じ。

Debug.Print ThisWorkbook.Name
→
○○.xlsm

［Excel VBA］そのモジュールやクラスが含まれているファイルのファイル名を得る

ApplicationオブジェクトのThisWorkbookプロパティのNameプロパティは、そのモジュールやクラスが含まれているファイルのファイル名を返す。

Debug.Print Application.ThisWorkbook.Name
→
○○.xlsm

Applicationオブジェクトは省略可能。通常は省略する。省略しても、結果は同じ。

Debug.Print ThisWorkbook.Name
→
○○.xlsm