毎回下記の確認画面が出てきます。毎回ハイをクリック選択するのが面倒です。
確認画面をスルーまたはハイを選択したいです。
解決方法を教えて下さい。
Sub Sample()
Dim so As Object, p As String, r As String
Dim f As String, bk As Workbook, n As String
Set so = CreateObject("Scripting.FileSystemObject")
p = CreateObject("Shell.Application").Namespace("shell:Downloads").self.Path
r = Application.CurrentProject.Path & "\JPIO"
If so.FolderExists(r) = False Then
so.CreateFolder (r)
End If
f = Dir(p & "\cU*.csv")
Do Until f = ""
Set bk = Workbooks.Open(p & "\" & f)
With bk.ActiveSheet
rows("1:1").Delete
End With
n = r & "\" & "JPIO" & ".csv"
bk.SaveAs fileName:=n, FileFormat:=xlCSV
bk.Close
Set bk = Nothing
f = Dir()
Loop
End Sub
強制的に確認画面を出さないようにする設定です。
Application.DisplayAlerts = False
' 保存が入る処理
Application.DisplayAlerts = True
Do～Loopの前後に設定するのがいいと思います。
解決はすると思いますが、できれば「既存のファイルがない状態」にするのがいいと思います。
ファイル名をチェックして、あった場合は消すは面倒なので
などが楽だと思います。
Closeメソッドの引数にsavechanges:=falseを指定します。
bk.Close Savechanges:=false
個人的な好みですが、Dir関数は使わない方がいいと思います。
Do～Loopを使用せざるおえない。既にFileSystemObjectを呼び出しているのでご活用ください。サブフォルダも対象にできますしね。
@frswataru
Questioner