Archive for 2月 8th, 2020

ファイル名 変更 リネーム

土曜日, 2月 8th, 2020
Sub Sample()
    Name "C:\Work\Sample.txt" As "C:\Work\Test.txt"
End Sub

シート コピー 名前

土曜日, 2月 8th, 2020
Dim コピー元シート名
    コピー元シート名 = "_"

    'シートAを先頭にコピー
    Worksheets(コピー元シート名).Copy before:=Worksheets(1)
    
    'シートAを末尾にコピー
    Worksheets(コピー元シート名).Copy after:=Worksheets(Worksheets.Count)

    'シートに名前を付ける
    ActiveSheet.Name = Format(Date, "mmdd") & "_" & Format(Time, "hhmm")

ブック パス フルパス ファイル名

土曜日, 2月 8th, 2020
' ブックのフォルダまでのパス
msgbox ThisWorkbook.Path

' ブックのファイル名までのパス
msgbox ThisWorkbook.FullName

Apple ID パスワード

土曜日, 2月 8th, 2020

Apple ID アカウントの管理