Excel「数式を値に変換して名前を付けて保存」が出来るVBA

解決したいこと

複数Sheetが存在するExcelBookがあります。
出来ればボタン一つで数式が入っているところを値に変換したのち、日付と変更時間と変更者名が入った名前で別Bookとして保存したいです。

自分で試したこと

日付と時間が名前に入るVBAまでは調べて分かりました。
ただ、数式を値に変更する式が分かりません。
また、変更者名もどのように入れたらいいか分からないのでアドバイスいただけますとありがたいです。

Sub TEST2()
    
    a = "TEST" 'ファイル名
    b = Format(Now(), "yyyymmdd-hhmmss") '日付
    c = a & "_" & b & ".xlsm" 'ファイル名（拡張子付き）
    d = ThisWorkbook.Path & "\" & c 'ファイルパス
    
    '名前を付けて保存
    ThisWorkbook.SaveAs FileName:=d
    
End Sub

行動規範の内容に同意します

回答2件

変更者名を取得するのはApplication.UserName とかですかね。
（ファイル名に使えない文字が入ってたりする可能性をどこまで考慮するかはお任せします。）

c = a & "_" & b & "_" & Application.UserName & ".xlsm"

投稿2021/09/02 16:34

jinoji

総合スコア4592

r_suzuki_SK

2021/09/03 06:47

回答ありがとうございます。変更者名をPC名として保存することが出来ました。

行動規範の内容に同意します

ベストアンサー

ただ、数式を値に変更する式が分かりません。

vba
1Sub TEST2()
2    
3    Dim ws As Worksheet    
4    For Each ws In ThisWorkbook.Worksheets
5        With ws.UsedRange
6            .Value = .Value
7        End With
8    Next
9
10    Dim a As String, b As String, c As String, d As String
11    a = "TEST" 'ファイル名
12    b = Format(Now(), "yyyymmdd-hhmmss") '日付
13    c = a & "_" & b & ".xlsm" 'ファイル名（拡張子付き）
14    d = ThisWorkbook.Path & "\" & c 'ファイルパス
15
16    '名前を付けて保存
17    ThisWorkbook.SaveAs Filename:=d
18
19End Sub