[µo°Ý] ¤å¦r´«¦æ¤è¦¡CrLfÂàLf(¥i¥ÎvbaÂà´«¶Ü?)¤½¥q¥Îªº

PKKO

§Ú¥Îexcelµ{¦¡¼g¤F¤@­Ó¦Û°Ê¤Æªºµ{¦¡
¦ýexcel¬O¥ÎCr+Lfªº»y¨¥¤è¦¡´«¦æ
¾É­P§Ú¤½¥qªº´ú¸Õ³nÅé·|Ū¨ú¿ù»~

§Ú¥ÎEmEditor¶}±Ò¤§«á¤~µo²{
­ì¥»ªºµ{¦¡³£¬OLfªº´«¦æ
§Ú¼gªºµ{¦¡«o³£¬OCr+Lfªº»y¨¥¤è¦¡´«¦æ

§Ú¦bºô¸ô¤W¬d¨ìVba¦]¸Ó¥i¥H¼g¥X´«¦æªº¤èªk
¦³¤j¤j¥i¥H±Ð¾É¤@¤U¶Ü?

§Ú·|°ò¥»ªºvba¡A¦]¬°¬O¤½¥q­n¥Îªº
­Y¬O¤â°Ê¼gµ{¦¡¹ê¦b«Ü¤[¡A¦Û°Ê¤Æµ{¦¡§Ö¦h¤F¡A¦ý¥Ø«e¹J¨ì´«¦æªº§xÃø¡A¦A³Â·Ð¦U¦ì¤j¤j¤F¡I

oobird

¥i¥ÎChr(10)´À¥NvbCrLf

PKKO

¦^´_ 3# sunnyso
³o¬O§Ú¦P¨Æ»¡¥L¼gªºvba
¥L¥Î¦b¥Lªºµ{¦¡¤º¤w¸g¥i¥Hª½±µÅܦ¨Lfªº´«¦æ¤è¦¡
¥i¬O...§Ú¬Ý¤£À´
¦³¤H¥i¥H¸ÑÄÀ¤@¤U¶Ü?
    Sub Macro1()
'
' Macro1 ¥¨¶°ªí
'

        Set filesys = CreateObject("Scripting.FileSystemObject")
   
        
            Set DebugFile1 = filesys.OpenTextFile(tplpath & "\" & folist & "\" & xxx, 2)
         
                DebugFile1.write themats(t) & Chr(10)

Set filesys = Nothing
'
End Sub

PKKO

¦^´_ 2# oobird


    ¥Îªk¸Ó¦p¦ó¨Ï¥Î©O~?

kimbal

¦^´_ 4# PKKO


    & Chr(10) = & LF

PKKO

·PÁ¦U¦ì¤j¤j¤w¸g¼g¥X¨Ó¥i¥H¥ÎLF´«¦æ¤F
¦ý¬O...­n¦p¦ó¼g¦bB1ªº¦ì¸mªü?
§Ú¼g§¹ªºµ{¦¡·|Åܦ¨A1:A193³£¦³­È
¦ý­ì¥»ªºSHEET1¬OA1:G7³£¦³­È
¨ä¥L¬OA8:A193
­n¦p¦ó¼g¤~¯à¼g¦bB1ªü?

Sub Macro1()
'

'

  Set filesys = CreateObject("Scripting.FileSystemObject")
   
   Set a = filesys.createTextFile("C:\Documents and Settings\bobchiou\®à­±" & "\ah504_8_2.tpl", True)

    rec = 1

    OO = ThisWorkbook.Sheets("Sheet1").Range("J3")

    Do While I <= OO


    AB = ThisWorkbook.Sheets("Sheet1").Cells(rec, 1).Value

      rec = rec + 1
      I = rec
      a.write AB & Chr(10)
                  
    Loop
   
   
        a.Close
'
End Sub

PKKO

¤w±oª¾¸Ñ¨M¤è¦¡
AB = ThisWorkbook.Sheets("Sheet1").Cells(rec, 1).Value

CD = ThisWorkbook.Sheets("Sheet1").Cells(rec, 2).Value


a.write AB & Chr(9) & CD & Chr(10)