一点点地

fdggg sddsf fggg dfgfg dfg 

Remote to Print ,Open , and Search filesDim aPath, aFileName As StringSheets("MENU").SelectCalculateaFileName = Sheets("MENU").Range("ChosenFile").TextWorkbooks.Open Filename:=ActiveWorkbook.Path & "\" & aFileNameFor i = 1 To ActiveWorkbook.Sheets.CountActiveWorkbook.Sheets(i).PrintOutNext iActiveWorkbook.CloseEnd SubPublic Sub OpenAExhibit()Dim aPath, aFileName As StringSheets("MENU").SelectCalculateaFileName = Sheets("MENU").Range("ChosenFile").TextWorkbooks.Open Filename:=ActiveWorkbook.Path & "\" & aFileNameEnd SubPublic Sub Excel_FileSearch()    Dim x As Integer    Dim CellToStore As Variant        Set CellToStore = Sheets("MENU").Range("D5")    With Application.FileSearch        .LookIn = ThisWorkbook.Path        .Filename = "*.xls"        If .Execute > 0 Then            MsgBox .FoundFiles.Count & " workbooks were found."            For x = 1 To .FoundFiles.Count                'MsgBox .FoundFiles(x)                CellToStore.Value = Mid(.FoundFiles(x), Len(ThisWorkbook.Path) + 2, Len(.FoundFiles(x)) - Len(ThisWorkbook.Path) + 2)                Set CellToStore = CellToStore.Offset(1, 0)            Next x        Else            MsgBox "No workbooks were found."        End If    End WithEnd Sub .msgcontent .wsharing ul li { text-indent: 0; } 分享 Facebook Plurk YAHOO!

好站連結：http://tw.myblog.yahoo.com/winifred228952