Nauhoitin makron jolla saan teksti tiedoston auki exceliin. Makro tekee tietyt muotoilu jutut. Tekstitiedosto on aina saman niminen.
Mutta miten saisin excelin kysymään, mistä kansiosta avataan?
Excel tiedoston tallennus tehdään sitten manuaalisesti.
Open teksti makro
6
722
Vastaukset
- Kunde
avaa C aseman ja näyttää kaikki tiedostot
Application.Dialogs(xlDialogOpen).Show "c:\*.*"
avaa C:\temp ja näyttää kaikki txt tiedostot
Application.Dialogs(xlDialogOpen).Show "c:\temp\*.*"- oof
Application.Dialogs(xlDialogOpen).Show "c:\temp\*.txt"
- Kunde
oof kirjoitti:
Application.Dialogs(xlDialogOpen).Show "c:\temp\*.txt"
tosiaan puuttui .txt eli oikea
Application.Dialogs(xlDialogOpen).Show "c:\temp\*.txt" - opiskelijana
Kunde kirjoitti:
tosiaan puuttui .txt eli oikea
Application.Dialogs(xlDialogOpen).Show "c:\temp\*.txt"Ei tunnu oikein VBA:n logikka menevän mulla perille.
Tälla saan kyllä tiedoston auki mutta en osaa liittää sitä muotoiluihin jotka haluaisin tehdä.
Esimerkiksi:
Workbooks.OpenText Filename:="C:\tlista.txt", Origin:=xlMSDOS, StartRow:= _
1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=True, Tab:=True, Semicolon:=False, Comma:=True, _
Space:=False, Other:=False, FieldInfo:=Array(1, 2), TrailingMinusNumbers _
:=True
End Sub - Kunde
opiskelijana kirjoitti:
Ei tunnu oikein VBA:n logikka menevän mulla perille.
Tälla saan kyllä tiedoston auki mutta en osaa liittää sitä muotoiluihin jotka haluaisin tehdä.
Esimerkiksi:
Workbooks.OpenText Filename:="C:\tlista.txt", Origin:=xlMSDOS, StartRow:= _
1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=True, Tab:=True, Semicolon:=False, Comma:=True, _
Space:=False, Other:=False, FieldInfo:=Array(1, 2), TrailingMinusNumbers _
:=True
End Subnyt kysyy tiedoston ja lukee polun sun makroosi
jos tiedosto on .txt niin muuta
("Kaikki tiedostot(*.txt),*.txt")
Sub Avaa()
Dim polku As String
On Error Resume Next
polku = Excel.Application.GetOpenFilename("Kaikki tiedostot (*.*),*.*")
Workbooks.OpenText Filename:=polku, Origin:=xlMSDOS, StartRow:= _
1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=True, Tab:=True, Semicolon:=False, Comma:=True, _
Space:=False, Other:=False, FieldInfo:=Array(1, 2), TrailingMinusNumbers _
:=True
End Sub - oppiskelijana
Kunde kirjoitti:
nyt kysyy tiedoston ja lukee polun sun makroosi
jos tiedosto on .txt niin muuta
("Kaikki tiedostot(*.txt),*.txt")
Sub Avaa()
Dim polku As String
On Error Resume Next
polku = Excel.Application.GetOpenFilename("Kaikki tiedostot (*.*),*.*")
Workbooks.OpenText Filename:=polku, Origin:=xlMSDOS, StartRow:= _
1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=True, Tab:=True, Semicolon:=False, Comma:=True, _
Space:=False, Other:=False, FieldInfo:=Array(1, 2), TrailingMinusNumbers _
:=True
End SubJoo, kyllä tamä nyt toimii. Tätä halusin. Lisää VBA reeniä siis.
Kiitos kovasti!
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
en vaan saa häntä pois
Mielestäni pyörimästä. Onko kellekään toiselle käynyt näin? Ihastuin pakkomielteisesti noin vuosi sitten erääseen naiseen. Ei vaan katoa mielestä va1762134Suomi24 kysely: ihmisten kuplautumista ei pääosin koeta vakavaksi ongelmaksi
“Kuplautumista on mahdotonta estää. Ihmiset ovat aina viihtyneet samankaltaiset arvot ja maailmankatsomuksen jakavassa seurassa ja muodostaneet sen pe361756Ohhoh! Glamourmalli Elena, 29, teetti tiimalasivartalon - Vei rahaa ja tuotti tuskaa - Katso kuvat!
Transtaustainen glamourmalli Elena Vikström on käynyt vuosien ajan plastiikkakirurgisissa toimenpiteissä. Tästä näet lopputuloksen: https://www.suomi111479Ostiko Martina uuden ponin tyttärelleen, vai oliko myös Stefan itsekkin valitsemassa ponia .?
Kiva kun on tyttärelle mielekäs harrastus annettu, ehkä vielä on tulevaisuudessa hänelle tärkeä ja valitsee sen perusteella tulevan ammatin.2341253Sinä olet tärkeä
Herätät minussa kunnioitusta. Kiehdot minua. En oikein saa kiinni sinusta. Ehkä juuri siksi. Aistin että sinäkin pidät minusta. Vetovoima on ollut alu611234Varisjärvellä mersu.
Varisjärven tiellä tuli vanhamersu kylkiedellä mutkassa vastaan ja vähällä keulaan mutta tökkäs penkkaan, hyppäsin omasta autosta ulos ja kävin kiskas161072Belorf haistattaa seuraajiaan "You can hate me now"...
Vai haistattaako lompakkoa, joka taisi viimeinkin ymmärtää häipyä Sofian ulottumattomiin ? Sofia raukka on niin typerä, että ottaa nostetta "omasta tv59993- 60975
Wau mikä kroppa Sofialla
Kuva instassa kun on suihkurusketuksessa. Kyllä on muodot kohdallaan, on kuin jumalainen Venus patsas. Eikä ole mitään järkyttäviä lonkero tatuointeja103675