| |
▼マリモ さん：
>こんにちは。
>セルで全て区切られていまして
>,でその区切りを表します。
>
>町名,産業,事業所
>たこ町,7,3
>かに町,5,2
>いか町,6,4
>
>となっていたら
そのようなファイルがどこぞのフォルダにあるとして、
それをマクロで Open し、所定の構成に組み替えて出力
するサンプルです。
Sub try1()
Dim myCSV As String
myCSV = Application.GetOpenFilename("CSV,*.csv,テキスト,*.csv;*.txt")
If myCSV = "False" Then Exit Sub
Dim ss As String
Dim io%, oo%, m%, n% '%のつく変数は整数変数です
Dim i&, ID& '&のつく長整数型変数です
io = FreeFile()
Open myCSV For Input As io
oo = FreeFile()
Open Replace(myCSV, ".", "$.") For Output As oo
Line Input #io, ss
Print #oo, "ID,町名,産業"
Do Until EOF(io)
Input #io, ss, m, n
For i = 1 To n
ID = ID + 1
Print #oo, ID & "," & ss & "," & m
Next
Loop
Close io, oo
End Sub
Excelシートは使っていません。
確認したいときは、出力後のファイルを普通に開いて
ください。
|
|
kanabun
- 12/8/9(木) 20:29 -
