文字操作 テキストファイル読込レコード数5

VB&VBA
FROG ふろっぐ
 
  • オプション

    本文印刷

    お気に入りに追加

  • 検索

    Googlewwwjp-ia
     

    Googlewwwjp-ia
     
  • 情報

  • 関連

[VB&VBA][文字操作 テキストファイル読込レコード数5]
Option Explicit


Sub TxtOpen()
'Tool_Name
'テキストファイル読込(y=レコード数5)
Dim strTarget As String
Dim x As Integer
'y=Dim y As Integer
Dim sht As Worksheet
Dim txtTar As String
Dim MyPath As String

Set sht = Workbooks("Test.xls").Worksheets("Sheet1") '**SET**
txtTar = "tst.txt" '**SET**
MyPath = "C:\WINDOWS\デスクトップ" '**SET**

Application.ScreenUpdating = False

sht.Columns("a:a").Clear 'y=sht.Columns("a:a").Clear

sht.Activate

Open MyPath & "\" & txtTar For Input As #1 'ターゲットテキストオープン
Do Until EOF(1)
Input #1, strTarget
'y=Input #1, strTarget(1),strTarget(2),strTarget(3),strTarget(4),strTarget(5)
'y=For y = 1 to 5
x = x + 1
Cells(x, 1) = strTarget 'y=(y)
'y=Next y
Loop

Close #1

Set sht = Nothing
End Sub






Production Japan Import Application. Since 1998