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

«¬ºA¤£²Å¦X

«¬ºA¤£²Å¦X

¥»©«³Ì«á¥Ñ enoch ©ó 2011-7-12 21:05 ½s¿è

¦bµ{¦¡¤¤¥h¨ì¦¹¦æ¥X²{«¬ºA¤£²Å¦X
Sheets(sheetn).Copy after:=Workbooks(cc).Sheets(1)
¥Nªí¦ó·N«ä, ½Ð°ÝÀ³¦p¦ó­×§ï
¦h¦h«ü±Ð

Sub export()
Dim cc As Object
Sheets("export").Select
ChDir "C:\
Range("A2").Select
Set cc = ActiveCell
Do Until IsEmpty(cc.Value)
sheetn = cc.Offset(0, 1)
If cc <> cc.Offset(-1, 0) Then
Sheets(sheetn).Copy
ActiveWorkbook.SaveAs cc
ThisWorkbook.Activate
Else
'
Sheets(sheetn).Copy after:=Workbooks(cc).Sheets(1)
End If
Set cc = cc.Offset(1, 0)
Loop
End Sub

[attach]6986[/attach]

Book1.zip (11.22 KB)

¦bµ{¦¡¤¤¥h¨ì¦¹¦æ¥X²{«¬ºA¤£²Å¦X
Sheets(sheetn).Copy after:=Workbooks(cc).Sheets(1)
¥Nªí¦ó·N«ä, ½Ð°Ý ...
enoch µoªí©ó 2011-7-12 21:01


¸Õ¸Õ§â
Sheets(sheetn).Copy after:=Workbooks(cc).Sheets(1)
§ï¬°
Sheets(sheetn).Copy after:=Workbooks(cc.Value).Sheets(1)
À´±oµo°Ý,µª®×´N·|¦b¨ä¤¤

¤µ¤éの¤@¬íは  ©ú¤éにない
http://kimbalko-chi.blogspot.com
http://kimbalko.blogspot.com

TOP

¥i¥H¤F, ÁÂÁÂ

TOP

        ÀR«ä¦Û¦b : ºw¤ô¦¨ªe¡C²É¦Ì¦¨ÅÚ¡A¤Å»´¤vÆF¡A¤Å¥Hµ½¤p¦Ó¤£¬°¡C
ªð¦^¦Cªí ¤W¤@¥DÃD