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
688
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
Riikan kukkaronnyöri on umpisolmussa
Kulutus ei lähde liikkeelle, koska kansalaiset eivät usko, että: – työpaikka säilyy – tulot eivät romahda – talous ei h503395- 343045
Jos vedetään mutkat suoraksi?
Niin kumpaan ryhmään kuulut? A) Niihin, jotka menevät edellä ja tekevät? Vai B) Niihin, jotka kulkevat perässä ja ar1062761Tanskan malli perustuu korkeaan ansioturvaan
Ja vahvoihin työllisyys- ja kotoutumispalveluihin. Suomessa Riikka on leikannut juuri näitä: palkkatukea, työttömyysturv422503Vain vasemmistolaiset ovat aitoja suomalaisia
Esimerkiksi persut ovat ulkomaalaisen pääomasijoittajan edunvalvojia, eivät auta köyhiä suomalaisia.511955Anteeksipyyntöni
Jätän tähän anteeksipyyntöni sinulle, koska en voi sanoa sitä missään muuallakaan. Pyydän anteeksi, jos purkamani tuska151599- 321483
Sydämeni valtiaalle
En täältä aio asioita kysellä. Haluan tuoda tiedoksesi, että pohjimmiltani en ihmisiä tahdo satuttaa ja ajattelen muiden1061297- 1801231
En vain unohda
Sitä miten rakastuneesti olet minua katsonut. Oliko tunteet liian suuria että niistä olisi voinut puhua.731080