» Poradna » Programy

Ako otvorit z Excelu iny subor napr. txt

 |   | 

Zdar, vie niekto ako otvorit z excelu subor napr. aaa.txt (príp. csv) a zapisat donho? Skusal som cez
Private sub CommandButton.1_click()
Document.Open ("aaa.txt")
End Sub
...ale takto to nezafunguje. Napada vas nieco? Vopred dakujem

Mohlo by vás také zajímat

Odpovědi na otázku

 |   | 

skus si zapnut macro recorder, otvorit textovy subor... budu tam take veci ako popis ordelovacov a podobne...
ked subor otvoris, tak makro recorder zastav a pozri sa, co za kod sa ti vygeneroval. Tento postup mozes pouzit na akukolvek zlozitejsiu operaciu a nasledne vygenerovay kod prestudovat pripadne upravit.

Souhlasím  |  Nesouhlasím  |  Odpovědět
 |   | 

Tohle jsem nedavno sam resil

Takhle soubor otevres a nactes do nejakeho sloupce:

Dim FilePath, Text As String, temp
FilePath = "C:\aaa.txt"
temp=0

Open FilePath For Input As #1
Do Until EOF(1)
Line Input #1, Text
Worksheets("List1").Range(1 +temp, 1).Value = Text
temp = temp + 1
Loop
Close #1

Takhle do souboru zapisujes:

Dim FilePath
Dim fs, a As Object

FilePath = "C:\aaa.txt"

Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.CreateTextFile(FilePath, True)

a.WriteLine (Worksheets("List1").Range(1 , 1).Value )
a.WriteLine (Worksheets("List1").Range(2 , 1).Value )

a.Close

A pro uplnost, takhle muzes soubor prejmenovat a zalohovat ho tak:

Name FilePath As (FilePath & ".bak")

Souhlasím  |  Nesouhlasím  |  Odpovědět
 |   | 

Otevřeš excel > Soubor > Otevřít > dole si najdeš a navolíš jaký formát > "txt" a najdeš ho. Než se načte bude se tě to ptát na kódování jazyka a jaký oddělovač je mezi položkami které se mají načíst do sousedních buněk ...

Souhlasím  |  Nesouhlasím  |  Odpovědět
 |   | 

To s nahratim makra ma nenapadlo.. a staci tam dat Workbooks.Open Filename:= _"aaa.txt"
to mi staci..dikk

Souhlasím  |  Nesouhlasím  |  Odpovědět

Související témata: Private


Určitě si přečtěte

Vodafonu se zhroutila kabelovka. Síť bývalého UPC má výpadky
Lukáš Václavík
VodafoneUPC
Jak v prohlížeči vypnout oznámení zasílaná webovými stránkami

Jak v prohlížeči vypnout oznámení zasílaná webovými stránkami

** Obtěžují vás neustálé dotazy webů, zda chcete zobrazovat oznámení? ** Můžete je zakázat, a to jak kompletně, tak i pro jednotlivé stránky ** Připravili jsme návody pro Chrome, Firefox, Edge a Operu

Karel Kilián | 11

Karel Kilián
Jak na InternetTipyProhlížeče
Testy procesorů Ryzen 5000: AMD překonalo Intel ve všech směrech

Testy procesorů Ryzen 5000: AMD překonalo Intel ve všech směrech

** AMD začalo prodávat nové procesory Ryzen 5000 s architekturou Zen 3 ** K dispozici jsou nezávislé testy z celého světa ** AMD překonává Intel ve všech směrech

Karel Javůrek | 69

Karel Javůrek
ProcesoryTestyAMD
Dostali jste nový počítač? Tohle s ním udělejte, než ho začnete používat

Dostali jste nový počítač? Tohle s ním udělejte, než ho začnete používat

** Každý nový počítač si zaslouží počáteční péči ** Odinstalujte bloatware a nezapomeňte na vhodné nastavení ** Poradíme, jak se o počítač s Windows 10 postarat

David Polesný, Stanislav Janů | 71

David PolesnýStanislav Janů
PočítačeNotebooky
Google chystá funkci, která z chytrého Gmailu udělá hloupý Gmail
Lukáš Václavík
SoukromíGmailGoogle
Cableporn: Podívejte se na úžasná díla umělců z podnikových serveroven

Cableporn: Podívejte se na úžasná díla umělců z podnikových serveroven

** Uspořádání kabelů můžete vnímat i jako podivný druh umění ** To nejkrásnější se skrývá v datacentrech a serverovnách ** Podívejte se na skutečné „cableporn“ z optiky i kroucené dvojlinky

Vojtěch Malý | 51

Vojtěch Malý
DatacentraServery
Vybrali jsme 12 programovatelných hraček a stavebnic pro děti a jejich rodiče

Vybrali jsme 12 programovatelných hraček a stavebnic pro děti a jejich rodiče

** Získejte děti pro matematiku a základy techniky ** Kupte jim hračku nebo stavebnici, které vdechnou vlastní život ** Vybrali jsme stavebnice pro malé caparty i budoucí experty

Jakub Čížek | 10

Jakub Čížek
Stavebnice
Velký den pro Apple: Uvedl tři nové Macy s vlastním procesorem M1
Lukáš Václavík
PočítačeApple

Aktuální číslo časopisu Computer

Jak prodloužit výdrž notebooku

Velké testy: gamepady a inkoustové tiskárny

Důkladný test Sony Playstation 5