皆様お世話になります。
昨日は一括保存をご教授していただきありがとうございました。
早速ですが今回は、チェック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
Windows XP SP2でiTunes(ver.4.7.1)をダウンロード・インストールしましたが、起動できません。ソフトをインストールしてデスクトップのアイコンをクリックすると、使用許諾契約画面がでます。そこで、「同意します」をクリックすると、「マイミュージック」フォルダにiTunesフォルダが見つからないか作成できない旨の表示がでます。調べると、「マイミュージック」フォルダに「iTunes」フォルダが作成できていません。しかしドライブCの「Program Files」フォルダ中には「iTunes」フォルダは作成できています。「マイミュージック」フォルダに「iTunes」フォルダが作成できないとiTunesが起動できないのですが、どうすればこのフォルダが作成できるかご教示下さい。ダウンロード・インストールを数回繰り返しましたが、結果は同じでした。
Windows XP SP2でiTunes(ver.4.7.1)をダウンロード・インストールしましたが、起動できません。ソフトをインストールしてデスクトップのアイコンをクリックすると、使用許諾契約画面がでます。そこで、「同意します」をクリックすると、「マイミュージック」フォルダにiTunesフォルダが見つからないか作成できない旨の表示がでます。調べると、「マイミュージック」フォルダに「iTunes」フォルダが作成できていません。しかしドライブCの「Program Files」フォルダ中には「iTunes」フォルダは作成できています。「マイミュージック」フォルダに「iTunes」フォルダが作成できないとiTunesが起動できないのですが、どうすればこのフォルダが作成できるかご教示下さい。ダウンロード・インストールを数回繰り返しましたが、結果は同じでした。