- ©«¤l
- 21
- ¥DÃD
- 2
- ºëµØ
- 0
- ¿n¤À
- 27
- ÂI¦W
- 0
- §@·~¨t²Î
- win7
- ³nÅ骩¥»
- office2010
- ¾\ŪÅv
- 10
- ©Ê§O
- ¨k
- ¨Ó¦Û
- Tainan
- µù¥U®É¶¡
- 2012-1-3
- ³Ì«áµn¿ý
- 2013-2-28
|
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 |
|