°»´ú"1.xls"ÀɬO§_§e¥´¶}ª¬ºA?

yangjie

½Ð±Ð¦U¦ì¤j¤j:
        ­Ó¤H¦b¥ÎVBA¥´¶}¥t¥~ExcelÀɦp"1.xls"ÀÉ,­Y³{"1.xls"ÀÉ¥»¨Ó´N¤w§e¥´¶}ª¬ºA®É,´N¤£¤Ó«ê·í¡C
½Ð±Ð¦U¦ì¥ý¶i­Y­n°»´ú"1.xls"ÀɬO§_§e¥´¶}ª¬ºA?À³¦p¦ó¹B¥ÎVBA»yªk?

yangjie

¦^´_ 4# Hsieh
    ½Ð±Ð©óªO¥D¥ý¶i
    Dim Filt As String
    Dim FilterIndex As Integer
    Dim fileName As Variant
    Dim Title As String
    Filt = "Excel Files (*.xls),*.xls"
    FilterIndex = 5
    Title = "Select a File for Import"
    fileName = Application.GetOpenFilename _
        (FileFilter:=Filt, _
         FilterIndex:=FilterIndex, _
         Title:=Title)
    If fileName = False Then
        MsgBox "No file was selected."
        Exit Sub
    End If
§Ú¥u­n±o¨ìfileName ªºÀɦW(string)À³¦p¦ó¤U»yªk?(¤£§tpath)
ÁÂÁÂ

yangjie

¦^´_ 7# yangjie ¥D­n

    ¥D­n¤U¤@¦C­nOpen
Set wb = Workbooks.Open(fileName, True, False)
   ¦ý±`¦b¤w¥´¶}¤§¤U°µ­«½Æ¥´¶}
¤£¤äÀ³¦p¦ó³B²z

yangjie

¦^´_ 4# Hsieh
     Hseih¤j¤j     ÁÂÁ±z
Function IsOpen(Fs As String) As Boolean
IsOpen = False
For Each w In Windows
  If w.Caption = Fs Then IsOpen = True: Exit For
Next
End Function

    ¨ä¤¤ fs »P ¤W­zfilename «¬ºA¤£²Å §Ú´N¥d¦í¤F «ç»ò¿ì?

yangjie

¦^´_ 4# Hsieh
¹ï¤£°_ ±N¤j¦W«÷¿ù¤F À³¬°Hsieh¤j¤j

yangjie

¦^´_ 4# Hsieh
ÁÂÁÂHsiehª©¥D¨ó§Ufunction Isopen()ªº«ü¾É
¦Û­Ó¨àµy·L¦³ÂI¬ð¯}
Sub ¿ï¾ÜÀɦW¶×¤J()
    Dim Path1, Str1 As String
    Dim wb As Workbook
    Path1 = Application.ActiveWorkbook.Path

   
    Dim Filt As String
    Dim FilterIndex As Integer
    Dim fileName As Variant
    Dim Title As String
    Filt = "Excel Files (*.xls),*.xls"
    FilterIndex = 5
    Title = "Select a File for Import"
    fileName = Application.GetOpenFilename _
        (FileFilter:=Filt, _
         FilterIndex:=FilterIndex, _
         Title:=Title)
    If fileName = False Then
        MsgBox "No file was selected."
        Exit Sub
    End If
    Dim fso3
    Set fso3 = CreateObject("Scripting.FileSystemObject")
    GetAn3 = fso3.GetbaseName(fileName)
    If IsOpen(GetAn3 & ".xls") <> False Then
        Workbooks(GetAn3 & ".xls").Activate
    Else
        Set wb = Workbooks.Open(fileName, True, False)
    End If
    f_bookname2 = ActiveWorkbook.Name
    Windows(f_bookname2).Activate
    Sheets(1).Activate
end sub

Function IsOpen(Fs As String) As Boolean
    IsOpen = False
    For Each w In Windows
         If w.Caption = Fs Then IsOpen = True: Exit For
   Next
End Function
¦A½Ð±Ð¤j¤j
   1. ¦p¦óÅýApplication.GetOpenFilename ©Ò¶}¤§µøµ¡¬°path1?
   2.¥i¦³§ó¦nªº¼gªk?
ÁÂÁÂ

yangjie

¦^´_ 14# GBKEE
Á¤F
if Ucase(filename)="FALSE" then
»P
if filename=False then
¥i¦³¬Û²§

yangjie

¦^´_ 15# Hsieh
¤ô°Õ
Á¤F

yangjie

¦^´_ 18# Hsieh

ÁÂÁ §¹¥þ¤F¸Ñ