ファイル名 変更 リネーム
土曜日, 2月 8th, 2020Sub Sample()
Name "C:\Work\Sample.txt" As "C:\Work\Test.txt"
End Sub
Sub Sample()
Name "C:\Work\Sample.txt" As "C:\Work\Test.txt"
End Sub
Dim コピー元シート名
コピー元シート名 = "_"
'シートAを先頭にコピー
Worksheets(コピー元シート名).Copy before:=Worksheets(1)
'シートAを末尾にコピー
Worksheets(コピー元シート名).Copy after:=Worksheets(Worksheets.Count)
'シートに名前を付ける
ActiveSheet.Name = Format(Date, "mmdd") & "_" & Format(Time, "hhmm")
' ブックのフォルダまでのパス
msgbox ThisWorkbook.Path
' ブックのファイル名までのパス
msgbox ThisWorkbook.FullName
Apple ID アカウントの管理