¦p¦ó¥i¥H¹ê²{¹³ excel ªº¶}±ÒÂÂÀɤ@¼ËªºÀÉ®×Ãþ«¬¿ï¾Ü

grostcar

½Ð°Ý¦p¦ó³]©wÀɮתºÃþ«¬?
¦p¦ó¥i¥H¹ê²{¹³ excel ªº¶}±ÒÂÂÀɤ@¼Ë
¥i¥H¿ï¾Ü¤£¦PªºÀÉ®×Ãþ«¬??

¥H¤U¬O§Ú¼gªºopen file ªº code

   

Set Fso = CreateObject("Scripting.FileSystemObject")
        Set Fd = Application.FileDialog(msoFileDialogFilePicker)
        Fd.Title = "Please select a file"
        Select Case Fd.Show
            Case 0
                MsgBox ("You have not select a file")
                add_file = False
                Exit Function
                UserForm.Show
            Case -1
                Fld = Fd.SelectedItems(1)
                add_file = True
        End Select
    Workbook.Open Filename:=Fld, ReadOnly:=True

grostcar

¬O³o­Ó¤F·PÁ®v¥S


¨S¦³°ÝÃD¤F
ÁÂÁ®v¥SÀ°¦£