Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


76395 / 76732 ←次へ | 前へ→

【4759】Re:区切り文字は増やせませんか
回答  Kein  - 03/4/4(金) 16:28 -

引用なし
パスワード
   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

というようにやってみて下さい。
2 hits

【4743】区切り文字は増やせませんか 花粉症 03/4/4(金) 9:57 質問
【4759】Re:区切り文字は増やせませんか Kein 03/4/4(金) 16:28 回答
【4760】Re:区切り文字は増やせませんか Kein 03/4/4(金) 16:30 回答

76395 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free