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?
ÁÂÁÂ

ML089

¦^´_ 9# yangjie

Function IsOpen() §Ú´ú¸Õ¬O¥i¥H°õ¦æ

¦ýÀɮצWºÙ¦³¤À¤j¤p¼g¡A¨Ò¦p Book1»PBOOK1´N·|§PÂ_¬°¤£¦P
WINDOW¨t²ÎªºÀÉ®×À³¸Ó¬O¨S¦³¤À¤j¤p¼g(ÁöµMÅã¬O¦³¤j¤p¼g)

ML089

¦^´_ 4# Hsieh

­ì¨Ó¥Î.Caption´N¥i¥H¨M¸Ñ¡A¤Ó·PÁ§A¤F

yangjie

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

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

¦^´_ 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
    ½Ð±Ð©óª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)
ÁÂÁÂ

Hsieh

¦^´_ 5# ¤p«L«È

¤d¸U§O³o»ò»¡¡A°Q½×°Ï¨S¦³¯u¥¿¹ï»P¿ù
«i©óµoªí¤~¯àÀò±o§ó¦h

¤p«L«È

¦^´_ 4# Hsieh


   
¹ï¤£°_¡A­J¶Ã¦^µª¿ùªºµª®×¡A¤Q¤À©êºp:dizzy:

Hsieh

¦^´_ 3# ML089


    ³o­Ó°ÝÃD²o¯A¨ì¶}±ÒÀɮ׬O§_¬O¦b¦P¤@­ÓApplication
¦pªG¤w±Ò°Ê¤@­Ó¥þ·sªºExcelµM«á¶}±Ò¨ä¥LÀÉ®×
¨º»ò¦P¤@­ÓApplication©Ò¶}±ÒªºÀɮ׳£¯à§ä±o¨ì
¦ý¬O°²¦p¶}±Ò¤F¤@¨ÇÂÂÀÉ¡AµM«á«ö¤Uµ{¦¡¶°¸ÌªºExcelµ{¦¡
¦b³o­Ó·sªºÀɮפº«hµLªk·j´M¨ì¤§«e¶}±ÒªºÀɮצWºÙ
¥²¶·¬O¦b¤w¸g¶}±Òªºµ{¦¡¤¤
¥HÀÉ®×/¶}·sÀɮפ~¯à°÷·j´M©Ò¦³¤w¶}±ÒÀÉ®×
FilesExists.rar (7.6 KB)

¤U¸ü¦¸¼Æ: 8

2012-8-31 22:32

¤U¸ü (1.54 MB)

2012-8-31 22:20