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

[µo°Ý] ½Ð±Ðª©¥D,¦p¦ó¦bExcel¤u§@ªí¤W¿é¥X¬°txtÀÉ«á,©óÄæ¦ì¤W¼W¥[«_¸¹?

[µo°Ý] ½Ð±Ðª©¥D,¦p¦ó¦bExcel¤u§@ªí¤W¿é¥X¬°txtÀÉ«á,©óÄæ¦ì¤W¼W¥[«_¸¹?

Dear ª©¥D¤Î¦U¦ì¤j¤j­Ì±z¦n :
  ¤p§Ì¦³¤@°ÝÃD,¦b¤u§@ªí¤º®e¿é¥X¬°¤å¦rÀÉ«á,·Q¦bAÄ椧¤å¦r«á§¡¥[«_¸¹,¨ä¾l¬Ò¨Ì³y­ìµ{¦¡³]©w,¤£ª¾¸Ó¦p¦ó­×¥¿µ{¦¡,½Ð¦U¦ì¥ý¶i¤Îª©¥D¤£§[«ü¥¿,·P®¦!
  1. Sub TextExport()
  2. Dim rng As Range
  3. Dim iWks As Integer, iRow As Long, iCol As Integer
  4. Dim sTxt As String, sPath As String
  5. Dim ff As Integer
  6. ff = FreeFile
  7.     sPath = ThisWorkbook.Path & "\"
  8.         For iWks = 2 To Worksheets.Count
  9.             Open sPath & Worksheets(iWks).Name & ".txt" For Output As #ff
  10.                 Set rng = Worksheets(iWks).UsedRange
  11.                 For iRow = 2 To rng.Rows.Count + 1
  12.                     For iCol = 1 To rng.Columns.Count
  13.                         If sTxt = "___" Then
  14.                             sTxt = sTxt & " "
  15.                         Else
  16.                             sTxt = sTxt & Format(Worksheets(iWks).Cells(iRow, iCol).Value, "000") & " "
  17.                         End If
  18.                     Next iCol
  19.                     Print #ff, sTxt
  20.                     sTxt = vbNullString
  21.                 Next iRow
  22.             Close #ff
  23.     Next iWks
  24. End Sub
½Æ»s¥N½X
°ÝÃDµo°Ý_20131101_Q.zip (14.27 KB)

¦^´_ 1# cmo140497
16¦æ
  1. sTxt = sTxt & Format(Worksheets(iWks).Cells(iRow, iCol).Value, "000") & IIf(iCol = 1, ":", " ")
½Æ»s¥N½X

TOP

¥Îreplace¤£¦æ¶Ü? copyªÅ¥Õ¦ì¸m, ¶K¤U¦b·j´M, «_¸¹´N¬OreplaceªÅ¥Õ¦ì¸m

TOP

        ÀR«ä¦Û¦b : §ïÅܦۤv¬O¦Û±Ï¡A¼vÅT§O¤H¬O±Ï¤H¡C
ªð¦^¦Cªí ¤W¤@¥DÃD