GBKEE

¦^´_ 1# cr123a
¸Õ¸Õ¬Ý

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim Rng As Range, i As Integer
   
4.     Set Rng = ActiveWorkbook.Sheets(1).Range("D1:D20")
   
5.     i = 1
   
6.     Do While Application.CountA(Rng.Columns(1)) > 0    '­pºâ½d³ò²Ä¤@Ä椺¦³¸ê®Æªº¦C¼Æ
   
7.         With Workbooks.Add(1)
   
8.             Rng.Copy .Sheets(1).Range("A1")
   
9.             .SaveAs Filename:="D:\test\HABC-00" & i & ".tex", FileFormat:=xlUnicodeText, CreateBackup:=False
   
10.             .Close True
    
11.         End With
    
12.         i = i + 1
    
13.         Set Rng = Rng.Offset(20)  '©¹¤U¦ì²¾20¦C
    
14.     Loop
    
15. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 3# cr123a
½Ðªþ¤WÀÉ®×,¤~ª¾¾å

GBKEE

¦^´_ 5# cr123a
¥i¶ÇªºÀÉ®×Ãþ«¬ chm, pdf, zip, rar, tar, gz, bzip2, gif, jpg, jpeg, png  
¤å¥ó»Ý¥ÎÀ£ÁYÀÉ   zip, rar

¤U¸ü (20.12 KB)

2011-9-9 11:39

GBKEE

¦^´_ 7# cr123a
§A¤W¶ÇªºªFªF §ÚµLªk¤U¸ü   §Úª¾¹Dªº

1. Sub Macro1()
   
2.     Dim Rng As Range, i As Integer
   
3.     With ActiveWorkbook.Sheets(1)   
   
4.         Set Rng = .Range("F" & .[C3]).Resize(.[C1])
   
5.         '"F" & .[C3]-> F101   'Resize(.[C1])-> Resize(10)ÂX¥R½d³ò¬°10¦C
   
6.         i = 1
   
7.         Do While i <= .[C2]   '±±¨î¨C­Ó¥X¨ÓªºÀÉ®×¼Æ
   
8.             With Workbooks.Add(1)
   
9.                ' Rng.Copy .Sheets(1).Range("A1")  '->COPY ½Æ»s(¥þ³¡¤º®e:¤½¦¡ ·íµM¬O#REF! )
   
10.                 .Sheets(1).Range("A1").Resize(Rng.Rows.Count, Rng.Columns.Count) = Rng.Value
    
11.                 .SaveAs Filename:="D:\TEST\HABCGGG-00" & i & ".txt", FileFormat:=xlUnicodeText, CreateBackup:=False
    
12.                 .Close True
    
13.             End With
    
14.             i = i + 1
    
15.             Set Rng = Rng.Offset(.[C1])  '©¹¤U¦ì²¾C1«ü©w¦C¼Æ
    
16.         Loop
    
17.     End With
    
18. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 10# cr123a
·Q§â¤å¥ó §ï¦¨  big 5½s½X ªº¤å¥óÀÉ   §ä©_«Ü¦h®Ñ³£¨S¼g¨ì³o­Ó
¥i¨ìºû°ò¦Ê¬ì ¬Ý¬Ý