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?