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

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

怎么帮忙?1722187970

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

代码前面加两句就好,直接选择文件更方便: Sub bb()Dim a, b, k%, i%, j%, q%, FiNameFiName = Application.GetOpenFilename("请选择文本文件,*.txt")If FiName = False Then Exit SubOpen FiName For Input As #1…………

感觉不难,大概的代码如下: 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去遍历,提取文件名。资料如下供参考 http://club.excelhome.net/thread-1258425-1-1.html 提取txt文件内容,可以通过vba处理

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

Sub 导入txt文件() Dim TextObj Application.ScreenUpdating = False Set fs = CreateObject("Scripting.FileSystemObject") Set f2 = fs.getfolder("\\server3\DailyDump") If Dir(f2 & "\" & "123.txt") "" Then Set TextObj = fs.OpenTextFil...

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