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

[µo°Ý] ¦p¦ó¦bexcel¤¤¥HVBA¥t¦s°Å¶K諸¸ê®Æ?

[µo°Ý] ¦p¦ó¦bexcel¤¤¥HVBA¥t¦s°Å¶K諸¸ê®Æ?

¦p¦ó¦bexcel¤¤¥HVBA¥t¦s°Å¶K諸¸ê®Æ(txt§Y¥i¡A¦pªG¯à¦s¦¨¥ô·N°ÆÀɦW§ó¦n¡A¤è«K¨ä¥Lµ{¦¡Åª¨ú)¡AµM«áexcelÁÙ­n¯d¦b­ì¨ÓªºÀɮסA¦]¬°ÁÙ­nÄ~Äò½s¿è

­ì·Q»¡¥i¥H¶}­Ó·sÀÉ¥t¦s´N¦n¡A¦ý¬O«oµo²{¤w¸gÂ÷¶}­ì¨ÓªºÀɮסA¤£§QÄ~Äò½s¿è

¤£ª¾¹D¦³¨S¦³¬Æ»ò¤ñ¸û¦nªº¤èªk
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

¦^´_ 1# bgtsai


    Clipboard - ¦s¨ú°Å¶Kï
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

·PÁÂHsiehªº¦^ÂСA¤£¹L¸Ó¤u¨ã¨ä¹ê»P§Úªº»Ý¨D­è¦n¬Û¤Ï XD
§Ú¥Ø«e¬O¥Î¤U­±ªº¤èªk¹F¦¨¥Øªº
  1. Sub ¿ï¨ú¥t¦stxt()
  2. '
  3. ' ¿ï¨ú°Ï°ì¥t¦s¬°txt
  4. '

  5. '
  6.     Application.ScreenUpdating = False
  7.     Range("A1").Select
  8.     Selection.Copy
  9.     Workbooks.Add
  10.     ActiveSheet.Paste
  11.     Application.DisplayAlerts = False
  12.     ActiveWorkbook.SaveAs Filename:="C:\temp.txt", FileFormat:=xlUnicodeText, _
  13.     CreateBackup:=False
  14.     ActiveWorkbook.Save
  15.     ActiveWindow.Close
  16.     Application.DisplayAlerts = True
  17. End Sub
½Æ»s¥N½X
§Ú­Ó¤H¬Oı±o¶¤F¤@¤j°é¡A¤£ª¾¬O§_¦³¤ñ¸ûÀu¶®ªº¤èªk?
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

        ÀR«ä¦Û¦b : ªY½à§O¤H´N¬O²øÄY¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD