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.
Mutta miten saisin excelin kysymään, mistä kansiosta avataan?
Excel tiedoston tallennus tehdään sitten manuaalisesti.
Vastaukset 6
Vanhimmat
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\*.*"
Application.Dialogs(xlDialogOpen).Show "c:\temp\*.txt"
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
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 Sub
Joo, kyllä tamä nyt toimii. Tätä halusin. Lisää VBA reeniä siis.
Kiitos kovasti!