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

Load More

タイトルとURLをコピーしました