同路径导入一个txt,调格式，谢谢fzxba老师！

lhj323323

老师：


上传的附件里有写好的语句
能生成下图（左表）的格式
我想改成（右表）的格式

老师如有空，请帮忙看看
先谢谢了
顺祝节日快乐！

求助.rar (106.42 KB, 下载次数: 6)

2024-2-9 13:26 上传

点击文件名下载附件

dragonthree

打开TXT呀

lhj323323

dragonthree 发表于 2024-2-9 13:38
打开TXT呀

是的。                          

fzxba

1. Sub test() '过年好
   
2.   Dim strPath As String, strFile As String
   
3.   Dim ar(98765, 4), br, cr
   
4.   Dim i As Long, j As Long, k As Long, n As Byte
   
5.   strPath = ThisWorkbook.Path & "\"
   
6.   strFile = Dir(strPath & "*.txt")
   
7.   While Len(strFile)
   
8.     n = FreeFile
   
9.     Open strPath & strFile For Input As #n
   
10.     br = Split(StrConv(InputB(LOF(n), #n), vbUnicode), vbCrLf)
    
11.     Close #n
    
12.     For i = LBound(br) To UBound(br)
    
13.       If Len(br(i)) Then
    
14.         cr = Split(Replace(br(i), String(2, Chr(9)), Chr(9)), Chr(9))
    
15.         For j = LBound(cr) To UBound(cr)
    
16.           ar(k, j) = cr(j)
    
17.         Next
    
18.         k = k + 1
    
19.       End If
    
20.     Next
    
21.     strFile = Dir
    
22.   Wend
    
23.   Range("A1").Resize(k, 3) = ar
    
24.   Application.ScreenUpdating = True
    
25. End Sub

复制代码

fzxba

求助.zip (367.27 KB, 下载次数: 7)

2024-2-9 14:03 上传

点击文件名下载附件

lhj323323

fzxba 发表于 2024-2-9 14:03

谢谢老师！测试成功了

想请教个问题
我在您的源码上，添了一个数组dr
即图片中的红框
为什么ar的【股票代码】能出现在O列
而      dr的【股票代码】不能出现在T列，而只能右移到U列？

ykcbf1100

文本文件导入和excel文件导入有时不太一样。

lhj323323

ykcbf1100 发表于 2024-2-9 17:00
文本文件导入和excel文件导入有时不太一样。

对，我就是用的【提取EXCEL】的语句来改写的。
没想到它还有隔行的情况。

lhj323323

ykcbf1100 发表于 2024-2-9 17:00
文本文件导入和excel文件导入有时不太一样。

老师：
能否改为xls的格式啊。

ykcbf1100

lhj323323 发表于 2024-2-9 17:16
老师：
能否改为xls的格式啊。

我的电脑xls文件会直接禁用宏，所以，我改为了xlsm文件。

已经改回xls文件。