エクセル シートのみ 保存
過去の質問も参照しましたが
当てはまる物が無くて質問しました!
シート上にボタンを作成して
クリックするとそのシートのみ
指定するファイルにコピーさせたいです!
下記の部分で何処を変化させればよいのでしょうか?
(1)~(2)の部分で困っています。
Private Sub CommandButton1_Click()
Dim FileName As String
Dim FileExt As String
’(1)の質問!○=の部分をSheets(セルのA1の値をファイル名に入れたいです)
FileName = "○"& Format(Now, "yyyy-mm") & ".XLS"
'====
FileName = InputBox(FileName & "と言う名前で保存します" & vbCr & "よろしければこのままOKをクリックしてください", "保存ファイル名の確認", FileName)
If FileName = "" Then
Exit Sub
Else
If Right(FileName, 4) <> ".XLS" Then
MsgBox "ファイル名が異常です。"
Exit Sub
End If
End If
'====
FileName = "D:\保存\ケア\計画\" & FileName
If Dir(FileName) <> "" Then
'##ファイルが既に存在する
If MsgBox("既に指定のファイルが存在します。 上書きしますか?", vbOKCancel, "上書きの確認") = vbCancel Then
'##保存せずに終了
Exit Sub
ElseIf ThisSheets.FullName = FileName Then
'##現在開いているファイルと同じなら上書き保存
ThisSheets.Save
Else
'##指定ファイルを削除した後保存
Kill FileName
ThisSheets.SaveCopyAs FileName:=FileName
End If
Else
'##ファイルを新規保存
ThisSheets.SaveCopyAs FileName:=FileName
End If
ThisSheets.Saved = True
End Sub
(2)ThisSheets&指定してもう一つだけ
保存先にコピーしたいです!つまり
2つのSheetのみ保存させたいのですが・・
ここからどのようにしたら良いのか
お願いします!教えて下さい。
補足
onlyromさん、情報ありがとうございます。回答いただいたマイクロソフト技術情報は参照しております。 その中にあります、 「Excel 2002 には、ネットワークの接続が切断された場合に、別のユーザーが変更した内容を上書きしないようにメッセージを表示する新機能が追加されています。ネットワーク ドライブ上のファイルを開いた後にそのコンピュータのネットワーク接続が切断されると、最初にファイルを開いたユーザーへの確認なしに、別のユーザーが同じファイルを開き、変更を行って保存し、閉じることができます。その後にファイルを保存する場合、ファイルのタイム スタンプとネットワーク ドライブ上のファイルのタイム スタンプが比較されます。タイム スタンプが異なっていると、前述のメッセージが表示されます。 」 ・・・とありますが、そもそも同一ユーザーしか開いていないんです。 さらにネットワーク接続の切断も確認されていません。 原因が特定できていないのが、ちょっとくやしいカンジです。