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

[µo°Ý] ½Ð°Ý¤j¤j­Ì¡A¸Ó¦p¦ó§ì¨úEXCEL¬YÄæ¡A¥t¦s¦¨txtÀÉ¡H·s¤â½Ð±Ð¡A·PÁ¡C

[µo°Ý] ½Ð°Ý¤j¤j­Ì¡A¸Ó¦p¦ó§ì¨úEXCEL¬YÄæ¡A¥t¦s¦¨txtÀÉ¡H·s¤â½Ð±Ð¡A·PÁ¡C

¤p§Ì·s¤â­è¶}©l¾Ç²ß
·Qªí¹Fªº¬O¡A¦³¤À­¶¡i«ö¶s¡j­¶
«ö¤U«ö¶s«á¡i¤u§@ªí1¡j-HÄæ¦ì¦³¸ê®Æªº¥i¥H¦Û°Ê¥t¦s¦¨TXT¤å¦rÀÉ¡A¦Ü®à­±¤Wªº½m²ß¸ê®Æ§¨¸Ì­±
«ö¤U«ö¶s«á¡i¤u§@ªí2¡j-HÄæ¦ì¦³¸ê®Æªº¥i¥H¦Û°Ê¥t¦s¦¨TXT¤å¦rÀÉ¡A¦Ü®à­±¤Wªº½m²ß¸ê®Æ§¨¸Ì­±
«ö¤U«ö¶s«á¡i¤u§@ªí3¡j-HÄæ¦ì¦³¸ê®Æªº¥i¥H¦Û°Ê¥t¦s¦¨TXT¤å¦rÀÉ¡A¦Ü®à­±¤Wªº½m²ß¸ê®Æ§¨¸Ì­±
§ó¦h¤À­¶¡A¦b³]©w§ó¦h«ö¶s

·Qª¾¹D¸Ó¦p¦ó³]©w¡A¬O­n¥Î¥¨¶°??ÁÙ¬OVBA??

·s¤â¦³Â²³æÂIªº¤èªk¶Ü¡H

·PÁ¤j¤j­Ì

°Ñ¦Ò­×§ï¤§

Sub ¶Ç°ePIXART¥~¥[¦r¦ÜCAM()
   
   
   '²Õ¦XÀɮצWºÙ
    OutFile = "\\89.80.70.1\design\add_word\" & Sheet48.Range("B1") & ".txt"
    '«Ø¥ßÀɮת«¥ó
    Set fs = CreateObject("Scripting.FileSystemObject")
    '¶}±Ò¤@­Ó¥sofªº¤å¦rÀɪ«¥ó¨Ñ¿é¥X
    On Error Resume Next
    On Error GoTo 1
    Set of = fs.CreateTextFile(OutFile, True)
    '¿é¥X¼ÐÃD¦Üof
    of.Write (Sheet71.Range("B2") & Chr(13) & Chr(10))
    of.Write (Sheet71.Range("B3") & Chr(13) & Chr(10))

    Sheet71.Select
    Range("A1").Select
   
    'ÃöÀÉ
    of.Close
1:  Sheet70.Select
    Range("A1").Select
End Sub
ù

TOP

¦^´_ 2# rouber590324


    rouber ¤j¤j¤p§Ì¤£¤~¡AÁÙ¬O¤£¤ÓÀ´

    ¦b³Â·Ð¤j¤j«ü¾É
    ¦pªG¥Î¥¨¶°¨Ó°µªº¸Ü
    ·|¤ñ¸û²³æÂI¶Ü??
     ¦pªG·|ªº¸Ü!!
     ¸Ó¦p¦ó¾Þ§@
     ·PÁÂ

TEST.rar (7.81 KB)

TOP

1.OutFile = "\\89.80.70.1\design\add_word\" & Sheet48.Range("B1") & ".txt"
    '«Ø¥ßÀɮת«¥ó -
  1.1\\89.80.70.1\design\add_word\¸ô®|§ï¬° ¦Ü®à­±¤Wªº½m²ß¸ê®Æ§¨
  1.2 Sheet48.Range("B1") ¦Û¦æÅܧó»Ý¨D.TXTÀɮצWºÙ³sµ²¦ì¸m   
2. of.Write (Sheet71.Range("B2") & Chr(13) & Chr(10)) '¿é¥X¼ÐÃD¦Üof
  2.1 Sheet71.Range("B2") §ï¬°HÄæ¦ì¦³¸ê®Æªº¦ê±µ
ù

TOP

¥»©«³Ì«á¥Ñ n7822123 ©ó 2018-11-15 11:08 ½s¿è

¦^´_ 3# Haroro


¥¨¶°»PVBA¤£¬O¤@¼ËªºªF¦è¶Ü....?

¦pªG§A»¡ªº¥¨¶°¬O«ü¿ý»s¥¨¶°ªº¸Ü¡A¨º¿ý»s¥¨¶°À³¸Ó¬O°µ¤£¨ì§A­nªº¥\¯à

¥u¯à¼gVBA¡A³o­nªá®É¶¡¥h¬ã¨s¡A¦pªG¤§«e¨S±µÄ²¹Lµ{¦¡¡A·Q­nVBA³t¦¨À³¸Ó¤£¤Ó¥i¯à

§Aªº¥\¯à¤£Ãø¡AÀ°§A¼g¦n¦pªþ¥ó¡A¿ï§A­nªº¤u§@ªí¿é¥X§Y¥i(¦Û°Ê§ó·s¤U©Ô¦¡¿ï³æ)¡A¤£¥Î¨º»ò¦h«ö¶s...........

ÁöµM¤£Ãø¡A¦ý¬O§A­n§ó§ïªº¸Ü¡AÁÙ¬O­n¥ý¬ÝÀ´..........¡A³o³¡¤À§O¤HÁ¿¨ä¹ê³£«ÜÃø·N·|¡A­n¦Û¤w¦h¹Á¸Õ

TEST+1.rar (22.21 KB)
µ{¦¡¬O¨Ì»Ý¨D¼gªº¡A»Ý¨Dªí¹F¤£²M·¡
©ÎªÌ¨S¦³¤W¶Çªþ¥ó¡A·R²ö¯à§U

TOP

¥»©«³Ì«á¥Ñ n7822123 ©ó 2018-11-15 12:08 ½s¿è

¦^´_ 5# n7822123


¾á¤ß§A¸ô®|¥´¿ù¡A¦b¦h­Ó¥\¯à"¿ï¸ê®Æ§¨"¡Aµ¹§Aª±¤@ª±

ª±Ãa§O§ä§Ú:D

TEST+2.rar (24.36 KB)
µ{¦¡¬O¨Ì»Ý¨D¼gªº¡A»Ý¨Dªí¹F¤£²M·¡
©ÎªÌ¨S¦³¤W¶Çªþ¥ó¡A·R²ö¯à§U

TOP

¦^´_ 1# Haroro
«ö¶s¤W¤å¦r¥²¶·¬O§Aªº¤u§@ªí¦WºÙ
©Ò¦³«ö¶s«ü©w¥¨¶°¨ì¦P¤@­Ó¥¨¶°Button_Click
  1. Sub Button_Click()
  2. Dim Ob As Shape, Sht As Worksheet
  3. Set Ob = ActiveSheet.Shapes(Application.Caller) '¨ú±o«ö¤Uªº«ö¶s
  4. sh = Ob.OLEFormat.Object.Caption '«ö¶sªº¤å¦r
  5. Set Sht = Sheets(sh) '­nÂ^¨úªº¤u§@ªí
  6. With Sht
  7. Open "D:\" & sh & ".txt" For Output As #1 '¶}±Ò¤å¦rÀÉ®×
  8. For Each a In .Columns("H").SpecialCells(xlCellTypeConstants) 'HÄæ¦ì©Ò¦³¦³¸ê®ÆªºÀx¦s¹j°µ°j°é
  9. Print #1, a '¼g¤J¨C­ÓÀx¦s®æ¤å¦r
  10. Next
  11. Close #1 'Ãö³¬¤å¦rÀÉ
  12. End With
  13. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 4# rouber590324


    ·PÁÂ rouber  ¤j¤j

TOP

¦^´_ 6# n7822123


    ÁÂÁ  Às­ô  

    §Ú·|¸ÕµÛª±¤@ª±(ºN¯ÁºN¯Á)

TOP

¦^´_ 7# Hsieh


    ·PÁ  Hsieh

TOP

        ÀR«ä¦Û¦b : ¯à¥I¥X·R¤ß´N¬OºÖ¡A¯à®ø°£·Ð´o´N¬O¼z¡C
ªð¦^¦Cªí ¤W¤@¥DÃD