メールのtxtデータをexcelに表形式で取り込む方法

質問

• メールのtxtデータをexcelに表形式で取り込むための方法を教えてください。
• ThunderbirdとImportExportToolsを使用して、メールをtxtデータに変換し、excelに取り込む方法を教えてください。
• 手作業で勤務データを移すのに時間がかかってしまうため、効率的な方法を教えてください。

回答No.1

misatoanna

テキストファイルは、１行目から「データ行５、空白行１」で連続している前提です。
また、取り込み先Excelの１行目(タイトル)は手入力していただくとしまして――

次のマクロを試してみてください。
※５行目の " " 内は、テキストファイルの実際のフルパスに書き換えます。

Sub Test()
　Dim FName As String, FF As Variant, Bun As String
　Dim gyo As Long, rw As Long
　Application.ScreenUpdating = False
　FName = "C:\aaaa\bbbb\nnnn.txt"　　'※
　gyo = 1　　'TEXTファイルの行
　FF = FreeFile
　rw = 2　　　'Excelの行カウンタ
　Open FName For Input As #FF
　Do Until EOF(FF)
　　Line Input #FF, Bun
　　Select Case gyo Mod (6)
　　　Case Is = 1
　　　　Cells(rw, 1).Value = Replace(Bun, "Subject:", "")
　　　Case Is = 2
　　　　Cells(rw, 2).Value = Replace(Bun, "From:", "")
　　　Case Is = 3
　　　　Cells(rw, 3).Value = Replace(Bun, "Date:", "")
　　　Case Is = 4
　　　　Cells(rw, 4).Value = Replace(Bun, "To:", "")
　　　Case Is = 5
　　　　Cells(rw, 5).Value = Bun
　　　Case Is = 0
　　　　rw = rw + 1
　　End Select
　　gyo = gyo + 1
　Loop
　Close #FF
　Application.ScreenUpdating = True
End Sub

お礼

ご回答ありがとうございます。

txtファイル内が定型ならうまくいくのですが、
勤務の報告を2行にわたって書いてくる人もいたりするので、
そうするとずれてしまいますね。

ちょっといじればできそうな気もしますが、
マクロ初心者の私には少し難しそうでした。
でも回答頂きありがとうございました。