気になる事、役に立った事の備忘録
Sub 文字コード指定ファイル読込み() ' ADODBオブジェクトの生成 Dim txt As Object Set txt = CreateObject("ADODB.Stream") Dim filePath As String filePath = "対象ファイルパス" With txt .Open .Type = 2 ' adTypeBinary = 1, adTypeText = 2 .Charset = "UTF-8" ' 文字コード .LoadFromFile (filePath) ' 読込み対象ファイルを指定 End With ' 読込む行用の配列(可変) Dim tmp() As String ReDim Preserve tmp(0) ' ファイルの最後まで1行ずつ読込み Do While Not txt.EOS tmp(UBound(tmp)) = txt.ReadText(-2) ' adReadLine = -2 ReDim Preserve tmp(UBound(tmp) + 1) Loop ' 後片付け txt.Close Set txt = Nothing ' 取得した行をループ(ここから先はフリー) For i = 0 To UBound(tmp) Debug.Print tmp(i) Next End Sub
ログインすると自身のブログで本ブログを紹介できます
このブログの更新情報が届きます
この広告は前回の更新から一定期間経過したブログに表示されています。更新すると自動で解除されます。
コメント 0