Hei,
minulla on excelin kanssa sellainen ongelma että minun pitäisi pystyä viemään excel-taulukko/tietokanta tekstimuotoisena tiedostona. Ongelmana on se että minun pitäisi saada solujen välille erottavat merkit.
Kesätyöpaikassani nettisivuston päivittäminen hoidetaan dynaamisesti juuri tekstitiedostoilla mutta ne vaativat toimiakseen erotinmerkit.
Openoffisesta tämä toiminto kyllä löytyy jos tallentaa esim. .csv-muodossa niin voi määrittää |-merkin erotuksena
tuotenumerolle, esittelytekstille ja hinnalle eli silloin rivi tulee muotoon 456987|Hyvä työkalu|49,00
Microsoftin excelistä(uusimmasta) en tätä toimintoa löytänyt. tietääköhän kukaan miten tuo tulisi tehdä
minulla on excelin kanssa sellainen ongelma että minun pitäisi pystyä viemään excel-taulukko/tietokanta tekstimuotoisena tiedostona. Ongelmana on se että minun pitäisi saada solujen välille erottavat merkit.
Kesätyöpaikassani nettisivuston päivittäminen hoidetaan dynaamisesti juuri tekstitiedostoilla mutta ne vaativat toimiakseen erotinmerkit.
Openoffisesta tämä toiminto kyllä löytyy jos tallentaa esim. .csv-muodossa niin voi määrittää |-merkin erotuksena
tuotenumerolle, esittelytekstille ja hinnalle eli silloin rivi tulee muotoon 456987|Hyvä työkalu|49,00
Microsoftin excelistä(uusimmasta) en tätä toimintoa löytänyt. tietääköhän kukaan miten tuo tulisi tehdä
Vastaukset 3
Vanhimmat
Koodissa Chr(124) on pystysuoraviiva(pipe) erottimena, jos haluat muuttaa joksikin toiseksi niin tsekkaa merkin numero esim. Wordin lisää merkkijutskasta.
Public Sub VieTekstitiedostoon()
Dim VapaaFile As Integer
Dim Rivi As Long
Dim Sarake As Integer
Dim Rivialku As Long
Dim Riviloppu As Long
Dim Sarakealku As Integer
Dim Sarakeloppu As Integer
Dim Soluntiedot As String
Dim Tiedostonnimi As Variant
Dim KokoRivi As String
Application.ScreenUpdating = False
On Error GoTo Virhe:
Tiedostonnimi = Application.GetSaveAsFilename()
If Tiedostonnimi = False Then
MsgBox "Peruutit toiminnon!", vbInformation
Exit Sub
End If
VapaaFile = FreeFile
With ActiveSheet.UsedRange
Rivialku = .Cells(1).Row
Sarakealku = .Cells(1).Column
Riviloppu = .Cells(.Cells.Count).Row
Sarakeloppu = .Cells(.Cells.Count).Column
End With
Open Tiedostonnimi For Output Access Write As #VapaaFile
For Rivi = Rivialku To Riviloppu
KokoRivi = ""
For Sarake = Sarakealku To Sarakeloppu
If Cells(Rivi, Sarake).Value = "" Then
Soluntiedot = ""
Else
Soluntiedot = Cells(Rivi, Sarake).Text
End If
KokoRivi = KokoRivi & Soluntiedot & Chr(124)
Next Sarake
KokoRivi = Left(KokoRivi, Len(KokoRivi) - 1)
Print #VapaaFile, KokoRivi
Next Rivi
Virhe:
On Error GoTo 0
Application.ScreenUpdating = True
Close #VapaaFile
End Sub
Mulla on Office 2003 EN.
Kyllä siellä 'save as' vaihtoehtoina on .CSV johon Excel pyytää valitsemaan erotin merkin
CSV, Comma Delimited. Kun käytät erotinmerkkinä pilkkua etkä piippua, on tiedosto vielä standardien mukainen.