¦hÓ¤å¦rÀÉ,¶×¤J¦P¤@EXCEL SHEET¤º
- ©«¤l
- 23
- ¥DÃD
- 6
- ºëµØ
- 0
- ¿n¤À
- 36
- ÂI¦W
- 0
- §@·~¨t²Î
- VISTA
- ³nÅ骩¥»
- office 2003
- ¾\ŪÅv
- 10
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¦Ë«n
- µù¥U®É¶¡
- 2010-7-15
- ³Ì«áµn¿ý
- 2012-4-30
|
¦hÓ¤å¦rÀÉ,¶×¤J¦P¤@EXCEL SHEET¤º
¦hÓ¤å¦rÀÉ,¶×¤J¦P¤@EXCEL SHEET¤º
¦³¦hÓ¤å¦rÀÉ ,§Æ±æ±N©T©w²Ä5Äæ,¶×¤JEXCEL SHEET 1
²Ä9Ä椧«á¦³¸ê®Æªº,¶×¤JEXCEL SHEET 2 .
³sÄò¶×¤J
½Ð°ª¤â¨ó§U,µ¹Ó¥¨¶°, ·PÁÂ. |
|
|
|
|
|
|
- ©«¤l
- 23
- ¥DÃD
- 6
- ºëµØ
- 0
- ¿n¤À
- 36
- ÂI¦W
- 0
- §@·~¨t²Î
- VISTA
- ³nÅ骩¥»
- office 2003
- ¾\ŪÅv
- 10
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¦Ë«n
- µù¥U®É¶¡
- 2010-7-15
- ³Ì«áµn¿ý
- 2012-4-30
|
|
|
|
|
|
|
- ©«¤l
- 9
- ¥DÃD
- 3
- ºëµØ
- 0
- ¿n¤À
- 17
- ÂI¦W
- 0
- §@·~¨t²Î
- win7
- ³nÅ骩¥»
- office2003
- ¾\ŪÅv
- 10
- µù¥U®É¶¡
- 2011-8-13
- ³Ì«áµn¿ý
- 2017-4-21
|
À°¦£§ï¨}¦¹ÀÉ®×~~¦X¨ÖcsvÀÉ¡A¤å¦rÀɪºrows²Öp¶W¹LA65536®É¥i¥H´«¦ÜC1¦X¨Ö¡ACÄæ²Öp±N¶W¹L65536¦A´«¦ÜE1¡A¦]csvÀɮ׼ƫܦh¡A¥t¥~¯à§_±NcsvÀɦW¤é´Á¥[¤JÀx¦s®æ¤¤¡A¥[¥H°Ï¹j¨CÓcsvÀɪº¶}ÀY»Pµ²§ô¡C |
-
-
test.rar
(390.6 KB)
|
|
|
|
|
|
- ©«¤l
- 5923
- ¥DÃD
- 13
- ºëµØ
- 1
- ¿n¤À
- 5986
- ÂI¦W
- 0
- §@·~¨t²Î
- win10
- ³nÅ骩¥»
- Office 2010
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥xÆW°ò¶©
- µù¥U®É¶¡
- 2010-5-1
- ³Ì«áµn¿ý
- 2022-1-23
|
¦^´_ 5# hsiaohsien
¸Õ¸Õ¬Ý- Option Explicit
- Sub Ex()
- Dim ThisPath$, dirFiIe$, RR As Double, TheDate As Date
- Dim Rng As Range, ShRng As Range
- ThisPath = ThisWorkbook.Path & "\"
- dirFiIe = Dir(ThisPath & "*.csv")
- Set Rng = ThisWorkbook.Sheets(1).[B1]
- Rng.CurrentRegion = ""
- Do While dirFiIe <> ""
- With Workbooks.Open(ThisPath & dirFiIe)
- Set ShRng = .Sheets(1).[a1].CurrentRegion
- RR = Rows.Count - Rng.Row + 1
- TheDate = DateSerial(Mid(dirFiIe, 1, 3) + 1911, Mid(dirFiIe, 4, 2), Mid(dirFiIe, 6, 2))
- If ShRng.Rows.Count <= RR Then
- Rng.Resize(ShRng.Rows.Count, 2) = ShRng.Value
- Rng.Offset(, -1).Resize(ShRng.Rows.Count) = TheDate
- Else
- With ShRng
- Rng.Resize(RR, 2) = .Range(.Cells(1, 1), .Cells(RR, 2)).Value
- Rng.Offset(, -1).Resize(RR) = TheDate
- Set Rng = ThisWorkbook.Sheets(1).Cells(1, Rng.Column + 3)
- Rng.Resize(.Rows.Count - RR + 1, 2) = .Range(.Cells(.Rows.Count - RR + 1, 1), .Cells(.Rows.Count, 2)).Value
- Rng.Offset(, -1).Resize(.Rows.Count - RR + 1) = TheDate
- End With
- End If
- .Close
- If Rng.Row = Rows.Count Then
- Set Rng = ThisWorkbook.Sheets(1).Cells(1, Rng.Column + 3)
- Else
- Set Rng = Rng.End(xlDown).Offset(1)
- End If
- End With
- dirFiIe = Dir
- Loop
- ThisWorkbook.Save
- Set Rng = Nothing
- Set ShRng = Nothing
- End Sub
½Æ»s¥N½X |
|
|
|
|
|
|
- ©«¤l
- 9
- ¥DÃD
- 3
- ºëµØ
- 0
- ¿n¤À
- 17
- ÂI¦W
- 0
- §@·~¨t²Î
- win7
- ³nÅ骩¥»
- office2003
- ¾\ŪÅv
- 10
- µù¥U®É¶¡
- 2011-8-13
- ³Ì«áµn¿ý
- 2017-4-21
|
ÁÂÁÂGBKEEª©¤j |
|
|
|
|
|
|