| |
OpenTextメソッドの引数OtherCharは、ヘルプによると・・
"複数の文字を指定したときは、先頭の文字が区切り文字となり、残りの文字は無視
されます。"
となっているので、手作業でもマクロでも無理でしょう。そこで Openステートメント
で変数に1行読みこみ、一定の区切り文字に置換してからSplit関数で分割し、セル
に入力していく・・というやり方が考えられます。即ち
Dim i As Long, j As Integer, Fnum As Integer
Dim StAry As Variant, DelAry As Variant
Dim Buf As String
Const MyF As String = "C:My Documents\Test.txt"
DelAry = Array(" ", "/", ",", "-", Chr(9))
Fnum = FreeFile(): i = 1
Open MyF For Input #Fnum
Do Until EOF(Fnum)
Line Input #Fnum, Buf
For j = LBound(DelAry) To UBound(DelAry)
Buf = WorksheetFunction.Substitute(Buf, DelAry(j), ",")
Next j
StAry = Split(Buf, ",")
Cells(i, 1).Resize(, UBound(StAry) + 1).Value = StAry
Erase StAry: i = i + 1
Loop
Close #Fnum: Erase DelAry
というようにやってみて下さい。
|
|
