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

[µo°Ý] ¦p¦óÅܧó¸ê®Æ§¨¤º©Ò¦³ÀɮתºÀÉ®×Ãþ«¬¡H

¥»©«³Ì«á¥Ñ papaya ©ó 2019-3-10 12:57 ½s¿è

¦^´_ 9# GBKEE

±Ä¥ÎxlNormal=>OK¤F!
¦ý«áÄò¦³²£¥Í¤@¨Ç¤p°ÝÃD~
¥´¶}§ó§ïÃþ«¬«áªºÀÉ®×·|Åã¥Ü"´_­ì_Sheet1"¦WºÙªº¤u§@ªí¡J
¥¼©R¦W-1.png
2019-3-10 12:37

½Ð°Ý¡J
¯à§Q¥Îµ{¦¡±N§ó§ï«áªºÀɮפºªº¤u§@ªí¦WºÙ¤£ÅÜ(¥»¨Óªº"¤u§@ªí¦WºÙ"´N¬O»P"ÀɮצWºÙ"¬Û¦Pªº)
©Î
±N§ó§ï«áÀÉ®×(EX¡J¤µ¤éÁ`ªí(§¡­È±Æ§Ç)-1_1-(°ò·Ç¤é¡G2019-03-05))ªº´£¥Ü®ØÂI"Ãö³¬"¡A¨Ã±N¤u§@ªí¦WºÙ"´_­ì_Sheet1"¦A§ï¬°="ÀɮצWºÙ"~
¥¼©R¦W-2.png
2019-3-10 12:42

ÁÂÁ±z^^

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2019-3-11 07:32 ½s¿è

¦^´_ 11# papaya
§AªºCSV ÀɬO±qºô¸ô¤U¸ü¶Ü? (¥i¯à¸Ì­±¦³¤£¥i¨£¦r¤¸)
¨S¿ìªk¥ÎVBA±N(´_­ì_Sheet1"§ï¬°="ÀɮצWºÙ
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 11# papaya

¬Oªº!§ÚªºcsvÀɬO±qºô¸ô¤U¸ü¦Ó¨Ó¡C
¤£¦n·N«ä¡A²Ä1¦¸±µÄ²§ïÀɪº°ÝÃD¡A³Â·Ð±z³\¦h^^"
ÁÂÁ±z­@¤ßªº¬°§Ú¸Ñ´b~·P®¦

PS:¥i§_³Ò¾r±z±N¤U¦C2­Óµo°ÝÃD§R°£~
http://forum.twbts.com/thread-21580-1-1.html
http://forum.twbts.com/thread-21562-1-1.html
ÁÂÁ±z^^"

TOP

¥»©«³Ì«á¥Ñ papaya ©ó 2019-3-20 06:05 ½s¿è

¦^´_ 12# GBKEE
«_¸¹§ï¬°ªÅ¥Õ.png
2019-3-20 05:58

ÅܧóÀÉ®×Ãþ«¬.rar (23.18 KB)
GBKEE¶Wª©¤j:
­è­èµo²{¤U¸ü«áªº.csvÀɮסA¥H¤â°ÊÂI­«·s©R¦W¡A±N¨äÀɮצWºÙ¤¤ªº¡J(«_¸¹)§ï¬°ªÅ¥Õ«á¡A¨ä¤u§@ªíªº¦WºÙ¤¤ªº¡J(«_¸¹)¤]·|¦Û°Ê§ï¬°ªÅ¥Õ¡A
©Ò¥H¥i§_½Ð±z¦b±N¸ê®Æ§¨¤ºªº.csvÀɮקó§ï¬°.xlsÀɮפ§«e¡A¥ý±N¸ê®Æ§¨¤º©Ò¦³ªº.csvÀɮפ§¦WºÙ¤¤ªº¡J(«_¸¹) §ï¬°ªÅ¥Õ«á¡A¦A±N¸ê®Æ§¨¤ºªº.csvÀɮקó§ï¬°.xlsÀɮסC

¦pªG¤W­zªº¨BÆJVBA»yªk¥i¥H¹F¦¨¡A©|½Ð±z¦A¦¸½ç±Ð¡C
ÁÂÁ±z^^

TOP

¦^´_ 12# GBKEE
¶Wª©¤j:
¤£¦n·N«ä¡A§Ñ¤Fªþ¤W´ú¸Õ¥ÎªºÀɮסC¸É¤W~~~
¤µ¤éÁ`ªí(§¡­È±Æ§Ç)-(°ò·Ç¤é¡G2019-03-05).rar (13.67 KB)

TOP

¥»©«³Ì«á¥Ñ papaya ©ó 2019-3-21 07:46 ½s¿è

¦^´_ 12# GBKEE

¸É¥R»¡©ú:
¦]¬°¥Ø«e¦³±N¦U­ÓÀÉ®×¥ý¥H­«·s©R¦W¤â°Ê±N¸ê®Æ§¨¤ºªºÀɮצWºÙ¤¤ªº¡J(«_¸¹)¤@­Ó¤@­Ó§ï¬°ªÅ¥Õ«á¡A¦A¥H±zªº¸ÑµªÀÉ°õ¦æ§ó§ïÀÉ®×Ãþ«¬~´ú¸Õ¦¨¥\¡C
©Ò¥H¤~·Q¬O§_¯à±N¤W­zªº¤â°Ê¹Lµ{¡A¥Hµ{¦¡»yªk¥N¤§?
¦pªG¥i¦æ¡A·Ð½Ð±z½ç±Ð!ÁÂÁ±z!

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2019-3-21 15:01 ½s¿è

¦^´_ 16# papaya
  1. Option Explicit
  2. Sub Ex()
  3.     Dim Path As String, A As String, B As String
  4.     Path = ThisWorkbook.Path  '½Ð­×§ï¬°§Aªº¸ê®Æ§¨
  5.     A = Dir(Path & "\*.CSV")
  6.     Do While A <> ""
  7.         Name Path & "\" & A As Path & "\" & Replace(A, "¡G", "")
  8.         A = Replace(A, "¡G", "")
  9.          With Workbooks.Open(Path & "\" & A)
  10.              .SaveAs Filename:=Path & "\" & Replace(A, ".csv", ".xls"), FileFormat:=xlNormal
  11.              .Close True
  12.          End With
  13.         A = Dir
  14.     Loop
  15. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

[ª©¥DºÞ²z¯d¨¥]
  • GBKEE(2019/3/21 15:03): 17# ªºµ{¦¡½X¦³¤p¯Ê¥¢.¤w­×¥¿,¦A¸Õ¸Õ¬Ý

¦^´_ 17# GBKEE
¶Wª©¤j:
¥H15#ªºªþ¥ó½d¨Ò´ú¸Õ~¨S¦³¦¨¥\^^"
¥¼©R¦W-1.png
2019-3-21 12:29

¥¼©R¦W-2.png
2019-3-21 12:30

§Ú¤£ª¾¬O¤°»ò­ì¦]?·q½Ð½ç¥¿!ÁÂÁ±z!

TOP

¦^´_ 17# GBKEE
¶Wª©¤j:
OK¤F!
·PÁ±z¦h¦¸ªº­@¤ßÀ°¦£

TOP

        ÀR«ä¦Û¦b : ¬O«D·í±Ð¨|¡AÆg¬ü§@ĵ±§¡C
ªð¦^¦Cªí ¤W¤@¥DÃD