- ©«¤l
- 106
- ¥DÃD
- 35
- ºëµØ
- 0
- ¿n¤À
- 146
- ÂI¦W
- 0
- §@·~¨t²Î
- Window 7
- ³nÅ骩¥»
- 2007
- ¾\ŪÅv
- 20
- ©Ê§O
- ¤k
- µù¥U®É¶¡
- 2011-8-30
- ³Ì«áµn¿ý
- 2024-3-26
|
¦^´_ 4# stillfish00
±z¦n, §Ú¦³¤GÓ¨BÆJ, ¦ý¤£ª¾¹D«ç»ò¦X¨Ö, ¯à½Ð°Ý¸Ó«ç»ò§ï¶Ü? ·PÁÂ!
1. §Ú¦b®à±«Ø¥ß¦³«ü©w¦WºÙªºªÅ¸ê®Æ§¨, OK
2. «Ø¥ß¤å¦rÀÉ«á, ¥t¦s·sÀÉ¥B«ü©w¦WºÙªºEXCELÀÉ, OK
3. ³oÓEXCEL ÀÉ, §Ú·Q©ñ¶i³oӪŸê®Æ§¨(©Î¨ä¥¦«ü©wªº¸ê®Æ§¨) , ³o¸Ì¤£ª¾¹D«ç»ò§ï........
Sub AddFolder()
On Error Resume Next
MkDir (ThisWorkbook.Path & "/" & Range("I3"))
On Error GoTo 0
Dim wbNew As Workbook, name As String
Set wbNew = Workbooks.Add
ThisWorkbook.Sheets("SI").Copy Before:=wbNew.Sheets(1)
With wbNew.Sheets(1)
.UsedRange.Value = .UsedRange.Value
name = "SI -" & .[L12]
.[P1:Q100].Delete Shift:=xlShiftToLeft
.SaveAs ThisWorkbook.Path & Application.PathSeparator & name
End With
End Sub
test.rar (163.8 KB)
|
|