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

[µo°Ý] ¥Îexcel¥´¶}µ§°O¥»

1.ExcelÀɧA´N¦Û¤v«Ø¥ß§a¡I
2.¦]¬°¦s¨úC:\Documents and Settings\Administrator·|¦³Åv­­°ÝÃD¡A©Ò¥H§Ú§ï¬°D:\
3.50­Ósheet¹ê¦b¬O¤ÓÀ½¤F¡A©Ò¥H§ï¦¨°ÊºA°»´ú¡A¤£ºÞ¥Ø«e¶}±Òªº¬¡­¶Ã¯¦³´X­Ósheet¡A·|Â^¨ú¨C¤@­ÓsheetªºA1:A20¼Æ­È¼g¤J1.txt

Sub WriteTxtFile()
Dim WriteFile As String
WriteFile = "D:\1.txt"
Open WriteFile For Output As #1

SheetsCount = Application.Sheets.Count

'¼g¤J¸ê®Æ
For i = 1 To SheetsCount
    Sheets(i).Select
    For j = 1 To 20
        Print #1, Cells(j, 1)
    Next j
Next i
Close #1
End Sub

TOP

        ÀR«ä¦Û¦b : ¡i¦æµ½­n¤Î®É¡j¦æµ½­n¤Î®É¡A¥\¼w­n«ùÄò¡C¦p¿N¶}¤ô¤@¯ë¡A¥¼¿N¶}¤§«e¤d¸U¤£­n°±º¶¤õ­Ô¡A§_«h­«¨Ó´N¤Ó¶O¨Æ¤F¡C
ªð¦^¦Cªí ¤W¤@¥DÃD