ブック シート新ブック保存

VB&VBA
FROG ふろっぐ
 
  • オプション

    本文印刷

    お気に入りに追加

  • 検索

    Googlewwwjp-ia
     

    Googlewwwjp-ia
     
  • 情報

  • 関連

[VB&VBA][ブック シート新ブック保存]

Public Function fncシート新ブック保存(TagetBook As Workbook, TagetSheet As Worksheet, FolPath As String, ファイル名 As StringAs String
'*******************************************************************************
'指定シートを新しいブックに保存(指定フォルダへ)必ずシート名は[Sheet1]にする
'保存後そのパスとファイル名を返す
'*******************************************************************************
Dim NewBook As Workbook, strName As StringNewSheet As Worksheet

strName = 保存名作成

Set NewBook = Workbooks.Add
    Dim i, cnt As Integer
    cnt = NewBook.Sheets.Count
    For i = 1 To cnt
        If NewBook.Sheets(i).Name = "Sheet1" Then
            NewBook.Sheets(i).Name = "Sheet0"
            Exit For
        End If
    Next

    TagetSheet.Copy Before:=NewBook.Sheets(1)
Set NewSheet = NewBook.Sheets(1)
    NewSheet.Name = "Sheet1"
    Call シート削除(NewBook, "Sheet0")
    NewBook.SaveAs Filename:= _
        FolPath & "\" & ファイル名 & "_" & strName & ".xls", FileFormat:= _
        xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
        , CreateBackup:=False
    NewBook.Close
Set NewSheet = Nothing
Set NewBook = Nothing
fncシート新ブック保存 = FolPath & "\" & ファイル名 & "_" & strName & ".xls"
End Function





Production Japan Import Application. Since 1998