- ©«¤l
- 2035
- ¥DÃD
- 24
- ºëµØ
- 0
- ¿n¤À
- 2031
- ÂI¦W
- 0
- §@·~¨t²Î
- Win7
- ³nÅ骩¥»
- Office2010
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2012-3-22
- ³Ì«áµn¿ý
- 2024-2-1
|
¦^´_ 1# ljuber
¸Õ¸Õ¬Ý¡G- Option Explicit
- Sub Ex()
- Dim loc As Long, cts As Long, txtFile As String, arr() As String, sp() As String
-
- Application.DisplayAlerts = False
- Application.ScreenUpdating = False
-
- txtFile = Application.GetOpenFilename("(*.txt), *.txt")
- If txtFile = "" Then Exit Sub
-
- sp = Split(txtFile, "\")
- With Workbooks("½m²ß.xlsm")
- cts = .Sheets("³]©w").Range("A1").End(xlDown).Row
-
- ReDim Preserve arr(cts - 1) ' °ÊºA¦a³B²z arr °}¦C±a¤J¤§°}¦CÈ¡C
- For loc = 2 To cts
- arr(loc - 1) = .Sheets("³]©w").Range("A" & loc).Text '
- Next loc
-
- loc = .Sheets("¸ê®Æ").Range("A1").End(xlDown).Row
- ' Workbooks.OpenText Filename:=ThisWorkbook.Path & "\10412-ai201.txt", Origin:=950, Tab:=True, TrailingMinusNumbers:=True
- Workbooks.OpenText Filename:=txtFile, Origin:=950, Tab:=True, TrailingMinusNumbers:=True
-
- ActiveSheet.Range("A:G").AutoFilter Field:=5, _
- Criteria1:=arr, Operator:=xlFilterValues
- ' °ÊºA¦a³B²z Criteria1 ±a¤J¤§È¡C
- ' Criteria1:=Array("11001", "11005", "11009"), Operator:=xlFilterValues
- Columns("A:G").Copy
- .Sheets("¸ê®Æ").Range("A" & loc + 1).PasteSpecial Paste:=xlPasteValues
-
- ' Workbooks("10412-ai201.txt").Close
- Workbooks(sp(UBound(sp))).Close
- ' .Sheets("¸ê®Æ").Range("A" & loc + 1).Select
- End With
- End Sub
½Æ»s¥N½X |
|