[VBA] Excel 檢查檔案是否存在

Dir("C:\a.txt") <> ""

此條件為真,文件存在

VBA 基本資料型態

Byte

短整數，1Byte，0~255

Boolean

布林值，2 Bytes，True or False

Integer

整數，2Bytes，-32,768 到 32,767

Long

長整數，4Bytes，-2,147,483,648 到 2,147,483,647

Single

單精度浮點數，4Bytes，負數時從 -3.402823E38 到 -1.401298E-45；正數時從 1.401298E-45 到 3.402823E38。

Double

雙精度浮點數，8Bytes，負數時從 -1.79769313486231E308 到 
-4.94065645841247E-324；正數時從4.94065645841247E-324 到 1.79769313486232E308

Currency

大範圍的整數，8Bytes，從 -922,337,203,685,477.5808 到 922,337,203,685,477.5807

Decimal

大範圍的整數(貨幣)，14Bytes，沒有小數點時為 +/-79,228,162,514,264,337,593,543,950,335，而小數點右邊有 28 位數時為 +/-7.9228162514264337593543950335；最小的非零值為 +/-0.0000000000000000000000000001。

Date

8Bytes，January 1, 100 到 December 31, 9999

Object

4Bytes，任何 Object 引用

String

可變長度字串，10 位元組加字串長度，0 到大約 20 億。

String

固定長度字串，字串長度，1 到大約 65,400

Variant

數值，16Bytes，任何數值，最大可達 Double 的範圍。

Variant

字元，22 個位元組 加字串長度，與變動長度 String 有相同的範圍 

強制轉型

CBool(expression)、CByte(expression)、CCur(expression)、
CDate(expression)、CDbl(expression)、CDec(expression)、
CInt(expression)、CLng(expression)、CSng(expression)、
CStr(expression)、CVar(expression)、CStr(expression)

陣列宣告

Dim Array(10) As Integer ' 一維
Dim Array2(10,20) As Integer '二維

動態陣列

Dim Array()
ReDim Array(100) ' 重新宣告大小

excel 判斷最後一筆資料

i = [a65536].End(xlUp).Row(.Column)
(i = Range("A:A").End(xlUp).Row(.Column))

DOS指令 - 取得日期時間字串

DOS指令 - 取得日期時間字串


echo %date% 結果為 yyyy/MM/dd
echo %date:~0,4% 結果為 yyyy
echo %date:~5,2% 結果為 MM
echo %date:~8,2% 結果為 dd

TIP:
%date:~x,y%
x 代表從第幾個位置開始取值，從 0 開始計算
y 代表要取幾個字




DOS指令 - 變更檔案名稱

ren xxx.bks xxx-%DATE:~0,4%%DATE:~5,2%%DATE:~8,2%.bks


# echo %DATE:~0,4%： 取環境變數%DATE%的值，由第一碼開始取四碼（可以取出"西元年"的值）。

# echo %DATE:~5,2%：取環境變數%DATE%的值，由第六碼開始取二碼（可以取出"月"的值）。
# echo %DATE:~8,2%：取環境變數%DATE%的值，由第九碼開始取二碼（可以取出"日"的值）。


執行結果說明：
如果在20120315這一天執行這個檔案，會把 xxx.bks 轉換成 xxx-20120315.bks