Excel VBA 导入txt文件内容

Sub import_from_txt()
'根据sheet1第一列的文件名导入txt文件的内容到之后的sheet中,每个文件一个sheetDim file_name As String, my_path As StringDim lines, colsDim i As Integer, j As Integer, k As Integer, q As Integer, n As IntegerApplication.ScreenUpdating = Falsemy_path = ThisWorkbook.Pathn = 1Do While ThisWorkbook.Sheets("content").Cells(n, 1).Value <> ""file_name = Worksheets("content").Cells(n, 1).Value'读取文件Open my_path & "\" & file_name For Input As #1lines = Split(StrConv(InputB(LOF(1), 1), vbUnicode), vbCrLf)Close #1k = UBound(lines) + 1 '文件的行数'遍历每一行Sheets.Add After:=Worksheets(n)For i = 1 To kcols = Split(lines(i - 1), Chr(9)) '以tab作为分隔，将每行字符分割，分隔符可根据实际情况自己修改q = UBound(cols) + 1 '分隔成的列数For j = 1 To q '遍历该行的每一列Worksheets(n + 1).Cells(i, j) = cols(j - 1) '输出到表格中NextNextn = n + 1LoopApplication.ScreenUpdating = True
End Sub

Excel VBA 导入txt文件内容相关推荐

VBA把txt文件内容放入excel
VBA把txt文件内容放入excel,代码如下: Sub bb() Dim a, k%, i% Dim abc As String '---------------cycle to open the ...
Excel原封不动导入txt文件
要Excel原封不动导入txt文件,包括不漏掉数字前面的0,要在导入的时候,选择固定宽度导入,然后选中每一列,再选文本而不是常规,就行了.别忘了从第一列一直到最后一列都要选.
【一步一步学习VBA】Excel VBA 读取txt文件并写入Excel单元格
我们首先在Excel文件所在目录创建一个文件a.txt,文件内容如下: 1111 222 222 333 333 444 接着我们进行文件的读取,并且写入到Excel中,代码如下: Sub bb() ...
【一步一步学习VBA】Excel VBA 读取txt文件并写入Excel单元格（友好版）
上一篇文章我们提到:更好的处理方式就是读取将每一行,按照空格再分为不同的单元格代码实现如下: Sub bb() Dim a, b, k%, i%, j%, q% Open "a.txt&q ...
python怎么读取txt文件内容然后保存到excel-Python实现读取txt文件并转换为excel的方法示例...
本文实例讲述了Python实现读取txt文件并转换为excel的方法.分享给大家供大家参考,具体如下: 这里的txt文件内容格式为: 892天平天国定都在?A开封B南京C北京(B) Python代码如 ...
批量将Txt文件内容拆分成Excel文件
批量将Txt文件内容拆分成Excel文件第1步: 新建一张Excel 表,并输入需要拆分Txt文件所在文件夹位置,以及拆分后数据保存Excel的路径信息,并保存名为"拆分.xlsm&quo ...
MATLAB实战系列（四）-导入txt文件技巧大全
在使用MATLAB的时候,各位一定会遇到过导入数据的烦恼.如果需要导入的数据其数据量巨大的话,那么在MATLAB编辑器中将这些数据复制粘贴进来,显然会在编辑器中占据巨大的篇幅. 那么究竟有没有一个简洁 ...
oracle数据库导入txt,oracle数据库导入TXT文件方法介绍
客户端连接数据库导入 1. 安装有oracle客户端,配好监听. 2. 以oracle数据库app用户的表user_svc_info为例 CREATE TABLE USER_SVC_INFO( PHO ...
导入 txt 文件数据到 MySQL 表
导入 txt 文件数据到 MySQL 表需求:导入数据到 MySQL 表中操作: 新建一个 .txt 文件新建一个表右击表选择导入向导选择导入类型为文本文件(*.txt) 选择创建的 .tx ...

Excel VBA 导入txt文件内容

Excel VBA 导入txt文件内容相关推荐

最新文章

热门文章