MS Excel

Dobrá, omlouvám se.

Mám složku na ploše, například "kritéria". V té složce je stejnojmený soubor .txt i .xls. No a potřebuju vložit data z .txt do .xls, což by nebyl problém. Ale bohužel to potřebuju udělat relativním odkazem, protože bude potřeba soubor .xls přesouvat do dalších PC, kde bude stejný soubor .txt, ale už bude na jiném umístění. Jde mi o to, jak to napsat, aby hledal jen v té složce, kde je onen .xls soubor.

Možná se ještě hodí info, že by to mělo pracovat pod windows 8.1 64Bit a office 2013.
Díkycitovat

Dobrá, vidím, že jsi celkem podrážděný a možná je to i z části má vina, že se nepřesně vyjadřuji, očekával jsem že bude stačit jeden - dva řádky kódu, ale možná je to složitější, takže odpoledne sem dám tedy ten soubor.

Moc nerozumím tomu, proč je soubor zapotřebí, ale problém s tím nemám.. Jde mi jen o vložení dat z .txt do .xls.
Naprogramované to mám a import dat funguje bezvadně, ale jen na tom jednom místě. Problém tedy nastane, jakmile složku přemístím, proto jsem měl za to, že hledám relativní odkaz na cestu, kde se soubor právě nachází. Složka nemusí být nutně na ploše, ale může být vlastně kdekoliv, záleží na tom, kam si ji uživatel vloží.

Vím, že by mi asi mohla pomoci fce. environ, ale zatím jsem nepřišel na to, jak to do kódu zakomponovat.

Každopádně díky za tvůj čas..citovat

@Dejavu
v plnom rozsahu platí to, čo tu uviedol kolega, ktorému ďakujem za jeho čas, ktorý tomu venoval.
Opäť operuješ s pojmom relatívny odkaz (na cestu). Mám za to, že teda myslíš premennú?, do ktorej by šiel uložiť reťazec s cestou k daným 2 súborom. Ako som zmienil, je možné použiť vlastnosť Path objektu Workbook. Pokiaľ sa teda bude kód nachádzať v danom .xls, tak cez ThisWorkbook.Path. V prípade, že by sa kód nachádzal napr. v nejakom inom xls (nepredpokladám, ale nevidím ten kód, čiže možné to je), tak v prvom kroku uložiť xls, do ktorého nejakým spôsobom prenášaš dáta z txt, do objektovej premennej typu Workbook a pre zistenie cesty potom použiť vlastnosť Path u danej objektovej premennej.
Buď to zvládneš z popisu sám (asi by si mal), alebo sem daj prílohu, prípadne aspoň ten kód. Keby si sem býval dal prílohu (dôvody, po tom, čo ich uviedol eLCHa, sú už snáď pochopiteľné), mohlo to byť dávno vyriešené. Takto akurát mrháme časom a riešime zbytočne, či som podráždený citovat

Ako som uviedol, riešením je použitie ThisWorkbook.Path. Zdráhal si sa sem dať prílohu, mám sto chutí tuná s vysvetľovaním končiť, páč mám za to, že doplnenie do kódu by si pri troche snahy zvládol a lenivosť nechcem podporovať, o dôvodoch si môžeš myslieť, čo chceš. Ale urobím dobrý skutok a dole nájdeš minimálnu modifikáciu tvojho kódu, ktorá pracuje s tým, čo z nejakého dôvodu nazývaš relatívnym odkazom. Bude fungovať za podmienky, že xls i txt sa budú nachádzať v rovnakom adresári, predpokladám, že aspoň uvedená podmienka platí, ako si tvrdil. Tú spústu balastu, x-krát úplne zbytočne select atd. som neriešil, doplnil som skutočne akurát novo zadeklarovanú premennú, naplnil ju hodnotou a na ňu odkázal. T.j. 3 riadky, pokiaľ by som to chcel urobiť prasácky, tak by to bol jeden:

Private Sub CommandButton1_Click()
' Vloží data z cesty viz. níže. Soubor musí být s pøíponou .txt, jinak nebude makro fungovat.

Dim myPath As String
myPath = ThisWorkbook.Path & "\"

Range("A1").Select
Columns("A:DD").Select
Selection.ClearContents
Range("A1").Select

With ActiveSheet.QueryTables.Add(Connection:="TEXT;" & myPath & "kriteria.txt", Destination:=Range("$A$2"))
'.CommandType = 0
.Name = "kriteria"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 852
.TextFileStartRow = 1
.TextFileParseType = xlFixedWidth
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1)
.TextFileFixedColumnWidths = Array(8, 6, 12, 9, 9, 10, 10)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
Columns("C:H").Select
Selection.ColumnWidth = 13.14
Columns("A:B").Select
Selection.ColumnWidth = 2.86
Selection.ColumnWidth = 6.71
Columns("A:L").Select
Selection.Replace What:=".", Replacement:=",", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Columns("C:V").Select
Selection.NumberFormat = "0.00"
Range("I1").Select

End Sub

edit: Teraz som si uvedomil, že to svoje makro si asi celé nahral záznamníkom, akurát ho potom dal pod tlačítko, to bola jediná úprava. Takže, pravdepodobne som príliš trdý, pokiaľ ťa viním z lenivosti, proste úprava makra je zatiaľ nad tvoje sily. V tom prípade beriem späť tú lenivosť. Zaujímalo by ma ale v takom prípade, ako by si si predstavoval pomoc bez toho, aby si zverejnil kód. Niečo mi tu nehrá citovat