Excel VBA スニペット

Dim fso As Object Set fso = CreateObject("Scripting.FileSystemObject")

'上書き保存 Workbooks("Dummy.xlsx").Close SaveChanges:=True '保存せずに保存 Workbooks("Dummy.xlsx").Close SaveChanges:=False

'指定したブックを開く(ドライブ名・・・拡張子) Workbooks.Open Filename:="C:\・・・\test.xlsx"

'最終行を取得する cnt = Cells(Rows.Count, 1).End(xlUp).Row

'警告メッセージの停止 Application.DisplayAlerts = False Application.DisplayAlerts = True

'1秒間処理を中断する Application.Wait Now + TimeValue("00:00:1")

Application.ScreenUpdating = False Application.ScreenUpdating = True

Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")

'上書き保存
Workbooks("Dummy.xlsx").Close SaveChanges:=True

'保存せずに保存
Workbooks("Dummy.xlsx").Close SaveChanges:=False

'指定したブックを開く(ドライブ名・・・拡張子)
Workbooks.Open Filename:="C:\・・・\test.xlsx"

'最終行を取得する
cnt = Cells(Rows.Count, 1).End(xlUp).Row

'警告メッセージの停止
Application.DisplayAlerts = False

Application.DisplayAlerts = True

'1秒間処理を中断する
Application.Wait Now + TimeValue("00:00:1")

Application.ScreenUpdating = False
Application.ScreenUpdating = True