¦p¦ó¨C¦¸¶}±Ò¿ï¾Ü¶×¤J¤å¦rÀɤ§¸ô®|
- ©«¤l
- 163
- ¥DÃD
- 1
- ºëµØ
- 0
- ¿n¤À
- 170
- ÂI¦W
- 0
- §@·~¨t²Î
- Window 7
- ³nÅ骩¥»
- Office 2007
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-9-5
- ³Ì«áµn¿ý
- 2022-7-20
|
¦^´_ 1# sping
¸Õ¸Õ¬Ý- Sub Macro1()
- '
- ' Macro1 Macro
- ' ¶×¤JÀÉ®×
- '
- '
- txtFile = Application.GetOpenFilename("¤å¦rÀÉ, *.txt")
- txtFile = "TEXT;" & txtFile
- With ActiveSheet.QueryTables.Add(Connection:=txtFile, Destination:=Range("$A$2"))
- .FieldNames = True
- .RowNumbers = False
- .FillAdjacentFormulas = False
- .PreserveFormatting = True
- .RefreshOnFileOpen = False
- .RefreshStyle = xlInsertDeleteCells
- .SavePassword = False
- .SaveData = True
- .AdjustColumnWidth = True
- .RefreshPeriod = 0
- .TextFilePromptOnRefresh = False
- .TextFilePlatform = 950
- .TextFileStartRow = 1
- .TextFileParseType = xlFixedWidth
- .TextFileTextQualifier = xlTextQualifierDoubleQuote
- .TextFileConsecutiveDelimiter = False
- .TextFileTabDelimiter = True
- .TextFileSemicolonDelimiter = False
- .TextFileCommaDelimiter = False
- .TextFileSpaceDelimiter = False
- .TextFileColumnDataTypes = Array(9, 1, 9, 9)
- .TextFileFixedColumnWidths = Array(38, 32, 28)
- .TextFileTrailingMinusNumbers = True
- .Refresh BackgroundQuery:=False
- End With
- ActiveWindow.SmallScroll Down:=-27
- End Sub
½Æ»s¥N½X |
|
|
|
|
|
|