ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

±N¤£¦PÀɮפº¸ê®Æ¶K¦b¦P¤@ÀÉ®×

±N¤£¦PÀɮפº¸ê®Æ¶K¦b¦P¤@ÀÉ®×

½Ð°Ý¦p¦ó±N«ü©w¸ê®Æ§¨C:\temp\¤º©Ò¦³CSV ªºÀÉ®×Äò­Ó¶}±Ò,
µM«á±N¸ê®Æ¶K¦b¦P¤@­Ó·sªº¤u§@ªí¤º, ¦ý¨C­ÓCSVªºÀɮצæ¼Æ¤£©T©w

¨Ò¦pA.CSV ¦@¦³3¦æ, ·|¶K¦b·s¤u§@ªí1-3¦æ
¸ò¦í¶}B.CSV ¦@¦³10¦æ, ·|¶K¦b²Ä4-13¦æ
½Ð«ü±Ð

¦^´_ 1# enoch
¸Õ¸Õ¬Ý
  1. Option Explicit
  2. Sub Ex()
  3.     Dim xlPath As String, Rng As Range, xF As String, Sh As Worksheet
  4.     xlPath = "C:\temp\"                                 '«ü©w¸ê®Æ§¨
  5.     xF = Dir(xlPath & "*.CSV")
  6.     'Dir ¨ç¼Æ ¶Ç¦^¤@­Ó String ¡A¥Î¥Hªí¥Ü¦X¥G±ø¥ó¡BÀÉ®×ÄÝ©Ê¡BºÏºÐ¼Ð°Oªº¤@­ÓÀɮצWºÙ¡B©Î¥Ø¿ý¡BÀɮק¨¦WºÙ¡C
  7.     If xF = "" Then MsgBox xlPath & " ¨S¦³CSV ÀÉ®×": Exit Sub
  8.     Application.ScreenUpdating = False
  9.     Set Rng = Workbooks.Add(1).Sheets(1).[a1]           '·s¶}ÀɮײÄ1­Ó¤u§@ªíªº[A1]ªºÀx¦s®æ
  10.     Do
  11.         With Workbooks.Open(xlPath & xF)                '¶}±Ò Dir ¶Ç¦^ªº String(¦b¦¹¬°ÀɮצWºÙ)
  12.             If Rng.Row > 1 Then Set Rng = Rng.Offset(1) 'Àx¦s®æ¤£¬O[A1]¤U²¾¤@¦C
  13.             .Sheets(1).UsedRange.Copy Rng               'CSVÀɪº¤º®e ½Æ»s¨ì Rng
  14.             Set Rng = Rng.End(xlDown)                    '½Æ»s«á Rng©¹¤U²¾¨ì¸ê®Æ©³ºÝ
  15.             .Close SaveChanges:=False                    'Ãö³¬CSVÀÉ  ¤£¦sÀÉ
  16.         End With
  17.         xF = Dir                                        'Ä~Äò´M§ä CSVÀÉ
  18.     Loop Until xF = ""                                  'Â÷¶}Do °j°éªº±ø¥ó¬O  Ä~Äò´M§ä¤£¨ì CSVÀÉ
  19.     Application.ScreenUpdating = True
  20.     MsgBox xlPath & "  CSV ÀÉ®× ½Æ»s §¹¦¨"
  21.     Set Sh = Rng.Parent
  22.     Sh.Parent.SaveAs  xlPath & "TEST.XLS"   '''''¦sÀÉ
  23. End Sub
½Æ»s¥N½X

TOP

¥»©«³Ì«á¥Ñ enoch ©ó 2012-2-25 12:03 ½s¿è

ÁÂÁÂGBKEE
¦ý¦³³¡¥÷µ{¦¡­ø©ú¥Õ, ·Q½Ð°Ý:
Sheets(1).[a1]  »P Sheets(1).range("a1") ¬Û¦P¶Ü

Set Sh = Rng.Parent  ÂI¥Î©O?

¦P®I·Q³Ì«áÅã¥ÜÁ`¦@½Æ»s¤F¦h¤Ö¦æ¸ê®Æ

¤Î¦b¦¹µ{¦¡¥H¥~, ¦p¦óÀˬd¤u§@ªí¤ºÁ`¦@¥Î¤F¦h¤Ö¦æ

·Ð½Ð¦A«ü±Ð

TOP

¦^´_ 3# enoch
[  ]..¬Ý³o¸Ì

Rng.Parent  ÂI¥Î©O?
µ{¦¡ ¤w DIM  Rng As Range  .Parent ->   Rangeªº¤÷¼h(¤W¤@¼hª«¥ó: ©Ò¦bªº¤u§@ªí )  

MsgBox .Sheets(1).UsedRange.Rows.Count  ' CSVÀɪº¤º®eªº ¦æ¼Æ

©Ò¦³ CSVÀɪº¤º®e½Æ»s§¹²¦«á
MsgBox  Rng.Row   ¥iÅã¥Ü    ½Æ»s©Ò¦³ CSVÀɪº¤º®eªº ¦æ¼Æ

TOP

        ÀR«ä¦Û¦b : §g¤l¬°¥Ø¼Ð¡A¤p¤H¬°¥Øªº¡C
ªð¦^¦Cªí ¤W¤@¥DÃD