EXCEL2000 選択シートをブックにする。

EXCEL2000  選択シートをブックにする。

シートタブを右クリック、移動またはコピーを選択

 コピーを作成する、にチェックを入れ、移動先ブック名で（新しいブック）を選択

book1とかの新しいブックが作成される。

後は名前を付けて保存

 Sub シート名をファイル名にして保存()
'ダイアログ使用

    Application.Dialogs(xlDialogSaveAs).Show ActiveSheet.Name
    
End Sub

 

Sub シート名保存()
'Dim FPath As String

FPath = "C:\" & ActiveSheet.name & ".xls"

ActiveWorkbook.SaveAs Filename:=FPath, FileFormat:=xlNormal, CreateBackup:=False

End Sub

 

 

 

Sub 選択範囲をHTMLで保存()
'選択範囲をHTML出力
Dim Sel_html As Object
Dim Fname As String             '保存ファイル名
Dim saveDir As String             '保存フォルダパス
'ファイル名（シート名）、保存先指定
Fname = ActiveSheet.name
saveDir = "C:\"
'
'拡張子は自動でhtm になる
Set Sel_html = ActiveWorkbook.PublishObjects.Add _
(SourceType:=xlSourceRange, _
Filename:=saveDir & Fname, _
Sheet:=ActiveSheet.name, Source:=Selection.Address)
Sel_html.Publish True

End Sub

 

 

タグ：Excel2000