½Ð°Ý°µªk ?AÀɮצ³10000µ§¸ê®Æ¡An¿é¥X¦¨5Ó·sÀÉA1~A5¡A¨CÓÀÉ®×2000µ§¸ê®Æ
- ©«¤l
- 1
- ¥DÃD
- 1
- ºëµØ
- 0
- ¿n¤À
- 2
- ÂI¦W
- 0
- §@·~¨t²Î
- win10
- ³nÅ骩¥»
- office2003
- ¾\ŪÅv
- 10
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2018-3-3
- ³Ì«áµn¿ý
- 2018-3-10
|
½Ð°Ý°µªk ?AÀɮצ³10000µ§¸ê®Æ¡An¿é¥X¦¨5Ó·sÀÉA1~A5¡A¨CÓÀÉ®×2000µ§¸ê®Æ
¥Ø«eªºª¬ªp¬O¡A5ÓÀɮ׳£«Ø¥ß¤F¡A¥i¬O¥u¦³²ÄA1¦³2000µ§¸ê®Æ¡AA2~A5³£¬OªÅ¥Õªº¡A½Ð¤j®v¬Ý¤@¤U¨ºùئ³°ÝÃD?- Private Sub rutenexport() '¶×¥X¤W¬[ÀÉ -ÅS¤Ñ
- Dim sb, db As Workbook
- 'wp = ActiveWorkbook.Path & "\" '«ü©w¦sÀɦì¸m
- wp = ActiveWorkbook.Path & "\" & "ruten" & Year(Date) & "-" & Month(Date) & "-" & Day(Date) & "-" & Hour(Time) & "-" & Minute(Time) & "-" & Second(Time) & "\" '«ü©w¦sÀɦì¸m
- If Len(Dir(wp, vbDirectory)) = 0 Then
-
- MkDir wp
-
- End If
- Set sb = Workbooks("¤W¬[¸ê®ÆÂà´«.xlsx")
- sb.Sheets("ÅS¤Ñ¤W¬[ÀÉ").Range("AE:XX").Delete
- 'sb.Sheets("ÅS¤Ñ¤W¬[ÀÉ").Range("A:A").Delete '§R°£²Ä1¦æ½s¸¹
- '================¨CÓÀÉ®×2000µ§¸ê®Æ¶×¥XA
- For i = 1 To 5
- db1 = "ruten_auction2014-" & i & ".xls"
- Set NewBook = Workbooks.Add
- With NewBook
- .Title = "All Sales"
-
- .Subject = "Sales"
-
- .SaveAs Filename:=wp & db1
-
- End With
-
- Set db = Workbooks(db1)
-
- pt = i * 2000
- MsgBox db.Name
- sb.Sheets("ÅS¤Ñ¤W¬[ÀÉ").Range(Cells(pt - 1999, 1), Cells(pt, 31)).Copy Workbooks(db1).Sheets("sheet1").Range(Cells(pt - 1999, 1), Cells(pt, 31))
- 'db.Close
- Next i
- MsgBox "ÅS¤Ñ¤W¬[Àɤw¶×¥X"
- End Sub
½Æ»s¥N½X |
|
|
|
|
|
|
- ©«¤l
- 12
- ¥DÃD
- 2
- ºëµØ
- 0
- ¿n¤À
- 58
- ÂI¦W
- 0
- §@·~¨t²Î
- win10
- ³nÅ骩¥»
- 2016
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2017-6-13
- ³Ì«áµn¿ý
- 2018-7-26
|
³o¨â¥y»yªk¦³ÂI°ÝÃD
sb.Sheets("ÅS¤Ñ¤W¬[ÀÉ").Range(Cells(pt - 1999, 1), Cells(pt, 31)).Copy
Workbooks(db1).Sheets("sheet1").Range(Cells(pt - 1999, 1), Cells(pt, 31))
§A¥J²Ó¦A¬Ý¤@¤UÀɮסAÀ³¸ÓA2~A5¤£¬O¨S¸ê®Æ
¦Ó¬OA2ªº¸ê®Æ¶K¨ì2001~4000¦C
A3¶K¨ì4001~6000¦C¥H¦¹¦C±À¤F
²Ä¤G¥yµ{¦¡½XÀ³¸Ó©T©wÀx¦s®æ´N¦n
¥i¥H§ï¦¨
Workbooks(db1).Sheets("sheet1").Range("A1").select
activate.paste
·N«ä´N¬O¦bA1Äæ¦ì¶K¤W½Æ»sªºÀx¦s®æ¤º®e |
|
|
|
|
|
|