å设dçæ件夹123ä¸ï¼æä¸ä¸ª456çtxtæ件ï¼456.txtç第10è¡ä¸ºï¼a-b-c ï¼ç°å¨å°b读åå°sheet1ça1åå æ ¼ãä¸é¢æ¯ä»£ç
sub ff()
dim aï¼k%,i%
Open "d:\123\456.txt" For Input As #1 '读å456txtæ件ï¼ä¸º1å·æ件
a = Split(StrConv(InputB(LOF(1), 1), vbUnicode), vbCrLf) 'å°txtæ件å 容èµå¼ç»æ°ç»aï¼açå ç´ ä¸ºtxtçä¸è¡
Close #1 'å ³étxtæ件
k=ubound(a) 'txtçè¡æ°ï¼æ³¨æaçä¸é为0ï¼ä¸é为kï¼txtå ±æk+1è¡
worksheets("sheet1").[a1]=split(a(9),"-")(1) âaï¼9ï¼è¡¨ç¤ºç¬¬10è¡ï¼æ¤è¯å¥å°ç¬¬10è¡ä»¥â-âåå²ææ°ç»ï¼"b"为æ°ç»ç第äºä¸ªå ç´ ã
end sub追é®
è¿æ ·çä¾åè½ååï¼è½çè¯ï¼ååºæ¥ä¸ï¼ææåç»ä½
å¦E:\22æ件夹ä¸ç1.txtè®°äºæ¬ä¸æ¯è¡åªæä¸ä¸ªæ°å¼
1100
1250
1400
1650
1800
.
.
.ä¾æ¬¡å¯¼å
¥å°excelå·¥ä½è¡¨ä¸ça12,a15,a18,a21ä¾æ¬¡ç±»æ¨ä¸å»ï¼åªä½å¤§ç¥å¸®å¸®å¿å¢
sub ff()
dim aï¼k%,i%
Open "e:\22\1.txt" For Input As #1
a = Split(StrConv(InputB(LOF(1), 1), vbUnicode), vbCrLf)
Close #1
k=ubound(a)
for i=0 to k
worksheets("sheet1").cells(3*i+12,1)=a(i)*1
next
end sub
ä½ è¯è¯ï¼åºè¯¥æ²¡é®é¢ã
...例如,用VBA将某个txt文件中的一列数据分别读入到EXCEL中的特定的方 ...
你好，vba不能读取txt的一列，只能先读取到行，然再到列，我给你举个例子吧 假设d盘文件夹123中，有一个456的txt文件，456.txt的第10行为：a-b-c ，现在将b读取到sheet1的a1单元格。下面是代码 sub ff()dim a，k%,i Open "d:\\123\\456.txt" For Input As #1 '读取456txt文件，为...
如何用Excel VBA读取某一文件夹下批量TXT文本内的某行某列?
例如，要启动一个安静的、无人值守的安装——安装完成后不通知你，你可以使用以下命令： \\setupsql.exe –s –fl \\setup.iss 如果你想在安装完成时得到通知，从命令行执行如下setupsql.exe程序，或者把它写入一个批处理文件中： start \/wait \\setupsql.exe -s –fl \\setup.iss 直到安装结束，控...
使用VBA将读取同目录下指定的txt的数据,导入到Excel指定的sheet中,并且...
使用VBA将读取同目录下指定的txt的数据,导入到Excel指定的sheet中,并且要求按照指定的指定的分隔符分列 在Excel中插入按钮,编辑代码读取当前Excel所在目录下的txt文件将文件读取出来按照指定的分隔符分列,并导入到当前Excel指定的sheet中效果如图,跪求大神帮忙,格式要求如图... 在Excel中插入按钮,编辑代码读取当前Excel所...
excel,怎么用vba写段关于查找指定文件夹内的文件名,并将其提取值至表...
IsExistFile = fileName Else IsExistFile = "无"End If End Function 参数说明strDir为文件夹路径，fileName为文件名 使用示例：某个单元格输入=IsExistFile("E:\\doc",B2) 即可，若不存在返回无，存在返回B2中的文件名称。路径和文件名可以直接用字符串或引用某个单元格内容。
用excel的VBA,如何实现从文件A中读取数据,在B文件中找到记录,写到文件C...
实际就是通过EXCEL读取，类似这种，把TXT文件（B文件）读入内存，并把需要的根据条件（A文件）写入EXCEL表格（C文件）Sub ctxt() '读取多个选中的TXT中的内容写入到EXLCEdim i%FilesToOpen = Application.GetOpenFilename("文本文件（*.txt）,*.txt", MultiSelect:=True, Title:="要统计的文件")...
如何用EXCEL VBA读入固定格式的TXT文档
写一个示例吧：你依据着改：With ActiveSheet.QueryTables.Add(Connection:="TEXT;C:\\infor.txt", _Destination:=Range("A1")).Name = "infor_2".FieldNames = True .RowNumbers = False .FillAdjacentFormulas = False .PreserveFormatting = True .RefreshOnFileOpen = False .RefreshStyle = xl...
请问用excel的VBA如何操纵记事本,比如读,写等的操作?
Const NName As String = "E:\\excel\\02-操作txt文件input、output\\数据.txt"Open NName For Output As #1 irow = [a65536].End(xlUp).Row For i = 1 To irow S = Cells(i, 1) & " | " & Cells(i, 2) & " | " & Cells(i, 3) & " | " & Cells(i, 4) & " | "...
Excel 在线等,怎么利用VBA从txt文件中提取特定位置的数据
= 3 Dim fs,tf,str Set fs = CreateObject("Scripting.FileSystemObject")Set tf = fs.OpenTextFile("c:\\testfile.txt", ForReading, TristateFalse)'跳到指定字符数，这里指定10个字符。tf.Skip(10)'把指定数量的字符读到字符串，这里指定20个字符。str = tf.Read(20)tf.Close ...
实用VBA:12.用VBA将txt文本文件导入Excel表格
VBA提供文件对象访问功能，可以打开文件并逐行读取文本数据。每行数据被读入后，使用分隔符（如tab）将字符串拆分为多个子串，并将这些子串保存到字符串数组中。之后，这些子串被逐一写入Excel表格的相应单元格。通过循环处理每一行数据，即可实现将txt文件导入Excel的功能。在处理过程中，可以根据需要灵活调整...
如何在ExcelVBA中读写word文档步骤vba读写excel文件
1.1 打开excel vba 界面1.2 选中其中的一个Module1.3 选择菜单， Tools --> References在打开的对话框中选择类似 \\"Microsoft Word 14.0 Object Library\\".1.4 点击OK保存配置。2.打开文档 Set wordApplication = CreateObject(\\"Word.Application\\") wordApplication.Visible = False Dim hasOpen...
