«¬ºA¤£²Å¦X

enoch

¦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]

kimbal

¦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)

enoch

¥i¥H¤F, ÁÂÁÂ