- ©«¤l
- 50
- ¥DÃD
- 8
- ºëµØ
- 0
- ¿n¤À
- 54
- ÂI¦W
- 0
- §@·~¨t²Î
- windows7
- ³nÅ骩¥»
- EXCEL 2007
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2015-3-24
- ³Ì«áµn¿ý
- 2015-7-13
|
¦^´_ 9# PKKO
·PÁÂPKKO- If Application.GetSaveAsFilename("\\Nsa310\¦ô»ù³Æ¥÷\CWCO\³Æ-¹q¸£¦ô»ù\") Then
- Dim myName As String
- Sheets("µ¡").Select
- myName = Range("AB4") & "-" & Range("AB5") & "-" & Range("AB6")
- ActiveWorkbook.SaveAs Filename:=myName, FileFormat:=xlExcel8, Password:="1273"
- Else
- MsgBox ("¤w¨ú®ø")
- End If
½Æ»s¥N½X °ò¥»¤W¥\¯à®t¤£¦h±µªñ§Únªº¤F
¤£¹L©_©Çªº¬O°õ¦æ³o¤@¦æ®É
Application.GetSaveAsFilename ("\\Nsa310\¦ô»ù³Æ¥÷\CWCO\³Æ-¹q¸£¦ô»ù\")
¥i¥H«ü©w¦sÀɪº¸ô®|
¤£¹L¥L¤@©w·|¼u¥X³oÓµøµ¡
¤£ºÞ«ö½T©wÁÙ¬O¨ú®ø³Ì«áÁÙ¬O¾a³o¦æ¥t¦sÀÉ®×
ActiveWorkbook.SaveAs Filename:=myName, FileFormat:=xlExcel8, Password:="1273"
ÁöµM±µªñ§Únªº¤F ¤£¹L·Pı´N¬O©Ç©Çªº!!~ |
-
-
2.png
(74.09 KB)
-
-
2.png
(74.09 KB)
|