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

Excel ¶×¥X¦¨csvÀÉ + csvÀÉÀɮפj¤p®t²§

Excel ¶×¥X¦¨csvÀÉ + csvÀÉÀɮפj¤p®t²§

Dear ¤j¤j!!

          ³Ìªñ¦b·d¸ê®ÆÂà¨ÓÂà¥h¡A¥t¦s¦¨ .CSVªº®æ¦¡¡A
          ¦pªG¬Oª½±µ±qEXCEL¦s¦¨ .CSV®æ¦¡¡AÀÉ®×·|Åܫܤj!!
          ¦ý¼t°Ó¡Aµ¹ªº.CSV Àɮ׫ܤp¡C
          ¹Á¸Õ¥Î¥t¦s·sÀÉ¡A¦ý¤@ª½¨S¦³¦¨¥\¡A°ÝÃD¦p¤U¡G
          1¡BcsvÀɮפj¤p¡Gtest01¡Btest02¡A¤º®e¤@¼Ë¡A¦ý¬OÀɮפj¤p®t«Ü¤j¡A¬O¬Æ»ò­ì¦]©O? (­Ó¤H²q´ú¬OcsvªºÀÉ®×°ÝÃD¡GMacintosh CSV¡BMSDOS CSV¡BWindows CSV)
                test_01.zip (1.12 KB) test_02.zip (3.16 KB)
          2¡B¶×¥Xcsv¡G¦b¹Á¸Õ±qexcel Âà´«ÀɮסA±N¨ä¤¤¤@­ÓsheetÂà¥X¥t¦s¦¨csvÀÉ  (¥B¬O­nÂন¹³test01À£ÁYÀɤj¤pªºcsvÀÉ)
                                  ¦ý¤@ª½¥d¥dªº¡A
                  ½m²ßÀÉ_¸ê®Æ¶×¦¨csvÀÉ.zip (83.43 KB)
  1. Private Sub CommandButton3_Click()  '¶×¥X¸ê®Æ
  2. NA01 = "test"
  3. Sheets("¸ê®Æ").Select
  4. Sheets("¸ê®Æ").Copy
  5. ActiveWorkbook.SaveAs Filename:="D:\Users\Hugh\Desktop\" & NA01, FileFormat:=xlCSV
  6. End Sub
½Æ»s¥N½X
½Ð¤j¤j«üÂI¤@¤U!!
¾Ç²ß¤~¯à´£¤É¦Û¤v

csvÀɮפj¤p¡Gtest01¡Btest02¡A¤º®e¤@¼Ë¡A¦ý¬OÀɮפj¤p®t«Ü¤j¡A¬O¬Æ»ò­ì¦]©O?


csv ª½±µ¥Îµ§°O¥»³nÅé´N¥i¥H¶}¤F

§A¥i¥H¸ÕµÛ¶}±Ò¨Ó¬Ý¬Ý

´Nª¾¹D¤F

©Ò¿×ªº¤º®e¤@¼Ë¬O¿ùı

TOP

Sub Macro1()
NA01 = "test"
Sheets("¸ê®Æ").Cells.ClearFormats
Sheets("¸ê®Æ").Copy
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & NA01, FileFormat:=xlCSV
End Sub

TOP

[¸ê®Æ]¤u§@ªí³Q[®æ¦¡]¦ûº¡¤F1000¦æ,
Âà¥Xªºcsv¥]§t¤F¤@°ïªÅ®æ,
¥i¥Î[°O¨Æ¥»]¬Ý¤@¤U text_02, ¥kÃä¤Î¤U¤è¤@¤j°ï³r¸¹,
·íµMÀÉ®×´N¤j¦h¤F!

¥i¿ï¨ú¾ã±i¤u§@ªí, ²M°£¥þ³¡ªº®æ¦¡³]©w, ¦A°õ¦æÂàcsv

TOP

        ÀR«ä¦Û¦b : ¡i®É¤é²öªÅ¹L¡j¤@­Ó¤H¦b¥@¶¡°µ¤F¦h¤Ö¨Æ¡A´Nµ¥©ó¹Ø©R¦³¦hªø¡C¦]¦¹¥²¶·»P®É¶¡Ävª§¡A¤Á²ö¨Ï®É¤éªÅ¹L¡C
ªð¦^¦Cªí ¤W¤@¥DÃD