文字操作 テキストファイル読込レコード数５
※より実装に近く表示させる為、コードの改行を避けています。スマホ等で閲覧される際は向きを変えてご覧ください。
※実装するバージョンによってはバージョンアップの仕様により動作しないコードもあります。実装には動作確認の上ご使用下さい。
Sub TxtOpen() 'Tool_Name 'テキストファイル読込(y=レコード数５) 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 |