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...

刚才试了一下,你说的这种类型的txt好像可以直接用excel打开,所以我录了个宏,改了一下你可以试试: Sub 提取() Set zsht = ActiveSheet Workbooks.OpenText Filename:="d:\ABC.txt" Set mytxt = ActiveWorkbook zsht.Range("a1:d10").Value = ...

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

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

用vba去遍历,提取文件名。资料如下供参考 http://club.excelhome.net/thread-1258425-1-1.html 提取txt文件内容,可以通过vba处理

感觉不难,大概的代码如下: 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 '针对...

假设你的txt文件名为 "你的CSV.txt" 分隔符为逗号 Sub Button1_Click() '关闭更新 Application.ScreenUpdating = False pa = ThisWorkbook.Path & "\" '导入txt 设置分割符为逗号 Set sh = Sheets.Add(, Sheets(Sheets.Count)) Set wb = Workboo...

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

可以运行下面这段代码,稍加调试一可以达到目标了。 Sub cht() Dim objFSO As Object, objFile As Objectg Dim txtpath As String, cr As Long, ct As String, d As String, allt txtpath = ThisWorkbook.Path & "\text.txt" '该为你自己的路径 ...

工具:Excel2010 步骤: 1、打开Excel 2010,点击数据,选择获取外部数据,点击自文本。 2、选择需要导入的多个txt文本,点击导入。 3、打开“文本导入向导-步骤之1(共3步)”对话框中并选择“分隔符号”选项。点击“下一步”。 4、打开“文本导入向导-...

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