VBA读取固定文件夹中txt内容

Sub OneTxt() ‘打开一个txt文件
Dim Filename As Variant, extLine&, mArr() As String
Dim i%, j%, txtpath As String
Dim txtname As Variant

ChDir ThisWorkbook.Path

txtpath = "D:\Users\addy.zhao\Desktop\computers\"

‘Filename = Application.GetOpenFilename("Text Files (*.txt), *.txt", , "请选取档案", , MultiSelect:=True)

Filename = FileList(txtpath)
j = 1

For k = 0 To UBound(Filename)

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

With Worksheets("sheet1")
‘.Cells.ClearContents ‘删除第一个表的内容
Open txtname 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) = Filename(k) ‘等于文件名
j = j + 1
Loop

Close #1 ‘ 关闭文件。

End With
Next k
End Sub

Function FileList(fldr As String, Optional fltr As String = "*.*") As Variant
Dim sTemp As String, sHldr As String
If Right$(fldr, 1) <> "" Then fldr = fldr & ""
sTemp = Dir(fldr & fltr)
If sTemp = "" Then
FileList = Split("No files found", "|") ‘确保返回数组
Exit Function
End If
Do
sHldr = Dir
If sHldr = "" Then Exit Do
sTemp = sTemp & "|" & sHldr
Loop
FileList = Split(sTemp, "|")
End Function

VBA读取固定文件夹中txt内容

时间: 2024-11-06 07:14:52

VBA读取固定文件夹中txt内容的相关文章

Android读取Assets文件夹中的内容

Android读取Assets文件夹中的内容 assets文件夹是android程序中存放相关外部文件的一个目录,Android官方提供了相应的方法去访问该文件夹中的内容,故此我们并不需要进行相关的路径判断等代码操作,直接调用相关方法打开文件并得到一个字节输入流(InputStream):然后通过相应的字符编码方式读取字节解码为字符输入流(InputStreamReader):再通过BufferReader对字符输入流读取文本并将字符存入缓冲区以便能提供字符.数组和线段的高效读取:最后我们就能逐

复制文件夹中所有内容到指定位置

复制文件夹中所有内容到指定位置 /** * 复制文件夹下的所有文件到指定目录 * @param oldPath * @param newPath */ public static void copyFolder(String oldPath, String newPath) { try { // 如果文件夹不存在,则建立新文件夹 (new File(newPath)).mkdirs(); //读取整个文件夹的内容到file字符串数组,下面设置一个游标i,不停地向下移开始读这个数组 File fi

Path,Files巩固,题目:从键盘接收两个文件夹路径,把其中一个文件夹中(包含内容)拷贝到另一个文件夹中

这个题目用传统的File,InputStream可以做,但是如果用Files,Path类做,虽然思路上会困难一些,但是代码简洁了很多,以下是代码: import java.io.IOException; import java.nio.file.FileVisitResult; import java.nio.file.Files; import java.nio.file.Path; import java.nio.file.Paths; import java.nio.file.Simple

Android 读取assets文件夹中json文件

这里要介绍一下 读取assets文件夹中json文件 转换成list 集合 只接看代码 非常简单 public static List<State> getStates(Context context) { InputStream is = null; ByteArrayOutputStream bos = null; try { is = context.getAssets().open("area.json"); bos = new ByteArrayOutputStr

Web 在线文件管理器学习笔记与总结(10)查看文件夹中的内容

① 读取文件夹大小 a. 封装计算文件夹大小的函数 b.  打开文件夹 c. 循环判断文件夹下的内容是文件还是文件夹,如果是文件,则累积相加文件的大小:如果是文件夹,则递归调用该函数 注意两个问题: a. 在计算每个文件夹大小之前,应该清空变量 $size,否则文件夹大小会累加(index.php) <td><?php $size = 0; echo transByte(dirSize($p));?></td> b. 在计算文件夹大小的方法中,$size 应该设置为全局

C# 读取指定文件夹中的全部文件,并按规则生成SQL语句!

本实例的目的在于: 1 了解怎样遍历指定文件夹中的全部文件 2 控制台怎样输入和输出数据 代码: using System; using System.IO; namespace ToSql{ class ToSql{ static void Main(){ string path = System.Environment.CurrentDirectory; System.Console.WriteLine("输入要读取的文件夹名"); string name = Console.Re

C#读取指定文件夹中的所有文件

C#遍历指定文件夹中的所有文件 DirectoryInfo TheFolder=new DirectoryInfo(folderFullName);//遍历文件夹foreach(DirectoryInfo NextFolder in TheFolder.GetDirectories())   this.listBox1.Items.Add(NextFolder.Name);//遍历文件foreach(FileInfo NextFile in TheFolder.GetFiles())   thi

java IO流实现删除文件夹以及文件夹中的内容

这篇主要是对IO文件流对文件常用处理中的删除文件夹,平时我们直接删除文件夹既可以删除里面的全部内容. 但是java在实现删除时,只能是文件才会被删除. 所以这里需要定义一个方法,来递归调用方法(递归调用,就是在方法的内部调用自己),实现文件夹里面的全部文件删除 注意:做这个测试的时候,一定要备份,如果删除成功就不会回复了 结果如下:

Android读取Assert文件夹下txt文本并变为String的方法

使用场景,在assert文件夹下 有些文本文件,我们需要通过工具类读取出来,然后放到String字符串中,我们该如何操作呢: 直接上代码: public static String readAssertResource(Context context, String strAssertFileName) { AssetManager assetManager = context.getAssets(); String strResponse = ""; try { InputStrea