使用范围而不是在单元格中获取正确的数据

我有几百个名字中有date的文件。 我需要从名称中提取date，并将其放在文件中每行的每个文件的第一列中。 示例 – datarequested20140209.csv

我已经从这个名字中拉出了这个date，并重新排列了这个date – 这是为了要求的。 我可以添加列并正确设置第一个单元格 – 标题。 如果有超过2行（标题加1），那么它工作正常，并把date在单元格中。

但是，如果只有标题行和单行，则会重复第二行中的标题。 我肯定错过了什么。 有什么build议么？

这是我的代码到目前为止：

'Writing to the file Dim objXLApp, objXLWb, objXLWs 'Getting modified date Dim FSO, outFQN Dim sfile, strFolder, strSub1 Dim sYear, sMonth, sDay, sName, sDate Dim nPos, nPos2 strFolder = "C:\test1" set objFSO = CreateObject("Scripting.FileSystemObject") 'set objOutput = objFSO.OpenTextFile(strFolder & "\" & strOutput, 8, true) set objShell = CreateObject("WScript.Shell") set objFolder = objFSO.GetFolder(strFolder) for each objFile in objFolder.Files sfile = objFile.Name 'Parse and fix date nPos = InStr(sfile,"2014") nPos2 = "8" 'msgbox(nPOS) sName=MID(sfile, nPos,nPos2) 'msgbox(sName) sYear=MID(sName, 1, 4) sMonth=MID(sName, 5, 2) sDay=MID(sName, 7, 2) sDate = sMonth & "-" & sDay & "-" & sYear 'sYear = MID(nPO 'msgbox(sDate) Set objXLApp = CreateObject("Excel.Application") objXLApp.Visible = False Set objXLWb = objXLApp.Workbooks.Open("C:\test1\"& sfile) ' Working with Sheet1 Set objXLWs = objXLWb.Sheets(1) With objXLWs '.Columns("A:A").NumberFormat = "123" .Columns("A:A").Insert xlToRight .Cells(1, 1).Value = "Date_Modified" .Cells(2, 1).Value = sDate set Range = objXLWs.Range("A2:A"&objXLWs.UsedRange.Rows.Count) Range.FillDown End With ' Save StrSub1 = "C:\test1\sub1\" objXLWb.SaveAs StrSub1 & sfile objXLWb.Close (False) ' File Formats '51 = xlOpenXMLWorkbook (without macro's in 2007-2010, xlsx) '52 = xlOpenXMLWorkbookMacroEnabled (with or without macro's in 2007-2010, xlsm) '50 = xlExcel12 (Excel Binary Workbook in 2007-2010 with or without macro's, xlsb) '56 = xlExcel8 (97-2003 format in Excel 2007-2010, xls) Set objXLWs = Nothing Set objXLWb = Nothing objXLApp.Quit Set objXLApp = Nothing next 

谢谢！

Answer 1

所以，经过几分钟的挫折后，我想出了这个解决办法：

 set Range = objXLWs.Range("A2:A"&objXLWs.UsedRange.Rows.Count) if objXLWs.UsedRange.Rows.Count = "2" then .Cells(2, 1).Value = sDate Else Range.FillDown End if End With 

如果仅有2行，则添加if语句以忽略填充。 问题解决了！