[ veronika @ 18.01.2007. 11:41 ] @
Trebam da uradim istu stvar sto radi i Data->Import External Data->Edit Text Import, da bih uvezla file koji svakog dana ima drugu extenziju: UT4.1 . . . UT4.n n je vrednost koja se uzima sa forme. Napravim macro koji npr uveze file UT4.133 ali kada u VBA to pokusam da iskorigujem tako da file koji treba da otvori bude "X:\labi\K96_2005\K96\IZVESTAJ\" & [Forms]![UserForm1]![TxtBox1] dobijem 1004 gresku. Sub LABOR() 'Dim GetFileName ' LABOR Macro ' Macro recorded 17.1.2007 by anamarija ' ' With Selection.QueryTable .Connection = "TEXT;" & "X:\labi\K96_2005\K96\IZVESTAJ\" & [Forms]![UserForm1]![TxtBox1] .TextFilePlatform = 1252 .TextFileStartRow = 1 .TextFileParseType = xlFixedWidth .TextFileTextQualifier = xlTextQualifierDoubleQuote .TextFileConsecutiveDelimiter = False .TextFileTabDelimiter = True .TextFileSemicolonDelimiter = False .TextFileCommaDelimiter = False .TextFileSpaceDelimiter = False .TextFileColumnDataTypes = Array(1, 1) .TextFileFixedColumnWidths = Array(1) .TextFileDecimalSeparator = "." .TextFileThousandsSeparator = "," .TextFileTrailingMinusNumbers = True .Refresh BackgroundQuery:=False '.Filename = GetFileName() End With Sheets("pg 1").Select ActiveWindow.SmallScroll Down:=42 End Sub Da li postoji neko jednostavnije resenje da se napravi ovakav uvoz file-a? |