|
こんにちは。
csvファイルを、開いているEXCELシートに読み込んでいます。そして1、19、20、21列をのこしています。いま、CSVの1行目にはタイトルにあたるものが入っています。のこした19列1行目のタイトルのみ、「書名」という文字に変更したいのですがどう書けばよいでしょうか?
また、1列にたとえば100028000000と入っているのですが1.00E+11となってしまいます。これを100028000000と表示さすにはどうすればいいでしょうか?
また、読み込み先のシートtestを新たなEXCEL bookにコピーし、20列にたとえば06/05/2006 10:12:12とあったら0605というシート名でかつ0605.xlsという名で元のCSVがあった場所に保存し、その際に20列を削除したいのです。
そのような場合どういうロジックを追加すればよろしいでしょうか?
どなたかご教示ください。
Option Base 1
Sub ReadtTxt()
Dim myTxtFile As String
Dim myBuf(21) As String
Dim i As Integer
Dim j As Integer
Application.ScreenUpdating = False
myTxtFile = ActiveWorkbook.Path & "\mail.csv"
Worksheets("test").Activate
Open myTxtFile For Input As #1
Do Until EOF(1)
Input #1, myBuf(1), myBuf(2), myBuf(3), myBuf(4), myBuf(5), myBuf(6), myBuf(7), myBuf(8), myBuf(9), myBuf(10), myBuf(11), myBuf(12), myBuf(13), myBuf(14), myBuf(15), myBuf(16), myBuf(17), myBuf(18), myBuf(19), myBuf(20), myBuf(21)
i = i + 1
For j = 1 To 21
Cells(i, j) = myBuf(j)
Next j
Loop
Close #1
Columns("B:R").Select
Selection.Delete Shift:=xlToLeft
Columns("B:B").Select
With Selection
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = True
.ReadingOrder = xlContext
.MergeCells = False
End With
End Sub
|
|