[µo°Ý] EXCEL VBA XLSX TO TXT ªÅ¥Õ¦æ

dou10801

½Ð±Ð¦U¦ì«e½ú,xlsxÀÉÂàtxt ¹ï¤è­n¨D³Ì«á­±­n¥[[21]­Ó¥b«¬ªÅ¥Õ(¦pªþ¥óa001.txt),ÁÂÁÂ.[attach]32710[/attach]

dou10801

·PÁÂ...¬ùºÖ®¦¤j¤j«üÂI,°õ¦æ«á¥X²{,¦¹³B»Ý­nª«¥ó.

dou10801

¦^´_ 5# Joforn ¥i¥H¤F,·P®¦.

dou10801

·PÁ¨â¦ì«e½ú«ü¾É,¦¬¤U½d¥»¾Ç²ß.

dou10801

·PÁ n7822123 ´£¨Ñ¥t¤@ºØ«ä¸ô,­«½Æ¦sÀÉ®É,¨t²Î·|¸ß°Ý,[¬O§_­n¨ú¥N],¦p«ö[§_]·|¤¤Â_,¦p¦ó¸Ñ¨M,·P®¦.

dou10801

¦A¦¸½Ð±Ð«e½ú,ªþ¥ó¤¤¿ïa0063.xlsx,Âন.txt®É,¬°¦ó·|¦h²Ä¤@¦æ[½s¸¹],ÁÂÁÂ.

dou10801

¦^´_ 13# n7822123 ·PÁÂn7822123«e½ú«üÂI,¥[ .Rows(1).Delete,¤w¥i¥H¹B§@.·P®¦.

dou10801

¦^´_ 14# quickfixer quickfixer«e½ú,©êºp²Ä¤G­Ó½d¥»¬O²Ä¤@­Ó½d¥»ªº©µ¦ù¥\¯à,²Ä¤G­Ó½d¥»¬O±N³Ì«á¤£¨¬ªÅ¶¡¸É¨ì81¦æ.Arr = .[A1].CurrentRegion
      For R = 1 To UBound(Arr)
          p1 = Len(Cells(R, MDS4))  '³ÆµùÄæªø«×.
          p2 = 29 - p1              '¸ÉªÅ¥Õªø«×
          mcs = mcs1 & Cells(R, MDS2) & Format(Cells(R, MDS3), "00000000000") & "00" & mcs2 & Cells(R, MDS4) & String(p2, " ")
          Arr(R, 1) = mcs
      Next R              ª÷ÃB¬OMSD3¸É0¨ì11¦ì,§Ú¨S»¡©ú²M·¡.