zoukankan      html  css  js  c++  java
  • 【Excel】读取CSV文本

    Option Explicit
    
    ' CSV形式テキストファイル(5カラム)読み込みサンプル
    Sub READ_TextFile()
        Const cnsTITLE = "テキストファイル読み込み処理"
        Const cnsFILTER = "CSV形式ファイル (*.csv),*.csv,全てのファイル(*.*),*.*"
        Dim xlAPP As Application        ' Applicationオブジェクト
        Dim intFF As Integer            ' FreeFile値
        Dim strFileName As String       ' OPENするファイル名(フルパス)
        Dim vntFileName As Variant      ' ファイル名受取り用
        Dim X(1 To 5) As Variant        ' 読み込んだレコード内容        ' ①
        Dim GYO As Long                 ' 収容するセルの行
        Dim lngREC As Long              ' レコード件数カウンタ
    
        ' Applicationオブジェクト取得
        Set xlAPP = Application
        ' 「ファイルを開く」のフォームでファイル名の指定を受ける
        xlAPP.StatusBar = "読み込むファイル名を指定して下さい。"
        vntFileName = xlAPP.GetOpenFilename(FileFilter:=cnsFILTER, _
                                            Title:=cnsTITLE)
        ' キャンセルされた場合はFalseが返るので以降の処理は行なわない
        If VarType(vntFileName) = vbBoolean Then Exit Sub
        strFileName = vntFileName
    
        ' FreeFile値の取得(以降この値で入出力する)
        intFF = FreeFile
        ' 指定ファイルをOPEN(入力モード)
        Open strFileName For Input As #intFF
        GYO = 1
        ' ファイルのEOF(End of File)まで繰り返す
        Do Until EOF(intFF)
            ' レコード件数カウンタの加算
            lngREC = lngREC + 1
            xlAPP.StatusBar = "読み込み中です....(" & lngREC & "レコード目)"
            ' レコードを読み込む(このサンプルは5項目のCSV)
            Input #intFF, X(1), X(2), X(3), X(4), X(5)                  '
            ' 行を加算しA~E列にレコード内容を表示(先頭は2行目)
            GYO = GYO + 1
            Range(Cells(GYO, 1), Cells(GYO, 5)).Value = X   ' 配列渡し  ' ③
        Loop
        ' 指定ファイルをCLOSE
        Close #intFF
        xlAPP.StatusBar = False
        ' 終了の表示
        MsgBox "ファイル読み込みが完了しました。" & vbCr & _
            "レコード件数=" & lngREC & "", vbInformation, cnsTITLE
    End Sub
  • 相关阅读:
    C#遍历List并删除某个或者几个元素的方法
    7月清北学堂培训 Day 4
    7月清北学堂培训 Day 3
    7月清北学堂培训 Day 2
    7月清北学堂培训 Day 1
    P1383 高级打字机
    P2401 不等数列
    P1412 经营与开发
    P1314 聪明的质监员
    2019.7.9 校内测试 T3 15数码问题
  • 原文地址:https://www.cnblogs.com/sekihin/p/10571035.html
Copyright © 2011-2022 走看看