_alphaBeta_ Posted April 4, 2007 Share Posted April 4, 2007 I'm trying to make an Excel macro to import a txt file using the text import wizard with hard-coded fixed-width values (users would be opening identically formatted files into the spreadsheet).I've gotten this far, but I need to figure out how to make excel prompt for the filename instead of it being whatever file I open when I created the macro. From below, I don't want it to always open C:\something.txt, but rather prompt for a filename each time. With ActiveSheet.QueryTables.Add(Connection:= _ "TEXT;C:\something.txt" _ , Destination:=Range("A16")) .Name = "[logs] 2M6-04032007-084243" .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 = 28 .TextFileParseType = xlFixedWidth .TextFileTextQualifier = xlTextQualifierDoubleQuote .TextFileConsecutiveDelimiter = False .TextFileTabDelimiter = True .TextFileSemicolonDelimiter = False .TextFileCommaDelimiter = False .TextFileSpaceDelimiter = False .TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1) .TextFileFixedColumnWidths = Array(9, 15, 11, 11, 18, 15) .TextFileTrailingMinusNumbers = True .Refresh BackgroundQuery:=False End With Link to comment Share on other sites More sharing options...
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now