Excel VBA質問箱 IV

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

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


71161 / 76732 ←次へ | 前へ→

【10067】Re:テキストファイルの読み込み(追加説明)
回答  Kein  - 04/1/5(月) 22:37 -

引用なし
パスワード
   そのファイルは、一行で一つのデータしかないわけですね ?
そうすると例えば・・

Sub Test_MyTextOP()
  Dim MyF As String
  Dim FSO As Object, MyTxt As Object
  Dim i As Integer, y As Integer, x As Long
   
  ChDir "C:\Temp" '←テキストを保存しているフォルダーのパスに変更
  With Application
   MyF = .GetOpenFilename("テキストファイル (*.csv; *.txt), *.csv; *.txt")
   If MyF = "False" Then Exit Sub
   .ScreenUpdating = False
  End With
  Set FSO = CreateObject("Scripting.FileSystemObject")
  x = 2: y = 1
  Set MyTxt = FSO.OpenTextFile(MyF, 1)
  For i = 1 To 5
   MyTxt.SkipLine
  Next i
  Do Until MyTxt.AtEndOfStream
   Cells(x, y).Value = MyTxt.ReadLine
   x = x + 1
   If x = 3003 Then
     x = 2: y = y + 1
   End If
  Loop
  MyTxt.Close
  Set MyTxt = Nothing: Set FSO = Nothing
  With Application
   ChDir .DefaultFilePath
   .ScreenUpdating = True
  End With
End Sub

2 hits

【10048】テキストファイルの読み込み yukko 04/1/5(月) 12:40 質問
【10050】Re:テキストファイルの読み込み Jaka 04/1/5(月) 13:49 発言
【10053】Re:テキストファイルの読み込み yukko 04/1/5(月) 15:37 お礼
【10054】Re:テキストファイルの読み込み Jaka 04/1/5(月) 16:14 回答
【10055】Re:テキストファイルの読み込み yukko 04/1/5(月) 16:17 回答
【10057】Re:テキストファイルの読み込み Jaka 04/1/5(月) 16:48 質問
【10058】Re:テキストファイルの読み込み yukko 04/1/5(月) 17:08 回答
【10060】Re:テキストファイルの読み込み(追加説明) yukko 04/1/5(月) 18:11 回答
【10067】Re:テキストファイルの読み込み(追加説明) Kein 04/1/5(月) 22:37 回答
【10068】Re:テキストファイルの読み込み(追加説明) yukko 04/1/5(月) 23:02 お礼
【10069】Re:テキストファイルの読み込み(追加説明) yukko 04/1/5(月) 23:07 お礼
【10070】Re:テキストファイルの読み込み yukko 04/1/5(月) 23:12 お礼
【10072】書いてきちゃったんで一応載っけときます。 Jaka 04/1/6(火) 9:08 回答
【10074】Re:書いてきちゃったんで一応載っけときま... yukko 04/1/6(火) 10:27 お礼

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