- ©«¤l
- 5923
- ¥DÃD
- 13
- ºëµØ
- 1
- ¿n¤À
- 5986
- ÂI¦W
- 0
- §@·~¨t²Î
- win10
- ³nÅ骩¥»
- Office 2010
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥xÆW°ò¶©
- µù¥U®É¶¡
- 2010-5-1
- ³Ì«áµn¿ý
- 2022-1-23
|
¦^´_ 6# clianghot546
WIN10+OFFICE2016«o·|¥d¦b .SaveToFile ("C:\Users1\CYUser\Downloads" & "\" & ªÑ²¼¥N½X & ".CSV")
WIN10+OFFICE2016 ªºpc¸Ì¦³³o¸ê®Æ§¨¶Ü?
¸Õ¸Õ¬Ý «Ø¥ß¸ê®Æ- Option Explicit
- Sub Ex()
- Dim xPath As String, i As Integer, S As String
- xPath = "C:\Users1\CYUser\Downloads"
- For i = 2 To UBound(Split(xPath, "\"))
- S = Mid(xPath, 1, InStr(xPath, Split(xPath, "\")(i)) - 1)
- If Dir(S, vbDirectory) = "" Then MkDir S
- Next
- If Dir(xPath, vbDirectory) = "" Then MkDir xPath
- MsgBox Dir(xPath, vbDirectory)
- End Sub
½Æ»s¥N½X |
|