01. december 2008 - 10:22Der er
4 kommentarer og 1 løsning
Hvordan fikses ActiveWorkbook.SaveAs så komma ikke bliver til .
Jeg bruger en eksport at faner til .txt-filer. Denne eksport kører som en makro, der løber alle faner igennem og gemmer hver af dem som text-filer med tabulatorsep. indhold. Mit problem er: Når feltet indeholder tal med kommaer, bliver de omdannet til punktum. Jeg kan ikke bare lave en generel søgt og erstat da jeg risikerer at ændre kommaer som ikke skal ændres...
Koden jeg bruger til export: Dim ws As Worksheet
Application.ScreenUpdating = False Application.DisplayAlerts = False For Each ws In ThisWorkbook.Worksheets
Hvis jeg ikke kører det som makro, men blot gemmer manuelt giver det ikke problemer, så jeg tror at fejlen opstår i den møde excel arbejder med FileFormat:=xlNormal. Er der nogen der kender til problemet og ved hvordan det løses?
I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
Måske en anden approach kan løse det: Denne kode danner en linie i en textfil og ændrer IKKE ved komma mv.
Sub textfile() Dim fs As Object, a As Object, i As Integer, s As String, t As String Set fs = CreateObject("Scripting.FileSystemObject") Set a = fs.CreateTextFile("c:\file.txt", True) s = "" 'clear buffer c = 1 ' start in column "A" r = ActiveCell.Row ' set the active row to write
While Not IsEmpty(Cells(r, c)) 'start at column 1 and do until no more columns of data s = s & Cells(r, c) & " " 'write a cell of data and add a space c = c + 1 'incement to next column Wend
a.writeline s 'write line to text file a.writeline vbCr 'Carridge Return
End Sub
Kan nogen byde ind på hvilken tilgang der er den "bedste"?
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
