excel - Convert and copy value from external csv file -
i have excel file import function, import values multiple external csv files. can download files in following link, excel file
you need put folder workbooks on root c:\ or change path on module1,
blfilesfound = findfiles("c:\workbooks\", recmyfiles, ifilesnum, "*.csv*", true)
after open test workbook , press "import" button , excel copy values b2, b3 , c31 (external csv files) columns a, b , c of test workbook can see progress on statusbar (at end press ok).
i have problem importing/copy values cells b3 contains, example, 01/04/2013 00:00:00. need format value 01/04/2013 , import/copy test workbook.
i use several ways , in cases result ok, file eob_1 , eob_1_ nothing works , don't know why because files "identical".
my last try is
mystring = wbresults.sheets(1).range("b3").value data = format(mystring, "dd-mm-yyyy") wbresults.sheets(1).range("b3").value = data wbresults.sheets(1).range("b3").copy destination:=wbdest.sheets("folha1").range("c" & intcounter)
i copy value b3 mystring , use format function format text, result is,
04/01/2013 00:00
01/04/2013 00:00
26-03-2017
26-03-2017
the first 2 values aren't afected format function.
can me? , appreciate comments on code.
(sorry english)
Comments
Post a Comment