[µo°Ý] ChDrive/ ChDir°ÝÃD

acdx

ChDrive¥i¥HÅܧó¥Ø«eªººÏºÐ¾÷, ChDir«h¬O¥Î¨Ó§ïÅܥثeªº¸ê®Æ§¨
§Ú¥Î¤U¦C¤è¦¡¼¶¼g:
filepath = ActiveWorkbook.Path
ChDrive filepath
ChDir filepath
filt = "excel files (*.xls;*.xlsx),*.xls;*.xlsx"
Filename = Application.GetOpenFilename(FileFilter:=filt, FilterIndex:=5, title:="¿ï¾ÜÀÉ®×", MultiSelect:=True)
...
...
§Ú¶}±ÒªºexcelÀɮ׬O¦b¬Y¤@­Ó¸ê®Æ§¨(ActiveWorkbook.Path),¥B§Æ±æ°õ¦æopne file®É¶}±Òªº¸ô®|·|¦b¦P¤@­Ó¸ê®Æ§¨,­Y¬O¶}±ÒªºÀɮ׬Oºô¸ôªÚ¾F¤Wªº¹q¸£(§YActiveWorkbook.Path¤£¬O¦b¦Û¤vªº¹q¸£),´N·|¥X²{¿ù»~,½Ð°Ý¸Ó¦p¦ó§ï¤~¯à­×¥¿³o­Ó¿ù»~?

GBKEE

¦^´_ 1# acdx
¸Õ¸Õ¬Ý

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim filepath As String, A As String, B As String
   
4.     filepath = ActiveWorkbook.Path
   
5.    MsgBox CurDir  '***CurDir ¨ç¼Æ¶Ç¦^¤@­Ó Variant (String)¡A¥Î¨Ó¥Nªí¥Ø«eªº¸ô®|¡C
   
6.     A = Split(CurDir, "\")(0)
   
7.     B = Split(filepath, "\")(0)
   
8.     If A <> B Then ChDrive B
   
9.     ChDir filepath
   
10.     MsgBox CurDir
    
11. End Sub

½Æ»s¥N½X

stillfish00

¦^´_ 1# acdx
ChDrive : §ïÅܤu§@ºÏºÐ¾÷
ChDir : §ïÅܤu§@¥Ø¿ý
¨ÌÃD¥Øªº·N«ä¬O§Æ±æ GetOpenFilename ¿ï¾ÜÀɮ׮ɪº¹w³]¸ô®|¬°¸ÓÀɸô®|¡A
¦ý·íÀɮצb¤À¨É¸ê®Æ§¨(¸ô¸g³q±`¬° "\\¹q¸£¦WºÙ\¸ê®Æ§¨¸ô®|\ÀÉ®×")
µLªk¥ÎChDir¤Á´«¤u§@¥Ø¿ý¨ì "\\¹q¸£¦WºÙ\¸ê®Æ§¨¸ô®|\"

´À¥N¤èªk¡A³oÃäÁ|¨âºØ :
1. §ï¥Î Application.FileDialog(msoFileDialogOpen)¡AFileDialog¥i¥Hª½±µ³]©wInitialFileName

1. Sub m1()
   
2.     Dim filename As String
   
3.     With Application.FileDialog(msoFileDialogOpen)
   
4.         .AllowMultiSelect = False
   
5.         .InitialFileName = ActiveWorkbook.Path
   
6.         .Filters.Clear
   
7.         .Filters.Add "Excel files", "*.xlsx;*.xls"
   
8.         .Show
   
9. 
   
10.         If .SelectedItems.Count = 0 Then Exit Sub   'cancel
    
11.         filename = .SelectedItems(1)
    
12.     End With
    
13.    
    
14.     MsgBox filename
    
15. End Sub

½Æ»s¥N½X

2. ¥Î windows API : SetCurrentDirectory¤Á´«¤u§@¥Ø¿ý¡A¦A¥Î GetOpenFilename

1. Private Declare Function SetCurrentDirectory Lib "kernel32" _
   
2. Alias "SetCurrentDirectoryA" (ByVal lpPathName As String) As Long
   
3. 
   
4. Sub m2()
   
5.     Dim filt As String, filename As String
   
6.     SetCurrentDirectory ActiveWorkbook.Path
   
7.     filt = "excel files (*.xls;*.xlsx),*.xls;*.xlsx"
   
8.     filename = Application.GetOpenFilename(FileFilter:=filt, FilterIndex:=5, Title:="¿ï¾ÜÀÉ®×", MultiSelect:=True)
   
9. End Sub

½Æ»s¥N½X