GBKEE

¦^´_ 1# maiko
2# »¡ InitialFileName¥u¬O§A¶}±ÒDialog®É¤@¶}©lªº¦ì¸m
¹w³]¦p¹Ï

¤U¸ü (43.35 KB)

2012-10-9 15:32

1. Option Explicit
   
2. Sub Ex() ' 2003, 2007 ¤À§O°õ¦æ¬Ý¬Ý¦³µL®t§O
   
3.     MsgBox Application.DefaultFilePath
   
4. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 5# maiko
1#°Ý»¡:  2003  d:\SaveExcel\20121009 ¥i¬O¦b2007®É®³¨ìªº¸ô®|¬O¡Gd:\SaveExcel\
§Úªº¦^ÂÐ ¬O«ü¥X¥i¯à¬O Application.DefaultFilePath   2003,2007 ªº¡u¹w³]Àɮצì¸m¡v ¸ô®|¤£¦P
§A°Ý :      InitialFileName¥u¬O¶}±ÒDialog®É¤@¶}©lªº¦ì¸m ´N¬O¡u¹w³]Àɮצì¸m¡v
                ©Ò¥H¦b¶}±ÒDialog®É¤w¸g§ïÅܤFÀɮצì¸m¡A©Ò¥H«ö¤F½T©w¥H«á©Ò±o¨ìªº¸ô®|¤w¸g¤£¬O¡u¹w³]Àɮצì¸m¡vªº¸ô®|¡C¬O¹ïªº

1. Sub Ex()
   
2.     Application.DefaultFilePath = "D:\TEST"
   
3.     '¥i­×§ï¡u¹w³]Àɮצì¸m¡v
   
4. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 8# maiko
¦Ó§Ú¥Îstillfish00¤j´£¨Ñªº¨ú±oªºÀɮ׸ô®|«o¬O¡Gd:\SaveExcel\20101009¡A«á­±¤Ö¤F¡u\¡v           
¤£¤@¼Ëªº  1# ¬O Sheet1.Range("F2") = fd.InitialFileName
stillfish00 2# ¬O Sheet1.Range("F2") = FileFolder

GBKEE

¦^´_ 15# maiko
«Ü©êºp¨S»¡²M·¡ ½Ð¦A¬Ý  2# ªºµ{¦¡½X ¦³ FileFolder = .SelectedItems(1)   
stillfish00 2# ¬O Sheet1.Range("F2") = FileFolder ¬O³Ì«á¨S¦³ "\"

GBKEE

¦^´_ 17# maiko

1. Option Explicit
   
2. Sub OpenPath()
   
3. Dim fd As FileDialog, FileName As String, FileFolder As String
   
4. Set fd = Application.FileDialog(msoFileDialogFolderPicker)
   
5. With fd
   
6.      .InitialFileName = "E:\"  '«ü©w¹ï¸Üµøµ¡ªº¥Ø¿ý
   
7.      .AllowMultiSelect = False
   
8.     If .Show = -1 Then
   
9.         FileFolder = .SelectedItems(1)   '¿ï¾Üªº¸ê®Æ§¨
   
10.         [F2] = .SelectedItems(1)      '³Ì«á¨S"\"
    
11.         [F3] = fd.InitialFileName    '¦³"\"
    
12.     Else
    
13.         End
    
14.     End If
    
15. End With
    
16. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 19# maiko
¥i¬OInitialFileName¦pªG¥Î¦b2007¤W«o¬O±o¨ìªº¸ô®|·|¤Ö¤F¤@¼h
§Ú¥u¦³2003ª© ©Ò¥H³o®t²§§ÚµL±q°Ñ»Pªº.