½Ð°Ý¤j¤jÌ
§Ú¦³«Ü¦h¤À¶
³£¿ý»s¦b¦P¤@¥¨¶°
¦ý§Ú°õ¦æ®ÉÔn¤@ÓÓ«ö¸ô®|
¦ý§Ú¤w¸g¿ý¦n¤F
½Ð°Ý¸Ó«ç»òקï©O
Sub ¥¨¶°1()
'
' ¥¨¶°1 ¥¨¶°
'
'
Sheets("±ø¥ó0-ªÑ¸¹¼Ò²Õ").Select
Range("F6").Select
With Selection.QueryTable
.Connection = "TEXT;C:\Users\user\Google ¶³ºÝµwºÐ\L6¼Ò²Õ\20140730¼Ò²Õ\0ªÑ¸¹¼Ò²Õ.TXT"
.TextFilePlatform = 950
.TextFileStartRow = 1
.TextFileParseType = xlFixedWidth
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(2, 1, 1, 1, 1, 1, 1, 1)
.TextFileFixedColumnWidths = Array(6, 8, 10, 10, 10, 10, 11)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
Sheets("±ø¥ó1-©P¼Ò²Õ").Select
Range("F7").Select
With Selection.QueryTable
.Connection = "TEXT;C:\Users\user\Google ¶³ºÝµwºÐ\L6¼Ò²Õ\20140730¼Ò²Õ\1©P¼Ò²Õ.TXT"
.TextFilePlatform = 950
.TextFileStartRow = 1
.TextFileParseType = xlFixedWidth
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(2, 1, 1, 1, 1, 1, 1, 1, 1, 1)
.TextFileFixedColumnWidths = Array(6, 8, 10, 10, 10, 10, 10, 10, 10)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
Sheets("±ø¥ó2-¤é¼Ò²Õ").Select
Range("E11").Select
With Selection.QueryTable
.Connection = "TEXT;C:\Users\user\Google ¶³ºÝµwºÐ\L6¼Ò²Õ\20140730¼Ò²Õ\2¤é¼Ò²Õ.TXT"
.TextFilePlatform = 950
.TextFileStartRow = 1
.TextFileParseType = xlFixedWidth
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(2, 1, 1, 1, 1, 1, 1)
.TextFileFixedColumnWidths = Array(6, 8, 10, 10, 10, 10)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
Sheets("±ø¥ó3-¤ë¼Ò²Õ").Select
Range("E8").Select
With Selection.QueryTable
.Connection = "TEXT;C:\Users\user\Google ¶³ºÝµwºÐ\L6¼Ò²Õ\20140730¼Ò²Õ\3¤ë½u¼Ò²Õ.TXT"
.TextFilePlatform = 950
.TextFileStartRow = 1
.TextFileParseType = xlFixedWidth
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(2, 1, 1, 1, 1, 1, 1, 1, 1, 1)
.TextFileFixedColumnWidths = Array(6, 8, 10, 10, 10, 10, 10, 10, 10)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
Sheets("±ø¥ó4-¶q¬[ºc").Select
Range("D5").Select
With Selection.QueryTable
.Connection = "TEXT;C:\Users\user\Google ¶³ºÝµwºÐ\L6¼Ò²Õ\20140730¼Ò²Õ\4¶q¼Ò²Õ.txt"
.TextFilePlatform = 950
.TextFileStartRow = 1
.TextFileParseType = xlFixedWidth
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, _
1)
.TextFileFixedColumnWidths = Array(6, 8, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, _
10, 12, 10, 10, 10, 9, 10)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
Sheets("±ø¥ó5-¨ä¥L").Select
Range("E11").Select
With Selection.QueryTable
.Connection = "TEXT;C:\Users\user\Google ¶³ºÝµwºÐ\L6¼Ò²Õ\20140730¼Ò²Õ\5¨ä¥L.txt"
.TextFilePlatform = 950
.TextFileStartRow = 1
.TextFileParseType = xlFixedWidth
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1)
.TextFileFixedColumnWidths = Array(6, 8, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
Sheets("±ø¥ó6-§¡½u¼Ò²Õ").Select
Range("E6").Select
With Selection.QueryTable
.Connection = "TEXT;C:\Users\user\Google ¶³ºÝµwºÐ\L6¼Ò²Õ\20140730¼Ò²Õ\6§¡½u¼Ò²Õ.txt"
.TextFilePlatform = 950
.TextFileStartRow = 1
.TextFileParseType = xlFixedWidth
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1)
.TextFileFixedColumnWidths = Array(6, 8, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
Sheets("±ø¥ó7-¸ê0.3¼Ò²Õ").Select
Range("H7").Select
With Selection.QueryTable
.Connection = "TEXT;C:\Users\user\Google ¶³ºÝµwºÐ\L6¼Ò²Õ\20140730¼Ò²Õ\7¸ê03¼Ò²Õ.txt"
.TextFilePlatform = 950
.TextFileStartRow = 1
.TextFileParseType = xlFixedWidth
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(2, 1, 1, 1, 1, 1, 1, 1, 1, 1)
.TextFileFixedColumnWidths = Array(6, 8, 10, 10, 10, 10, 10, 10, 10)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
Sheets("±ø¥ó8-¸õªÅ¼Ò²Õ").Select
Range("D9").Select
With Selection.QueryTable
.Connection = "TEXT;C:\Users\user\Google ¶³ºÝµwºÐ\L6¼Ò²Õ\20140730¼Ò²Õ\8¸õªÅ¼Ò²Õ.txt"
.TextFilePlatform = 950
.TextFileStartRow = 1
.TextFileParseType = xlFixedWidth
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(2, 1, 1, 1, 1)
.TextFileFixedColumnWidths = Array(6, 8, 10, 13)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
End Sub |