ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] ÅýÄÝ©ÊÁôÂä§ÀÉ¥ç¦b³Q¦C¥X¿ï¾Ü½d³ò¤º?

[µo°Ý] ÅýÄÝ©ÊÁôÂä§ÀÉ¥ç¦b³Q¦C¥X¿ï¾Ü½d³ò¤º?

½Ð±Ð½Ñ¦ì¤j¤j:
    Filt = "Excel Files (*.xls),*.xls"
    FilterIndex = 5
    Title = "Select a File to Import"
    FileName = Application.GetOpenFilename _
        (FileFilter:=Filt, _
         FilterIndex:=FilterIndex, _
         Title:=Title)
    If FileName = False Then
        MsgBox "No file was selected."
        Exit Sub
    End If
¥i§_ÅýÄÝ©ÊÁôÂä§ÀÉ¥ç¦b³Q¦C¥X¿ï¾Ü½d³ò¤º
»yªk¬O??
ÁÂÁÂ

        ÀR«ä¦Û¦b : ¡i®É¶¡¦¨´N¤@¤Á¡j®É¶¡¥i¥H³y´N¤H®æ¡A¥i¥H¦¨´N¨Æ·~¡A¤]¥i¥HÀx¿n¥\¼w¡C
ªð¦^¦Cªí ¤W¤@¥DÃD