48191人阅读
Excel VBA（10）
我们可能会经常要将一个文件夹中的所有文件都遍历一遍，然后进行修改，下面就介绍用Dir函数实现遍历*.xlsx文件的方法
返回一个 String，用以表示一个文件名、目录名或文件夹名称，它必须与指定的模式或文件属性、或磁盘卷标相匹配。
Dir[(pathname[, attributes])]
第一个参数即是文件的地址，第一次引用的时候要标注，第二次用的时候就不必指出了，下面举个例子，遍历下面文件夹中的Excel2010文件，然后输出文件的名字~
&批量遍历某类文件(*.xlsx)&
Sub OpenAndClose()
Dim MyFile As String
Dim s As String
Dim count As Integer
MyFile = Dir(&C:\Users\McDelfino\Desktop\2.JPL_SCAT_EXCEL全\& & &*.xlsx&)
'读入文件夹中的第一个.xlsx文件
count = count + 1
'记录文件的个数
s = s & count & &、& & MyFile
Do While MyFile && &&
MyFile = Dir
'第二次读入的时候不用写参数
If MyFile = && Then
'当MyFile为空的时候就说明已经遍历完了，这时退出Do，否则还要运行一遍
count = count + 1
If count Mod 2 && 1 Then
s = s & vbTab & count & &、& & MyFile
s = s & vbCrLf & count & &、& & MyFile
Debug.Print s
运行结果如下：
遍历每个文件，并且修改文件，先将文件的名字存在数组中，然后通过数组遍历打开每个文件，修改，再关闭文件~
Sub OpenCloseArray()
Dim MyFile As String
Dim Arr(100) As String
Dim count As Integer
MyFile = Dir(&C:\Users\McDelfino\Desktop\2.JPL_SCAT_EXCEL全\& & &*.xlsx&)
count = count + 1
Arr(count) = MyFile
Do While MyFile && &&
MyFile = Dir
If MyFile = && Then
count = count + 1
Arr(count) = MyFile
'将文件的名字存在数组中
For i = 1 To count
Workbooks.Open Filename:=&C:\Users\McDelfino\Desktop\2.JPL_SCAT_EXCEL全\& & Arr(i)
'循环打开Excel文件
Cells(1, 1) = &alex_bn_lee&
'修改打开文件的内容
ActiveWorkbook.Close savechanges = True
'关闭打开的文件
要是想要修改每个工作簿的内容可以这样遍历一下，显示将文件夹中的工作簿的名字存到一个字符串数组中，然后在用For...Next语句遍历
&批量遍历某个文件夹中的所有文件(*.*)&
注意：遍历的时候，顺序完全是按照文件名的顺序排的，而不是按照文件夹中文件的顺序~
Sub dlkfjdl()
Dim MyFile As String
Dim count As Integer
MyFile = Dir(&C:\Users\McDelfino\Desktop\桌面\Excel\*.*&)
Debug.Print &1、& & MyFile
Do While MyFile && &&
count = count + 1
MyFile = Dir
If MyFile = && Then Exit Do
Debug.Print count & &、& & MyFile
&批量建立TXT文件&&
批量建立，同时可以批量赋值到文本文件中~
Sub kdjfl()
For i = 1 To 10
Open &C:\Users\McDelfino\Desktop\练习\& & Format(i, &00&) & &.txt& For Output As #i
Print #i, i
&GetFolder方法
返回一个和指定路径中文件夹相对应的 Folder 对象。应用于FileSystemObject对象~
&遍历文件夹内的所有文件&
Sub GetFiles()
Dim fs, f, f1, fc
Set fs = CreateObject(&scripting.filesystemobject&)
Set f = fs.getfolder(&F:\Desktop\2.wind_numerical_excello&)
Set fc = f.Files
For Each f1 In fc
Debug.Print f1
Debug.Print &f1 = & & TypeName(f1)
MsgBox &fs = & & TypeName(fs) _
& vbCrLf & &f = & & TypeName(f) _
& vbCrLf & &fc = & & TypeName(fc)
fs = FileSystemObject对象：提供对计算机文件系统的访问。
f = Folder对象：提供对一个文件夹所有属性的访问。
fc = Files集合：在一个文件夹内的所有 File 对象的集合。
f1 = File对象：提供对文件所有属性的访问。
&FileSystemObject对象及TextStream对象的方法举例：
Sub djkflds()
Dim fso, fd, fs, f, ft, s
Set fso = CreateObject(&Scripting.FileSystemObject&)
fso.MoveFile &F:\Desktop\1.xlsx&, &F:\Desktop\2.wind_numerical_excello\1.xlsx&
fso.MoveFolder &F:\Desktop\temp&, &F:\Desktop\2.wind_numerical_excello\temp&
'移动文件夹
MsgBox fso.FileExists(&F:\Desktop\1.xlsx&)
'判断文件是否存在，存在返回True，否则返回False
MsgBox fso.FolderExists(&F:\Desktop\temp&)
'判断文件夹是否存在，存在返回True，否则返回False
Set ft = fso.OpenTextFile(&F:\Desktop\1.txt&, 8, -2)
'8打开一个文件并写到文件的尾部 -2使用系统缺省打开文件
'ft是TextStream对象，加快对文件的顺序访问
ft.Write &Hello World&
'Write方法，在一行上
For i = 1 To 10
ft.WriteLine i
'WriteLien方法，另起一行
'Close方法，关闭文件
fso.DeleteFolder &F:\Desktop\1&
'删除一个文件夹，并且是不放在回收站里面的
& Folder对象的属性和方法举例：
Sub GetSize()
Dim fso, fd, fs, f
Set fso = CreateObject(&Scripting.FileSystemObject&)
Set fd = fso.GetFolder(&F:\Desktop\2.wind_numerical_excello&)
Set fs = fd.SubFolders
For Each f In fs
Debug.Print f.Name, Format(f.Size / 1024 / 1024, &#.##&) & &M&
& File对象的属性和方法举例：
属性和方法与Folder对象类似~
遍历文件夹中的子文件夹及文件
Sub getfiles()
Dim fso, folder, fds, fd, folder2, fs, f
Set fso = CreateObject(&Scripting.FileSystemObject&)
Set folder1 = fso.GetFolder(&F:\Desktop\2.wind_numerical_excello&)
'获得文件夹
Set fds = folder1.subfolders
'子文件夹集合
For Each fd In fds
'遍历子文件夹
Debug.Print fd.Name
Set folder2 = fd
'获得文件夹2
Set fs = folder2.Files
For Each f In fs
Debug.Print f.Name
Debug.Print
&&相关文章推荐
* 以上用户言论只代表其个人观点，不代表CSDN网站的观点或立场
访问：175787次
积分：1666
积分：1666
排名：千里之外
原创：21篇
评论：18条
(1)(1)(17)(6)(1)我要文库申报
查看: 6571|回复: 2
如何导出EXCEL表中指定几列的数据到TXT文件呢？
中级一, 积分 503, 距离下一级还需 247 积分
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次
网站名称: Excel技巧网 | Excel专家栖息谷 | 微软中文技术社区合作伙伴
署名作者: wudixin96
版权声明: 版权归本站与作者共有 除本站官方外非作者本人转载须经许可并注明出处
适用版本: 03以前版本&
语言环境: 简体中文
学习方法: 掌握Excel技巧的关键是动手操作
下载 ≠ 知识
免费注册成为本站会员，享用更多功能，结识更多Office办公高手！
才可以下载或查看，没有帐号？
本帖最后由 wudixin96 于
13:17 编辑
Q：如何导出EXCEL表中指定几列的数据到TXT文件呢？
A：可以利用 VBA+CMD命令来达到 。
r = [a65536].End(xlUp).Row
For i = 1 To r
&&Shell &cmd /c echo & & Cells(i, &b&) & &,& & Cells(i, &d&) & &,& & _
& &&&Cells(i, &g&) & &,& & Cells(i, &h&) & & &&&&& & ThisWorkbook.Path & &\final.txt&&&
Next复制代码
学office，哪能不关注全网最大的Office类微博（新浪）
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次管理次数 次
进来学习，谢谢分享
学office，哪能不关注全网最大的Office类微博（新浪）
初级二, 积分 87, 距离下一级还需 163 积分
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次
进来学习，谢谢分享
学office，哪能不关注全网最大的Office类微博（新浪）
Excel技巧网的会员探讨问题仅代表其个人意见，与网站的立场无关。任何违反国家和地方相关法律法规的言论，本站有义务协助政府相关部门追究发言者的责任！
本站中非注明转载文章与案例的版权为作者与Excel技巧网共有。若非原文作者，本站之外任何单位或个人未经允许，不得将其用于商业用途。
若非原文作者，任何形式的非商业性转载必须获得Excel技巧网或作者允许，并注明作者和出处。
会员发表的帖子如涉及版权纠纷，须自行负责。详情请参考注册时的网站服务条款。
本站特聘法律顾问：沈学律师
Powered by我在TXT文档中有一组数据，例如：纵向的，我想排序成 每行3个，怎么导入WORD或则EXCEL中？ 如何将excel里纵向排列的数据在word里横向排列
你正在浏览： & >
我在TXT文档中有一组数据，例如：纵向的，我想排序成 每行3个，怎么导入WORD或则EXCEL中？
我在TXT文档中有一组数据，例如：纵向的，我想排序成 每行3个，怎么导入WORD或则EXCEL中？
相关说明：
根据栏选6可以做到分为6组，但是出现乱码，例如：123456这组，然后显示成两段，而且复制到TXT和EXCEL文档中，还是一样一列的。没有按6组分配。请高手帮忙，qq直接把文档给。
Cells(I用宏处理：1，点执行即可。Sub 排版()Dim I，将下列代码复制在编辑窗口中，在编辑器中点菜单－插入－模块.Countj=1m=1n=1For I = J To L
PP = Cells(I,1), M, N As IntegerDim PP As VariantL = ActiveSheet, J.Rows、在EXECL打开TXT文档, N)。2,
L，然后关闭编辑器,选择“排版”.Clear
Cells(M，按Alt+F11，可能会快一点、在EXCEL中按Alt+F8.UsedRange
复制假如QQ号之间是空格分隔的，选定，粘贴到Excel中就会自动一号一格分开
打开EXCEL，数据，导入外部数据，导入数据，找到TXT文件，下一步，完成。就在EXCEL中有了一长列。选中，复制，打开WORD，编辑，选择性粘贴（无格式文本）。接下来，格式，分栏，栏数选6，确定。请试一下。
在EXCEL每6行转置一次，成为6列（即每行6个），直至完成。
文件 打开 （文件类型选所有文件）
可以先复制到电子表格中,或word中,再选中,添加表格,就会自动在列中。就可以提取了。～～～
用宏处理,可能会快一点: 1、在EXECL打开TXT文档,按Alt+F11,在编辑器中点菜单-插入-...～～～
汉字机内码在计算机的表达方式的描述是,使用二个字节,每个字节最高位一位为1. 计算机中,补码第一位是...～～～
你echo输出时的那个%%b就是你文本里的内容,那么直接调用%%b就可以啦。～～～
可以写个程序一键处理～～～
#include&stdio.h& void main() { FILE * char buf...～～～
@echo offfor /r %%i in (*.txt) do (echo 123456&&&%...～～～
fgets 一次读一行 ...........～～～
1、建一个新的电子表格。 2、选中所有数字,复制进电子表格中。 3、填入表格的数字全部是位于A列中,...
你可能感兴趣的内容？txt文件批量导入EXCEL
txt文件批量导入EXCEL
有1000个txt文档，每个txt中只有一列数据，怎么将每个txt中的这列数据，导入到excel中不同的列中。
Sub 按钮1_单击()
Dim mypath As String: Dim myfile As String
Dim i As Integer: Dim k As Integer
mypath = ThisWorkbook.Path & &\&
myfile = Dir(mypath & &*.txt&)
Do While Len(myfile) 0
Open mypath & myfile For Input As #1
stk = Split(StrConv(InputB(LOF(1), #1), vbUnicode), vbCrLf)
With Sheets(Application.WorksheetFunction.Ceiling(i / 256, 1))
k = IIf(i Mod 256 = 0, i, i Mod 256)
.Cells(1, k) = Replace(myfile, &.txt&, &&)
.Cells(2, k).Resize(UBound(stk) + 1) = Application.Transpose(stk)
myfile = Dir()
在excel 2003中,只有256列,
附件：abc.rar
请遵守网上公德，勿发布广告信息
相关问答：
原因1、按cad分层形成工程的时间。2、及块读取的时间。这点可以在cad中进行清理：文件-绘图实用程序-清理，这样可以清理掉一些无用的信息，如没有用的块定义等。
Sub InputTxtdata()
Dim Fso As Object, Fl, i%
Dim Sh As Worksheet
Set Sh = ActiveSheet
Set Fso = CreateObject(&Scripting.FileSystemObject&)
For Each Fl In Fso.getfolder(ThisWorkbook.Path & &\&).Files
If Fl.Name Like &*.txt& Then
Range(&A1&)(1, i) = Replace(Fl.Name, &.txt&, &&)
Workbooks.OpenText Fl
With ActiveWorkbook
.ActiveSheet.Range(&A1&, ActiveSheet.[A1].End(4)).Copy Sh.Range(&A1&)(2, i)
.Close False
附件：导入数据.rar2014年6月 Linux/Unix社区大版内专家分月排行榜第二2014年1月 Linux/Unix社区大版内专家分月排行榜第二2013年11月 Linux/Unix社区大版内专家分月排行榜第二2010年6月 Windows专区大版内专家分月排行榜第二2010年4月 Windows专区大版内专家分月排行榜第二2010年3月 Windows专区大版内专家分月排行榜第二2009年12月 Windows专区大版内专家分月排行榜第二2009年11月 Windows专区大版内专家分月排行榜第二2008年7月 Windows专区大版内专家分月排行榜第二2008年1月 Windows专区大版内专家分月排行榜第二2007年12月 Windows专区大版内专家分月排行榜第二2007年11月 Windows专区大版内专家分月排行榜第二2007年10月 Windows专区大版内专家分月排行榜第二2007年6月 Windows专区大版内专家分月排行榜第二
2014年7月 Linux/Unix社区大版内专家分月排行榜第三2014年4月 Linux/Unix社区大版内专家分月排行榜第三2013年1月 Linux/Unix社区大版内专家分月排行榜第三2010年5月 Windows专区大版内专家分月排行榜第三2009年9月 Windows专区大版内专家分月排行榜第三2009年8月 Windows专区大版内专家分月排行榜第三2008年8月 Windows专区大版内专家分月排行榜第三2008年6月 Windows专区大版内专家分月排行榜第三2007年9月 Windows专区大版内专家分月排行榜第三2007年7月 Windows专区大版内专家分月排行榜第三2007年4月 Windows专区大版内专家分月排行榜第三
2014年6月 Linux/Unix社区大版内专家分月排行榜第二2014年1月 Linux/Unix社区大版内专家分月排行榜第二2013年11月 Linux/Unix社区大版内专家分月排行榜第二2010年6月 Windows专区大版内专家分月排行榜第二2010年4月 Windows专区大版内专家分月排行榜第二2010年3月 Windows专区大版内专家分月排行榜第二2009年12月 Windows专区大版内专家分月排行榜第二2009年11月 Windows专区大版内专家分月排行榜第二2008年7月 Windows专区大版内专家分月排行榜第二2008年1月 Windows专区大版内专家分月排行榜第二2007年12月 Windows专区大版内专家分月排行榜第二2007年11月 Windows专区大版内专家分月排行榜第二2007年10月 Windows专区大版内专家分月排行榜第二2007年6月 Windows专区大版内专家分月排行榜第二
2014年7月 Linux/Unix社区大版内专家分月排行榜第三2014年4月 Linux/Unix社区大版内专家分月排行榜第三2013年1月 Linux/Unix社区大版内专家分月排行榜第三2010年5月 Windows专区大版内专家分月排行榜第三2009年9月 Windows专区大版内专家分月排行榜第三2009年8月 Windows专区大版内专家分月排行榜第三2008年8月 Windows专区大版内专家分月排行榜第三2008年6月 Windows专区大版内专家分月排行榜第三2007年9月 Windows专区大版内专家分月排行榜第三2007年7月 Windows专区大版内专家分月排行榜第三2007年4月 Windows专区大版内专家分月排行榜第三
2011年6月 Windows专区大版内专家分月排行榜第三2011年1月 Windows专区大版内专家分月排行榜第三2010年11月 Windows专区大版内专家分月排行榜第三2010年2月 Windows专区大版内专家分月排行榜第三2010年1月 Windows专区大版内专家分月排行榜第三
2014年6月 Linux/Unix社区大版内专家分月排行榜第二2014年1月 Linux/Unix社区大版内专家分月排行榜第二2013年11月 Linux/Unix社区大版内专家分月排行榜第二2010年6月 Windows专区大版内专家分月排行榜第二2010年4月 Windows专区大版内专家分月排行榜第二2010年3月 Windows专区大版内专家分月排行榜第二2009年12月 Windows专区大版内专家分月排行榜第二2009年11月 Windows专区大版内专家分月排行榜第二2008年7月 Windows专区大版内专家分月排行榜第二2008年1月 Windows专区大版内专家分月排行榜第二2007年12月 Windows专区大版内专家分月排行榜第二2007年11月 Windows专区大版内专家分月排行榜第二2007年10月 Windows专区大版内专家分月排行榜第二2007年6月 Windows专区大版内专家分月排行榜第二
2014年7月 Linux/Unix社区大版内专家分月排行榜第三2014年4月 Linux/Unix社区大版内专家分月排行榜第三2013年1月 Linux/Unix社区大版内专家分月排行榜第三2010年5月 Windows专区大版内专家分月排行榜第三2009年9月 Windows专区大版内专家分月排行榜第三2009年8月 Windows专区大版内专家分月排行榜第三2008年8月 Windows专区大版内专家分月排行榜第三2008年6月 Windows专区大版内专家分月排行榜第三2007年9月 Windows专区大版内专家分月排行榜第三2007年7月 Windows专区大版内专家分月排行榜第三2007年4月 Windows专区大版内专家分月排行榜第三
本帖子已过去太久远了，不再提供回复功能。