存在しないフォルダでも作成する
SHCreateDirectoryExというAPIを使用して存在しないフォルダでも1回の処理で作成する。
配列を1行ずつテキストファイルへ出力する
配列をテキストファイルへ1行ずつ出力するサブプロシージャ
使用例
Sub Main() Dim tmp(2) As String tmp(0) = "one" tmp(1) = "two" tmp(2) = "three" Call OutputText(tmp) End Sub
ログファイルを出力する
ログファイルを出力するサブプロシージャ
処理日時+引数の"category"で処理種別+"msg"で処理内容を出力する。
使用例
Sub Main() Dim folderPath As String folderPath = ThisWorkbook.Path Dim i As Long For i = 1 To 5 Call M_Logging.WriteLog(folderPath, "テストログ出力", "処理" & i & "回目") Next End Sub
シート名を配列に格納する
シート名を配列に格納する関数
使用例
Sub main() Dim WB as Workbook Set WB = ActiveWorkBook Dim mySheetName As Variant mySheetName = CheckSheetName(WB) End Sub
新しいブックを作成する
ブックを作成するにはAddメソッドを使用する。
WorkBooks.Add
使用例
Sub Main() Dim WB As WorkBook Set WB = WorkBooks.Add WB.SaveAs "C:\bin\新しいブック.xlsx" End Sub