Excel VBA質問箱 IV

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

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


54468 / 76732 ←次へ | 前へ→

【27055】Re:テキストファイル(;区切り)の読み込...
回答  小僧  - 05/7/27(水) 12:01 -

引用なし
パスワード
   ▼aki さん:
こんにちは。

「FileSystemObject」を使用した例です。

Sub セミコロン区切り取込()
Dim FSO As Object
Dim rFile As Object
Dim rName As String
Dim rLine As String
Dim rTxt As Variant
Dim Kiten As Range   '基点にしたいセル
Dim y As Long
Dim x As Long

  rName = "C:\test2.txt"
  Set Kiten = ActiveSheet.Range("C5")
  
  Set FSO = CreateObject("Scripting.FileSystemObject")
  Set rFile = FSO.OpenTextFile(rName)
    
    y = 0
    Do Until rFile.AtEndofStream
      rLine = rFile.ReadLine
      rTxt = Split(rLine, ";")
        For x = 0 To UBound(rTxt)
          Kiten.Offset(y, x).Value = rTxt(x)
        Next
      y = y + 1
    Loop
  rFile.Close: Set rFile = Nothing
  Set FSO = Nothing
  Set Kiten = Nothing
End Sub

外していたらすみません。
0 hits

【27054】テキストファイル(;区切り)の読み込みについて aki 05/7/27(水) 11:32 質問
【27055】Re:テキストファイル(;区切り)の読み込... 小僧 05/7/27(水) 12:01 回答
【27176】Re:テキストファイル(;区切り)の読み込み... Jaka 05/8/1(月) 10:01 発言

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