Import all csv files in root sheet foler - name already used error

I have a visual basic macro (shown below) in a master sheet that imports all of the csv files in the root folder of the master tally file. This works great if the beginning of the files have explicitly different names. But many times the csv files I get are named such that the sheet tab name that is set to the csv file name truncates making the macro fail because the second file it imports has the same truncated name (gives me a name error). I am trying to get the correct syntax to get the names of the tabs changed to the count value (Fnum) “-“ then the truncated csv file name. Any help from a savvy visual basic guru would be greatly appreciated.

Please Login or Register  to view this content.

Change this...
ActiveSheet.Name = mybook.Name

To this...
ActiveSheet.Name = "(" & Fnum & ")-" & mybook.Name

Try this...

ActiveSheet.Name = "(" & Fnum & ")-" & Left(ActiveSheet.Name, 25)

Originally Posted by dweber100

That works perfectly. You da man! Thanks from me and the Missouri Task Force One for helping with our GIS reporting system. Ciao.

You're welcome. Go MoFo-1

Originally Posted by dweber100

Okay, now that I have your attention. I need to countif across multiple tabs of the csv files I imported with the macro. The problem is, I will not alway know how may csv tabs there will be and I certainly will not know the names. I attached the sheet with the first sum attempted but want to be able to do this for all of the text symbol names and for all sheets -- not knowing how many sheets or what the sheet names will be. This sheet has the imported csv files I previously sent with the macro that works because of your suggestion. If you can help with this you really are king Mofo...

This is my first attempt at a countif from the second sheet only. Obviously, not good for what I want to do.
=COUNTIF('1-Hasty_3-16-13p1_MO-TF1_We'!C:C,"Structure No Damage")

Perhaps it would be better to import all the csv files to one worksheet. Then you could use a simple Countif formula (or any other function) on the one worksheet. Would that work for you? If yes, I can redo the ImportFile macro.

Besides counting the symbols in all the data, is there anything else? Maybe it would be better to describe the big picture instead of making several small requests.

Do you want the ImportFiles macro to tally the data after it imports the files? Would that work for you?