Osaisiko Kunde tai joku "ammattilainen" sanoa hyvän ratkaisun seuraavalle:
Pitäisi saada tallennettua satoja rivejä sisältäviä sheettejä txt-tiedostoiksi. Ongelmana on että txt-tiedostoihin tulee joihinkin kohtiin ylimääräisiä tab- tai välilyöntejä jotka ovat haitaksi. Hyviä vinkkejä miten "loopata" tekstiä sisältävät solut tai onko olemassa jokin vielä helpompi ratkaisu? (Taulukot eivät ole samankokoisia)
TUHANNET KIITOKSET ETUKÄTEEN!
Nykyinen makro:
Sub SaveFiles()
Dim sh As Worksheet
For Each sh In ActiveWorkbook.Worksheets
sh.Copy
ActiveWorkbook.SaveAs "C:\Temp\" & sh.Name & ".txt", _
FileFormat:=xlTextWindows
ActiveWorkbook.Close SaveChanges:=False
Next
End Sub
Pitäisi saada tallennettua satoja rivejä sisältäviä sheettejä txt-tiedostoiksi. Ongelmana on että txt-tiedostoihin tulee joihinkin kohtiin ylimääräisiä tab- tai välilyöntejä jotka ovat haitaksi. Hyviä vinkkejä miten "loopata" tekstiä sisältävät solut tai onko olemassa jokin vielä helpompi ratkaisu? (Taulukot eivät ole samankokoisia)
TUHANNET KIITOKSET ETUKÄTEEN!
Nykyinen makro:
Sub SaveFiles()
Dim sh As Worksheet
For Each sh In ActiveWorkbook.Worksheets
sh.Copy
ActiveWorkbook.SaveAs "C:\Temp\" & sh.Name & ".txt", _
FileFormat:=xlTextWindows
ActiveWorkbook.Close SaveChanges:=False
Next
End Sub
Vastaukset 1
Vanhimmat
minkälaista tietoa on taulukossa ja mitenkä sen pitäisi tallentua. :)