S_alr_87013611相同的取值費用於新路徑

Rem 20240407 費用取值與3611相同

Dim ExcelDir = "",USERPATH="",filepath="",selecteddata=""

Dim objRet = ""

Dim temp = ""

Dim arrRet = ""

Dim bRet = ""

Dim objExcelWorkBook = ""

Dim objDatatable = ""

Dim iRet = ""

Dim sRet = ""

Dim ShtNa = ""

Dim objDatabase = ""

Dim LastM = "",item=""

item=['期間','公司別','類型','成本中心','作業類型','會計科目','描述','金額','幣別','集團幣別金額','集團幣別','數量','利潤中心','日期']

Rem 請設定Excel檔案位置

//上個月 檔名/主旨用

LastM = Time.Format(Time.DateAdd("m",-1,Time.Now()),"yyyy-mm")

//檔案不存在時會自動開啟空白Excel

Rem 檔名有加 年月 辨識

filepath