毎回いろいろと探すのがめんどいので、自分で使うためにメモ書き。
【最終行(A列の最終)】
Dim L_Row As Long
L_Row=(Rows.Count, 1).End(xlUp).Row
【ブックを閉じる(保存しない)】
workbooks("text.xlsx").Close SaveChanges:=False
※ブック名はパス指定しなくてok
【パスの設定】
Environ("USERPROFILE")ただただ思いついたことを書いてるブログ。 ツライ事もありますが、人生ポジティブにいきましょう。 ゲームの話をメインに。 いつか「数秘術」や「タロット」の話が出来るよう勉強中。
読んでいただき、
ありがとうございます!