mshd.net
当前位置:首页 >> 如何用EXCEL VBA读入固定格式的TXT文档 >>

如何用EXCEL VBA读入固定格式的TXT文档

Sub query() Dim filename, inputstring As String, doc filename = Worksheets(2).Range("B2").Value'文件保存路径 If CreateObject("Scripting.FileSystemObject").FileExists(filename) = True Then '判断文件是否存在 Open filename For Inp...

写一个示例吧: 你依据着改: With ActiveSheet.QueryTables.Add(Connection:="TEXT;C:\infor.txt", _ Destination:=Range("A1")) .Name = "infor_2" .FieldNames = True .RowNumbers = False .FillAdjacentFormulas = False .PreserveFormattin...

怎么帮忙?1722187970

Sub s() Open ThisWorkbook.Path & "\a.txt" For Input As #1 k = 9 Do While Not EOF(1) Line Input #1, a a = Application.Trim(Replace(a, "--", " ")) Cells(k, 2).Resize(1, 3) = Split(a) k = k + 1 Loop Close #1End Sub

感觉不难,大概的代码如下: sub xxx() dim i,j,s,fs,ts set fs =createobject("scripting.filesystemobject") set ts=fs.opentextfile("xxx.txt",2,true) '请自学修改文件名,2为forwriting for i=2 to activesheet.usedrange.rows.count '针对...

可以使用如下的代码,复制如下代码到VBA模块中运行即可。 如下代码代表4行4列,如果其余行或列数则可更改相应的数字。 具体步骤如下: 打开office excel; Alt+F11打开VBA编辑器; 复制如下代码到模块中; F5运行该模块; 按照提示进行如下步骤...

这个完全不需要用VBA啊,这样可以实现。在EXCEL里选中内容区域复制,打开记事本直接粘贴进去,然后选中字段间空格复制,CTRL+H使用替换功能,将空格粘贴制查找内容,替换为你想要的内容如:”|“。点击全部替换,OK,搞定,见下动画:

既然知道指定字符,何不直接输进去?

我刚刚编辑的,请试用。如下代码可实现提取第四行第四列的数据。 Sub xxx()Dim myFile As StringDim myText As StringDim myString As StringDim i As SingleWith Application.FileDialog(msoFileDialogFolderPicker).Show.AllowMultiSelect = F...

你既然会用向导导入的话那就很容易获得VBA代码了。 你点“录制宏”,然后开始手工导入一遍这个文件,全部导入完毕后点“停止录制”,然后编辑该宏就可以看到代码了,然后就可以根据需要修改了,比如说改一下文件名什么的。 “录制宏”这个工具还是很好...

网站首页 | 网站地图
All rights reserved Powered by www.mshd.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com