Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Imported Text File Worksheet Tab Name
I created this macro using snippets of code I found in this news group.
The macro: (1) clears the worksheet (2) prompts the user to select a textfile.txt to open (3) imports the textfile into sheet 1 and (4) does a bit of formatting to the worksheet. How can I make the tab reflect the name of the textfile that was opened excluding the .txt ext? Thanks Here's the code below: Cells.Select Selection.ClearContents Range("A1").Select MyDataFile = Application.GetOpenFilename("Text Files,*.Txt") With ActiveSheet.QueryTables.Add(Connection:="TEXT;" & MyDataFile, _ Destination:=Range("A1")) .Name = "MyDataFile & Activesheet.QueryTable.counts +1" .FieldNames = True .RowNumbers = False .FillAdjacentFormulas = False .PreserveFormatting = True .RefreshOnFileOpen = False .RefreshStyle = xlInsertDeleteCells .SavePassword = False .SaveData = True .AdjustColumnWidth = True .RefreshPeriod = 0 .TextFilePromptOnRefresh = False .TextFilePlatform = 437 .TextFileStartRow = 1 .TextFileParseType = xlDelimited .TextFileTextQualifier = xlTextQualifierDoubleQuote .TextFileConsecutiveDelimiter = False .TextFileTabDelimiter = False .TextFileSemicolonDelimiter = False .TextFileCommaDelimiter = True .TextFileSpaceDelimiter = False .TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 9) .TextFileTrailingMinusNumbers = True .Refresh BackgroundQuery:=False End With End Sub |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
iTunes Library text file imported into Excel | Excel Discussion (Misc queries) | |||
formatting a text file imported into excel | Excel Worksheet Functions | |||
can I display the file name of the imported text file in another c | Excel Discussion (Misc queries) | |||
if then elseif on text file imported into excel | Excel Programming | |||
Can worksheet data be exported/imported to/from flat file? | Excel Programming |