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

[µo°Ý] ¤p§Ì·Q±Ð¦U¦ì°ª¤â¦³Ãö©ó§ì¨ú¦h­Ó*.CSV ¤ºªº³¡¥÷¼Æ¾Ú

¦^´_ 10# leoman0002

½Ð»¡©ú¹Ï¤ù¬õ®Øªº¸ê®Æ¸Ó¦p¦ó¹ïÀ³?

   
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

©êºp§Ú¤£¤Ó·|¾ã²z¸ê®Æ =.= §Ú¤£ª¾¹D«ç»ò»¡©ú¤~¦n¡A§Ú§â¬ÛÃöªº¹ïÀ³¥´¦bEXCEL ³øªí¸Ì

¨ä¹ê¥H«e¦³¤H¼g¡A¦ý¬O«o¬O§tAccess ¸ê®Æ®w¤è¦¡¼g¡A§Ú­Ìªº¹q¸£..¥u­ã¥Î"WORD & EXCEL "
³Ì«á...§Ú­ÌÁÙ¬O¥Î¶Ç²Îªº"¤â¤u"....§Æ±æ¤j®a¯àÀ°À°¦£ ÁÂÁÂ

PS:¦pªG®³Access ¸ê®Æ®wª©§ï¦¨¤£¥ÎAccess ¸ê®Æ®wªº¤è¦¡·|¤£·|§ó³Â·Ð?

¸ê®Æ¶×¶°.rar (23.42 KB)

¦n¥i·RªºÄ_Ä_

TOP

¦^´_ 12# leoman0002

¤£¬O«ÜÀ´¹ïÀ³Ãö«Y¡A´ú¸Õ¬Ý¬Ý®t²§¦b­þ?
  1. Sub ex()
  2. fd = ThisWorkbook.Path & "\"
  3. fs = Dir(fd & "*.csv")
  4. Do Until fs = ""
  5. With Workbooks.Open(fd & fs)
  6.    With .Sheets(1)
  7.    lot = Replace(.[B6].Value, "'", "")
  8.    lin = Replace(Split(lot, "-")(0), Mid(Split(lot, "-")(0), 3, 5), "")
  9.    ps = Split(lot, "-")(1)
  10.    drv = .[D4].Value
  11.    tm = IIf(.[H12] = "Bef", "[Before]", "[After]")
  12.    ts = .[F12].Value
  13.    ar1 = Array(lot, lin, ps)
  14.    ar2 = Array(drv, tm, ts, ts)
  15.    Set ar3 = .[F21:F24]
  16.    Dim ar(24)
  17.    For i = 27 To 34
  18.       For j = 1 To 3
  19.         ar(s) = .Cells(i, j * 2).Value
  20.         s = s + 1
  21.       Next
  22.     Next
  23.    End With
  24.    With ThisWorkbook.Sheets("Test Data")
  25.    Set a = .[A65536].End(xlUp).Offset(1, 0)
  26.    a.Resize(, 3) = ar1
  27.    a.Offset(, 6).Resize(, 4) = ar2
  28.    a.Offset(, 10) = ar3(1, 1)
  29.    a.Offset(, 17) = ar3(2, 1)
  30.    a.Offset(, 18) = ar3(3, 1)
  31.    a.Offset(, 19) = ar3(4, 1)
  32.    a.Offset(, 20).Resize(, 24) = ar
  33.    End With
  34.    .Close 0
  35. End With
  36. fs = Dir
  37. Loop
  38. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¤£ª¾¹D¬°¤°»ò §ì²Ä¤Gµ§´N¥X²{"°}¦C¯Á¤Þ¶W¥X½d³ò"

§Ú±a¤W§Ú¤â¤Wªºcsv ±zÀ°§Ú¬Ý¬Ý¬O­þ¸Ì¦³°ÝÃD

¨ä¹ê­è­è§Ú¦³«ö¥¨¶°..³£¨S¤ÏÀ³..­ì¨Ó¬Ocsv­n©ñ¦b¦P¤@­Ó¸ê®Æ§X¡A¦pªG§ï¦¨¹³¿ïÀɤ覡

·|«Ü§xÃø¶Ü?

°Å¿è.jpg (147.86 KB)

°Å¿è.jpg

°Å¿è_2.jpg (323.86 KB)

°Å¿è_2.jpg

csv.rar (5.14 KB)

¼Æ­Ó¦PÃþ«¬ªºcsv

¦n¥i·RªºÄ_Ä_

TOP

¬Ý¤£À´³W«ß©Ê¬°¦ó....

Àɮפº¯À½è»P´£¨Ñ¤§xls¯À½èµLªk¹ï·Ó

  ¦h°µ¦h·Q¦h¾Ç²ß¡A¤Ö¬Ý¤Ö¿ù¤Ö°g³~

  ¦h°µ=¦h¦h½m²ß¡A¦h¦h½s¼g¡C
  ¦h·Q=·Q·Q¬°¤°»ò¤H®aµ{¦¡­n¨º¼Ë¼g¡A¦pªG´«¦¨¦Û¤v¡A¤S·|«ç¼g¡C
  ¦h¾Ç²ß=¾Ç²ß¤H®aªºµo°Ý¨Ã¸Ñµª¡A¾Ç²ß¤H®aªº¼gªk

  ¤Ö¬Ý=¥u¬Ý¤£°µ¤]ªPµM

TOP

½Ð°Ý¥i¥H¸ÑÄÀ±z»¡ªº·N«ä¶Ü¡H §Ú¹ïEXCEL ¯uªº¨S¦³«Ü¤F¸Ñ
¤£¹LHsieh ¤j¤jÀ°§ÚÂà¨ì¸ê®ÆÅý§Ú¬Ý¨£¹D¨ì¸p¥ú Åý§Ú¦n·P°Ê!!
§Ú¤âÀY¤W¦³¤@­ÓACCESSª©¡A¥i¬O¤½¥q«o¤£¯à¸Ëaccess ©Ò¥H...Åý¨Æ±¡Åܱo¬Û·í³Â·Ð
¦n¥i·RªºÄ_Ä_

TOP

¦^´_ 16# leoman0002

³Ì¥D­n¬O¹ïÀ³Äæ¦ìªº°ÝÃD¡A¦pªG­n§ì¨úCSVÀɮתº¦ì¸m³£¬O¬Û¦Pªº
§A´N­nÅý§O¤Hª¾¹DCVSªº¨º¨ÇÀx¦s®æ¸ê®Æ­n¼g¤JEXCELªº·J¾ãÀÉ®×
Äæ¦ì¬O¦p¦ó¹ïÀ³?¤W¶Çªº¸ê®Æ´NÀ³¸Ó­n¥H¤W¶Çªº¤º®e§@¹ïÀ³
§A¨Sµo²{EXCEL¤â°Ê¶ñ¤Jªº¸ê®Æ»P§A¤W¶ÇªºCVS¤º®e¤£¦P¶Ü?
¦pªG¤£¬Oª½±µ½Æ»sCVSÀx¦s®æ¤º®e¡A¨º´N¸Ó»¡©ú¸ê®Æªº¨ú±o³W«h
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

§A©Ò»¡ªºªº­È¸ò¤â°Êªº¤£¦P¡A¬O¦]¬°Hsieh ¤j¤j¨S¦³ª`·N¨ì³q¥Î®æ¦¡¡A©Ò¥HÀx¦s®æ§ï¦¨³q¥Î®æ¦¡´N¤@¼Ë¤F¡A³o­Ó§Ú¦³µo²{Àx¦s®æªº°ÝÃD..§Ú¥H¬°§A¦³µo²{ >"<
¦n¥i·RªºÄ_Ä_

TOP

¦^´_ 18# leoman0002
«D¤]¡A¦³¨ÇÄæ¦ì®Ú¥»¦bCSVÀɤº§ä¤£¨ì
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¥»©«³Ì«á¥Ñ leoman0002 ©ó 2013-4-25 06:55 ½s¿è

¶â §A»¡ªºÀ³¸Ó¬O§Ú²Ä¤G¦¸»¡©úªº¨º¦¸ N1AD24DC-1  §PÂ_½u§O N1C ªº¨ººØ¶Ü
ªº½T¬O«D·í³Â·Ð¡A¤£¹LHsieh ¤j¤j¼gªº¨º¨Ç´N«Ü°÷§Ú¥Î¤F!!
¦ý¬O­n¥ý¸Ñ¨M°}¦C¯Á¤Þ¶W¥X½d³ò @@

§Ú¨S¦³«ÜÀ´..¶ÈÀ´¨Ç¥Ö¤ò¡AHsieh ¤j¤j¼g±o§ÚÁÙ­nªáÂI®É¶¡¥h¬ã¨s¤~¦æ!!
¾Ç®üµL²P...¬ðµMµo²{¦Û¤v¦n´ù¤p
¦n¥i·RªºÄ_Ä_

TOP

        ÀR«ä¦Û¦b : ¤H¨ÆªºÁ}Ãø»PµZ¿i¡A´N¬O¤@ºØ¦ÒÅç¡C
ªð¦^¦Cªí ¤W¤@¥DÃD