Excel VBA質問箱 IV

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

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


54891 / 76732 ←次へ | 前へ→

【26624】Re:テキストデータの読み込みについて
回答  Kein  - 05/7/12(火) 11:09 -

引用なし
パスワード
   Openステートメントを使うなら

Sub Test_Txt()
  Dim Buf As String
  Dim Ary As Variant
  Dim i As Long
  Const MyF As String = _
  "C:\Documents and Settings\User\My Documents\Test.txt"
  '↑テキストファイルの正確なフルパスに変更しておくこと。

  Open MyF For Input Access Read As #1
  Do Until EOF(1)
   Line Input #1, Buf
   If InStr(1, Buf, "\") > 0 Then
     Ary = Split(Buf, "\")
   ElseIf InStr(1, Buf, ",") > 0 then
     Ary = Split(Buf, ",")
   End If
   i = i + 1
   Cells(i, 1).Resize(, UBound(Ary) + 1).Value = Ary
   Erase Ary
  Loop
  Close #1
End Sub

0 hits

【26610】テキストデータの読み込みについて ピンキー 05/7/12(火) 9:27 質問
【26613】Re:テキストデータの読み込みについて Jaka 05/7/12(火) 9:59 回答
【26617】Re:テキストデータの読み込みについて ピンキー 05/7/12(火) 10:26 質問
【26621】Re:テキストデータの読み込みについて Jaka 05/7/12(火) 10:53 発言
【26648】Re:テキストデータの読み込みについて りん 05/7/12(火) 19:33 発言
【26624】Re:テキストデータの読み込みについて Kein 05/7/12(火) 11:09 回答
【26715】Re:テキストデータの読み込みについて Hirofumi 05/7/14(木) 20:11 回答
【29144】Re:テキストデータの読み込みについて ピンキー 05/9/26(月) 17:24 お礼

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