Excel批量导入TXT数据
2个回答
展开全部
以下用于打开单个文本文件,的宏(VBA)语句,TXTFsname,
至于批量处理,自己弄个循环语句
Workbooks.OpenText
FileName:=TXTFsname,
Origin:=xlWindows,
StartRow
_
:=1,
DataType:=xlDelimited,
TextQualifier:=xlDoubleQuote,
_
ConsecutiveDelimiter:=False,
Tab:=True,
Semicolon:=False,
Comma:=True,
_
Space:=False,
other:=False,
FieldInfo:=Array(Array(1,
1),
Array(2,
1))
///
至于批量处理,自己弄个循环语句
Workbooks.OpenText
FileName:=TXTFsname,
Origin:=xlWindows,
StartRow
_
:=1,
DataType:=xlDelimited,
TextQualifier:=xlDoubleQuote,
_
ConsecutiveDelimiter:=False,
Tab:=True,
Semicolon:=False,
Comma:=True,
_
Space:=False,
other:=False,
FieldInfo:=Array(Array(1,
1),
Array(2,
1))
///
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
博思aippt
2024-07-20 广告
作为深圳市博思云创科技有限公司的工作人员，对于Word文档生成PPT的操作，我们有以下建议：1. 使用另存为功能：在Word中编辑完文档后，点击文件->另存为，选择PowerPoint演示文稿（*.pptx）格式，即可将文档内容转换为PPT...
点击进入详情页
本回答由博思aippt提供
展开全部
因为没有导入操作代码，以下代码是起到将文本文件另存为XLS文件代码
代码拷贝入文本文件夹中的一个新建EXCEL文件的模块中，执行之
Sub
FileProcess1()
Dim
FileFind
As
FileSearch
Dim
fs
As
Variant
Dim
FilePath
As
String
Dim
FileStyle
As
String
FilePath
=
ThisWorkbook.Path
FileStyle
=
"*.txt"
With
Application.FileSearch
.LookIn
=
FilePath
.Filename
=
FileStyle
.Execute
For
Each
fs
In
.FoundFiles
Set
XLSHEET
=
Workbooks.Open(fs)
XLSHEET.SaveAs
Filename:=Replace(fs,
"txt",
"xls")
XLSHEET.Save
XLSHEET.Close
Next
fs
End
With
End
Sub
代码拷贝入文本文件夹中的一个新建EXCEL文件的模块中，执行之
Sub
FileProcess1()
Dim
FileFind
As
FileSearch
Dim
fs
As
Variant
Dim
FilePath
As
String
Dim
FileStyle
As
String
FilePath
=
ThisWorkbook.Path
FileStyle
=
"*.txt"
With
Application.FileSearch
.LookIn
=
FilePath
.Filename
=
FileStyle
.Execute
For
Each
fs
In
.FoundFiles
Set
XLSHEET
=
Workbooks.Open(fs)
XLSHEET.SaveAs
Filename:=Replace(fs,
"txt",
"xls")
XLSHEET.Save
XLSHEET.Close
Next
fs
End
With
End
Sub
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
