Excelにファイルの中身を貼り付けて、[データ]-[区切り位置]-[カンマやタブ~]-[スペース]-[完了]、ではダメなんですか?
追記
乗りかかった船なので作ってみました。
拡張子vbsで保存してから実行してください。
最後にBook1.xlsxを保存しますか?と聞かれるので「はい」で適当なファイル名を指定してください。
ヘッダーの罫線や、列幅などは何もしてませんので、勝手にカスタマイズしてください。
VBS
1Option Explicit
2On Error Resume Next
3
4Dim oFSO
5Dim objr
6Dim str
7Dim oXlsApp
8Dim oSheet
9Dim row
10Dim str2
11Dim i
12Dim fname
13
14do
15 Set oXlsApp = CreateObject("Excel.Application")
16 If oXlsApp Is Nothing Then
17 WScript.Echo "Excel起動エラー: " & Err.Description
18 exit do
19 End If
20
21 fname = oXlsApp.GetOpenFilename(",*.*")
22 If fname = False Then
23 exit do
24 End If
25
26 Set oFSO = WScript.CreateObject("Scripting.FileSystemObject")
27 If Err.Number <> 0 Then
28 WScript.Echo "エラー: " & Err.Description
29 exit do
30 End If
31
32 Set objr = oFSO.OpenTextFile(fname)
33 If Err.Number <> 0 Then
34 WScript.Echo "ファイルオープンエラー: " & fname & " " & Err.Description
35 exit do
36 End If
37
38 'oXlsApp.Application.Visible = true
39 oXlsApp.Application.Workbooks.Add()
40 Set oSheet = oXlsApp.Worksheets(1)
41 oSheet.Cells(2, 2).value = "文字列1"
42 oSheet.Cells(2, 3).value = "文字列2"
43 oSheet.Cells(2, 4).value = "開始日付"
44 oSheet.Cells(2, 5).value = "開始時刻"
45 oSheet.Cells(2, 6).value = "終了日付"
46 oSheet.Cells(2, 7).value = "終了時刻"
47
48 row = 3
49 Do While objr.AtEndOfStream <> True
50 str = objr.ReadLine
51 str2 = split(str, " ")
52 For i = 0 To UBound(str2)
53 oSheet.Cells(row, i + 2).value = str2(i)
54 Next
55 row = row + 1
56 Loop
57 oXlsApp.Quit
58 objr.Close
59 exit do
60loop
61
62Set oXlsApp = Nothing
63Set objr = Nothing
64Set oFSO = Nothing
65
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。
2016/08/05 03:57
2016/08/05 04:47
2016/08/05 05:23 編集