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

VBA读取可选择文件夹下可选择txt文件内容

时间： 2024-10-26 05:14:33

VBA读取可选择文件夹下可选择txt文件内容的相关文章

android XMl 解析神奇xstream 一： 解析android项目中 asset 文件夹 下的 aa.xml 文件

1.下载工具 xstream 下载最新版本地址: https://nexus.codehaus.org/content/repositories/releases/com/thoughtworks/xstream/ 下载完成后 把jar包导入到自己的android项目中 2.asset 文件夹 下的 aa.xml 文件 <?xml version="1.0" encoding="UTF-8"?><product>    <name>

获取某文件夹下所有文件名、文件夹名、后缀名

今天在提交github时,突然觉得提交得很慢,想到github允许设置.gitignore文件进行某些后缀名的忽略,于是乎决定好好设置一下.gitimnore. 于是乎....我发现,一个很大的项目,或者一个很杂乱的文件库,很难知道这里面到底存在哪些后缀名的文件,一个文件夹一个文件夹的找又太慢,而且容易出错. 于是乎....我开始敲代码了,顺带着把获取某文件夹下所有文件名.文件夹名.后缀名这三个功能一起实现了. [来看效果] 不输入参数时或者第一个参数输入"\"时,默认为当前目录,显示

将文件夹下的一级目录文件改名并移动目录

#此段代码实现将文件夹下的一级目录文件改名并移动目录 #list = os.listdir(Datadir) #列出文件夹下所有的目录与文件 #for i in range(0,len(list)): # path = os.path.join(Datadir,list[i]) # list2=os.listdir(path) # for j in range(0,len(list2)): # path2 = os.path.join(path,list2[j]) # if os.path.is

C++实现从一个文件夹中读出所有txt文件

前段时间做项目需要读取一个文件夹里面所有的txt文件,查询资料后得到以下实现方法:首先了解一下这个结构体struct _finddata_t {    unsigned    attrib;    time_t      time_create;       time_t      time_access;       time_t      time_write;    _fsize_t    size;    char        name[260];};其中各成员变量的含义如下:unsi

matlab如何读取某指定文件夹下的指定格式文件

%% 正负样本所在folder fext='*.png';%要读取的文件格式 positiveFolder='F:\课题\Crater detection\machingLearning\Positive Images\';%要读取文件的路径 dtPositive=dir([positiveFolder fext]);%将要读取文件的路径加格式组合 namePositiveCell={dtPositive.name};%读取指定文件夹下的所有符合格式要求的文件名元胞 %% 构造元胞,用来存储指定

JavaSE8基础 File list 获取指定文件夹下的第一层文件和文件夹的名字

os :windows7 x64    jdk:jdk-8u131-windows-x64    ide:Eclipse Oxygen Release (4.7.0) information: 被查看文件夹中的内容截图. code: package jizuiku0; import java.io.File; /* * @version V17.09 */ public class GetName { public static void main(String[] args) { String

python 找某个文件夹下第多少个文件

preface:同仁遇到一个问题,需要在上万个文件中找到第7000个文件,凌乱...查了下python相关资料,虽说没有完全解决,但还是有东西记录下来. 一.对某个文件夹下遍历文件,os.walk可破.若是多个文件夹的话,配合isdir, isfile等函数可破(参数可有可无): <span style="font-size:18px;">for i in os.walk(os.getcwd(),topdown=True, onerror=None, followlinks

批量将制定文件夹下的全部Excel文件导入微软SQL数据库

以下代码将c:\cs\文件夹下的全部Excle中数据导入到SQL数据库 declare @query vARCHAR(1000) declare @max1 int declare @count1 int declare @filename varchar(100) set @count1=0 create table #x(name varchar(200)) insert #x exec('master.dbo.xp_cmdshell  ''dir c:\cs\*.xls  /b''') d

自动删除指定文件夹下N天前文件的批处理

@echo off if not exist d:\delFiles goto EOF rem 定义文件夹'数组'  set folders[0]=folder1 set folders[1]=folder2 set folders[2]=folder3 rem 如果D:\delFiles下改变文件夹,请修改上面'数组' set sday=-3 rem 删除D:\delFiles下的sday天前建的文件,修改天数请修改上面的sday ForFiles /P D:\delFiles /D %sda