zoukankan      html  css  js  c++  java
  • VBA读取可选择文件夹下可选择txt文件内容

    Sub OneTxt() '打开一个txt文件
    Dim Filename As Variant, extLine&, mArr() As String
    Dim i%, j%
    ChDir ThisWorkbook.Path
    Filename = Application.GetOpenFilename("Text Files (*.txt), *.txt", , "请选取档案", , MultiSelect:=True)
    j = 1
    For k = 1 To UBound(Filename)

    If Filename(k) = False Then Exit Sub '最后一个选项MultiSelect等于false表示只能选择一个文件,如下面的等于true可以选择多个文件
    '选择多个文件的时候是一个数组,需要循环打开,一个的时候就是字符串

    With Worksheets("sheet1")
    '.Cells.ClearContents '删除第一个表的内容
    Open Filename(k) For Input As #1 ' 以只读的方式打开文件,参考open方法的帮助
    Do While Not EOF(1) ' 循环至文件尾。
    Line Input #1, TextLine ' 读入一行数据并将其赋予某变量
    mArr = Split(TextLine, ",") '按空格分开这个字符,循环赋值给单元格
    For i = 0 To UBound(mArr)
    .Cells(j, i + 2) = mArr(i) '此处参考split函数的帮助
    Next i
    .Cells(j, 1) = Dir(Filename(k)) '等于文件名
    j = j + 1
    Loop

    Close #1 ' 关闭文件。

    End With
    Next k
    End Sub

  • 相关阅读:
    9.jQuery工具方法
    8.jQuery遍历索引的方法
    7.jQuery中位置坐标图形相关方法
    CentOS安装log.io
    centos7搭建frps内网穿透服务
    docker showdoc安装
    【测试基础】等价类、边界值的概念及划分
    3-14 Pandas绘图
    3-13 索引进阶
    3-12 字符串操作
  • 原文地址:https://www.cnblogs.com/flyrain/p/VBA_TXT2.html
Copyright © 2011-2022 走看看