Kubi

¦^´_ 1# sping
¸Õ¸Õ¬Ý

1. Sub Macro1()
   
2. '
   
3. ' Macro1 Macro
   
4. ' ¶×¤JÀÉ®×
   
5. '
   
6. 
   
7. '
   
8.    txtFile = Application.GetOpenFilename("¤å¦rÀÉ, *.txt")
   
9.    txtFile = "TEXT;" & txtFile
   
10.     With ActiveSheet.QueryTables.Add(Connection:=txtFile, Destination:=Range("$A$2"))
    
11.         .FieldNames = True
    
12.         .RowNumbers = False
    
13.         .FillAdjacentFormulas = False
    
14.         .PreserveFormatting = True
    
15.         .RefreshOnFileOpen = False
    
16.         .RefreshStyle = xlInsertDeleteCells
    
17.         .SavePassword = False
    
18.         .SaveData = True
    
19.         .AdjustColumnWidth = True
    
20.         .RefreshPeriod = 0
    
21.         .TextFilePromptOnRefresh = False
    
22.         .TextFilePlatform = 950
    
23.         .TextFileStartRow = 1
    
24.         .TextFileParseType = xlFixedWidth
    
25.         .TextFileTextQualifier = xlTextQualifierDoubleQuote
    
26.         .TextFileConsecutiveDelimiter = False
    
27.         .TextFileTabDelimiter = True
    
28.         .TextFileSemicolonDelimiter = False
    
29.         .TextFileCommaDelimiter = False
    
30.         .TextFileSpaceDelimiter = False
    
31.         .TextFileColumnDataTypes = Array(9, 1, 9, 9)
    
32.         .TextFileFixedColumnWidths = Array(38, 32, 28)
    
33.         .TextFileTrailingMinusNumbers = True
    
34.         .Refresh BackgroundQuery:=False
    
35.     End With
    
36.     ActiveWindow.SmallScroll Down:=-27
    
37. End Sub

½Æ»s¥N½X