| |
いつも拝見しております。
下記のコードでは
application.screenupdating=falseが
効かず、画面にちらつきが出てしまいます。
どこが間違っているのでしょうか。
どなたか教えていただけますでようか。
宜しくお願いします。
Sub test()
Dim stime, etime As Date
Dim myfso As Object
Dim i As Integer
Dim bok As Workbook
Dim flg As Boolean
Dim FL, FL1 As String
flg=True
stime = Time
Application.ScreenUpdating = False
Set myfso = CreateObject("scripting.filesystemobject")
With Application.FileSearch
.NewSearch
.LookIn = "c:\my document and settings\hama\notes"
.SearchSubFolders = True
.Filename = "*.xls"
If .Execute() > 0 Then
For i = 1 To .FoundFiles.Count
FL = myfso.getfile(.FoundFiles(i)).parentfolder.Name
FL1 = myfso.getparentfoldername(.FoundFiles(i))
Set bok = Workbooks.Open(.FoundFiles(i))
'処理
flg = False
bok.Close savechanges:=False
Next i
End If
End With
Set myfso = Nothing
Application.ScreenUpdating = True
etime = Time
MsgBox "終了" & (etime - stime) * 24 * 60 * 60 & "秒"
End Sub
＊ここに投稿されたコードやヘルプをお借りし、書いています。
かなりお世話になっています。ありがとうございます。
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
