[µo°Ý] ½Ð°Ý­n¦p¦ó³]©wÅý¥¨¶°©¿²¤¿ù»~¡AÄ~Äò¸õ¤U¤@­Ó°õ¦æ(¥H¸Ñ¨M)

´Ñ»y³¾»ï

1. Sub Macro1()
   
2. '
   
3. ' Macro1 Macro
   
4. '
   
5. 
   
6. '
   
7.     Workbooks.OpenText Filename:= _
   
8.         Range("C4"), Origin:= _
   
9.         950, StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
   
10.         ConsecutiveDelimiter:=True, Tab:=True, Semicolon:=False, Comma:=False, _
    
11.         Space:=True, Other:=False, FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3 _
    
12.         , 1), Array(4, 1), Array(5, 1), Array(6, 1)), TrailingMinusNumbers:=True
    
13.             ActiveWindow.SmallScroll Down:=15
    
14.     Range("F32:G40").Select
    
15.     Selection.Copy
    
16.     Windows("test.xlsb").Activate
    
17.     Sheets("sample1 (1)").Select
    
18.     Range("B2").Select
    
19.     ActiveSheet.Paste
    
20.     Windows("Report.TXT").Activate
    
21.     ActiveWindow.Close
    
22.     Sheets("set print").Select
    
23.     Range("B1").Select
    
24.     Workbooks.OpenText Filename:= _
    
25.         Range("C5"), Origin:= _
    
26.         950, StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
    
27.         ConsecutiveDelimiter:=True, Tab:=True, Semicolon:=False, Comma:=False, _
    
28.         Space:=True, Other:=False, FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3 _
    
29.         , 1), Array(4, 1), Array(5, 1), Array(6, 1)), TrailingMinusNumbers:=True
    
30.             ActiveWindow.SmallScroll Down:=15
    
31.     Range("F32:G40").Select
    
32.     Selection.Copy
    
33.     Windows("test.xlsb").Activate
    
34.     Sheets("sample1 (2)").Select
    
35.     Range("B2").Select
    
36.     ActiveSheet.Paste
    
37.     Windows("Report.TXT").Activate
    
38.     ActiveWindow.Close
    
39.     Sheets("set print").Select
    
40.     Range("B1").Select
    
41.     Workbooks.OpenText Filename:= _
    
42.         Range("C6"), Origin:= _
    
43.         950, StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
    
44.         ConsecutiveDelimiter:=True, Tab:=True, Semicolon:=False, Comma:=False, _
    
45.         Space:=True, Other:=False, FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3 _
    
46.         , 1), Array(4, 1), Array(5, 1), Array(6, 1)), TrailingMinusNumbers:=True
    
47.             ActiveWindow.SmallScroll Down:=15
    
48.     Range("F32:G40").Select
    
49.     Selection.Copy
    
50.     Windows("test.xlsb").Activate
    
51.     Sheets("sample1 (3)").Select
    
52.     Range("B2").Select
    
53.     ActiveSheet.Paste
    
54.     Windows("Report.TXT").Activate
    
55.     ActiveWindow.Close
    
56.     Sheets("set print").Select
    
57.     Range("B1").Select
    
58. End Sub

½Æ»s¥N½X

½Ð°Ý­n¦p¦óÅý¦¹¬q¥¨¶°¡A¥X²{¿ù»~®É¡A©¿²¤¿ù»~¡AÄ~Äò¸õ¤U¤@¦æ°õ¦æ¡A¤£­n¸õ¥X°£¿ùµøµ¡???
·PÁÂ"a8350070" ¤j¤j«ü¾É~~

a8350070

On Error Resume Next '¤£°»¿ù
Macro......
On Error GoTo 0 '¦^´_°»¿ù