iT邦幫忙

0

Excel vba

Nick 2017-08-30 21:38:366816 瀏覽

想請問各位大神~我的檔案是每日產生會手動存成MMDD格式的檔名
但我目前研究出來的抓取檔案方式如下方程式碼只能抓打上去的檔名
不知可否有辦法改成讓他自動抓今天的日期嗎?(MMDD.CSV)


With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;C:\MMDD.CSV", Destination:=Range("$A$1" _
))
.Name = "MMDD.CSV"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 950
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = False
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = True
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With

另外想詢問有沒有辦法逐列判斷
若B(工作表1)欄符合XXX關鍵字
就複製其B(工作表1)欄後
依照(工作表1)A欄前5碼去對另一份excel的A欄
後貼上B欄(若不是第一筆資料要先新增一列並貼上)

1 個回答

2
海綿寶寶
iT邦超人 1 級 ‧ 2017-08-30 22:27:25
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;C:\" & FORMAT(NOW(),"mmdd") & ".CSV", Destination:=Range("$A$1" _
))
.Name = FORMAT(NOW(),"mmdd") & ".CSV"
.FieldNames = True
....

我要發表回答

立即登入回答