- ©«¤l
- 4901
- ¥DÃD
- 44
- ºëµØ
- 24
- ¿n¤À
- 4916
- ÂI¦W
- 152
- §@·~¨t²Î
- Windows 7
- ³nÅ骩¥»
- Office 20xx
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥x¥_
- µù¥U®É¶¡
- 2010-4-30
- ³Ì«áµn¿ý
- 2025-6-24
               
|
¦^´_ 9# maiko
InitialFileName¬O¥i¥H¥Î¨Ó«ü©w¹ï¸Üµøµ¡¤¤ªº¹w³Æ¥Ø¿ý
Y¥¼«ü©wInitialFileName«h·|¥H¿ï¶µ¤¤ªº¹w³]¦sÀɥؿý§@¬°¹ï¸Üµøµ¡¹w³]¥Ø¿ý
¦ÓSelectedItems¤~¬O©Ò¿ï¾Üªº¸ê®Æ§¨
©Ò¥H¡A©pn¼g¤JªºÀ³¸Ó¬O SelectedItems¦Ó¤£¬OInitialFileName
³o¼ËSelectedItems¤£ºÞ¬O2003©Î2007³£¬O¤£§t³Ì«áªº±×½u- Sub OpenPath()
- Dim fd As FileDialog, FileName As String, FileFolder As String
- Set fd = Application.FileDialog(msoFileDialogFolderPicker)
- With fd
- .InitialFileName = "E:\" '«ü©w¹ï¸Üµøµ¡ªº¥Ø¿ý
- .AllowMultiSelect = False
- If .Show = -1 Then
- FileFolder = .SelectedItems(1) '¿ï¾Üªº¸ê®Æ§¨
- Else
- End
- End If
- End With
- [F2] = FileFolder
- End Sub
½Æ»s¥N½X
|
|