[已解决]求大侠 帮忙做一个分列的宏

kidd1217

大侠们 帮忙了



谢谢了 问题在附件里

谢谢了

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2012-9-19 07:11

1. Sub 宏1()
   
2. '
   
3. ' 宏1 宏
   
4. '
   
5. 
   
6. '
   
7.     ChDir "C:\Users\bb\Desktop\EXCEL"
   
8.     Workbooks.OpenText Filename:="C:\Users\bb\Desktop\EXCEL\1234.txt", Origin:= _
   
9.         936, StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
   
10.         ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, Comma:=False _
    
11.         , Space:=False, Other:=False, FieldInfo:=Array(1, 1), _
    
12.         TrailingMinusNumbers:=True
    
13.     Range("J15").Select
    
14.     ActiveWindow.Close
    
15. End Sub
    

复制代码

直接录的，没有什么在太多的技巧，有些可以按F1查到的。

跳转到最佳答案楼层

hwc2ycy

1. Sub 宏1()
   
2. '
   
3. ' 宏1 宏
   
4. '
   
5. 
   
6. '
   
7.     ChDir "C:\Users\bb\Desktop\EXCEL"
   
8.     Workbooks.OpenText Filename:="C:\Users\bb\Desktop\EXCEL\1234.txt", Origin:= _
   
9.         936, StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
   
10.         ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, Comma:=False _
    
11.         , Space:=False, Other:=False, FieldInfo:=Array(1, 1), _
    
12.         TrailingMinusNumbers:=True
    
13.     Range("J15").Select
    
14.     ActiveWindow.Close
    
15. End Sub
    

复制代码

直接录的，没有什么在太多的技巧，有些可以按F1查到的。

hwc2ycy

这个导入数据方式的，之前是打开方式的。

1. Sub 宏1()
   
2.     With ActiveSheet.QueryTables.Add(Connection:= _
   
3.         "TEXT;C:\Users\bb\Desktop\构件清单.xsr", Destination:=Range("$a$1"))
   
4.         .Name = "构件清单"
   
5.         .TextFileConsecutiveDelimiter = True
   
6.         .TextFileSpaceDelimiter = True
   
7.         .TextFileColumnDataTypes = Array(1, 1, 1, 1, 1)
   
8.         .Refresh BackgroundQuery:=False
   
9.     End With
   
10. End Sub

复制代码

文件位置和导入的位置不要硬套，要根据你的实际情况修改。
文件位置：C:\Users\bb\Desktop\构件清单.xsr
导入位置："$a$1"