|
>すみません。文字化けはテキストファイルの文字コードをUnicode→ANSIで保存しなおすことで解決できました。
>
>1つ1つテキストファイルを開いて文字コードをANSIにして保存しなおす作業も
>大変なので、最初からANSIで読み込むことって可能でしょうか?
Unicodeテキストをそのまま読み込む、ということですね。
では、こんな感じでどうでしょうか。^d^
Sub ReadTextFile2()
Dim myPath As String
Dim Fname As String
Dim N As Integer
Dim D As String
Dim VV As Variant
Dim rngDest As Range
Dim i As Integer
Set rngDest = Workbooks.Add.Worksheets(1).Range("A1")
myPath = ThisWorkbook.Path & "\横浜\"
Fname = Dir(myPath & "*.*")
Do Until Fname = ""
N = FreeFile
Open myPath & Fname For Binary Access Read As #N
D = InputB(LOF(N), N)
Close #N
VV = Split(D, vbCrLf)
rngDest.Value = VV(0)
Set rngDest = rngDest.Offset(1)
For i = 1 To UBound(VV)
If Left$(VV(i), 1) = "D" Then
rngDest.Value = VV(i)
Set rngDest = rngDest.Offset(1)
End If
Next
Fname = Dir()
Loop
rngDest.Offset(-1).CurrentRegion.TextToColumns , xlDelimited, comma:=True, Space:=True
End Sub
|
|