皆様お世話になります。
昨日は一括保存をご教授していただきありがとうございました。
早速ですが今回は、チェックboxを使用してシートを選択しそれをCSV形式にて保存したいのですがどうもうまくいきません。
ご教授よろしくお願いします
Private Sub 保存_Button1_Click()
If CheckBox5.Value Or CheckBox6.Value Or CheckBox7.Value Then
bl = 5
If CheckBox5.Value Then
Sheets("管理").Select
Cells.Select
Range("a1").Select
保存_start
End If
bl = 5
If CheckBox6.Value Then
Sheets("カット").Select
Cells.Select
Range("a1").Select
保存_start
End If
bl = 5
If CheckBox7.Value Then
Sheets("ノズル").Select
Cells.Select
Range("a1").Select
保存_start
End If
MsgBox "通信終了"
Unload Me
Else
MsgBox "何も選択されていません"
End If
End Sub
Private Sub 保存_start()
Cells.Select
Selection.Copy
Workbooks.Add
ActiveSheet.Paste
Application.CutCopyMode = False
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Flname = "c:\" & ActiveSheet.Name & "-" & CStr(Format(Date, "yymmdd") & _
"-" & Format(Time, "hhmmss")), FileFormat:=xlCSV
ActiveWindow.Close
ThisWorkbook.Activate
Application.DisplayAlerts = True
End Sub