例によってoutlookVBAです。 受信したメールをフォルダを作成して一緒にその中に保存するVBAです。 エクセルファイルも一緒に保存します。そのエクセルファイルの印刷ヘッダーフッターを少し編集もしています。 Sub fold() dim file_count as string file_co…

Sub Array_Loop()Dim Col As Long, Cnt As LongDim Array_Youso As Variant ' 配列に値を格納Array_Youso = Array("AAA", "BBB", "CCC", "DDD", "EEE") ' 配列の範囲Debug.Print "配列の範囲:"; LBound(Array_Youso) & "～" & UBound(Array_Youso) ' 結果For…