開かず操作
2012年03月28日
【VBA】ファイルをチラチラさせずに操作する
Sub sample()
Application.ScreenUpdating = False ' チラチラさせずにファイル操作する呪文
' 読み込むブック
Dim frombook As Workbook
Set frombook = Workbooks.Open(ThisWorkbook.Path & "\from.xls")
Dim fromSh01 As Worksheet
Set fromSh01 = frombook.Worksheets(1)
' 書き込むブック
Dim toBook As Workbook
Set toBook = Workbooks.Open(ThisWorkbook.Path & "\to.xls") ' 開く
Dim toSh01 As Worksheet
Set toSh01 = toBook.Worksheets(1)
toSh01.range("A1") = fromSh01.range("A1").Value
toBook.Save ' 保存
toBook.Close ' 閉じる
frombook.Close ' 閉じる
Application.ScreenUpdating = True ' チラチラさせずにファイル操作する呪文
End Sub
続きを読む