VBA SaveAs

Det lyder til at være et opsætningsproblem. Hvis du ændrer i Regional Settings inde i Control Panel på Fane Number.

Skift Decimal symbol til komma
Skift evt. Diget Grouping symboltil punktum.

Ved ikke om det er det ?

Computeren her kører NT 4.0 Workstation og der er ingen regional settings

fandt det alligevel, og det virkede ikke

godt nok : i øvrigt kan du i dit tidligere spørgsål udskifte bl.a.:

Range("B8:F38").Select
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .Weight = xlMedium
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .Weight = xlMedium
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .Weight = xlMedium
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .Weight = xlMedium
        .ColorIndex = xlAutomatic
    End With

med :

Dim omrode As Range
Set omrode = Worksheets("Ark4").Range("b8:f38")
omrode.Borders(xlDiagonalDown).LineStyle = xlNone
omrode.Borders(xlDiagonalUp).LineStyle = xlNone
omrode.Borders(xlEdgeBottom).Weight = xlMedium
omrode.Borders(xlEdgeRight).Weight = xlMedium
omrode.Borders(xlEdgeTop).Weight = xlMedium
omrode.Borders(xlEdgeLeft).Weight = xlMedium

Så sparer du nogle rækker - og ja jeg keder mig lidt i dag !

okay fair nok, tak...

men hvis du keder dig, kan du vel snildt finde en løsning på ovenstående..? :-)

Øh læste lige forkert : dvs. ikke godt nok med formatet. Har ingen ideer endnu.

Det er det absolut sidste jeg mangler i programmet, så er det færdigt.

Prøv kun med : xlText ikke xlTextWindows

er prøvet, men prøver igen...i VBA's hjælp er der en liste over tilgængelige filfomater

virker heller ikke

Mærkeligt. Da jeg gemte som xlText var det med komma. Så prøvede jeg xlTextWindows, hvorefter filen blev gemt med punktum, og nu hvor jeg prøver at gå tilbage bliver punktum formatet hængende. Måske en god gammel genstart kunne gøre det - og så ingen xlTextWindows ?

Det kunne man jo prøve.

underligt nok virkede det ikke

Excel 2000 DK

Jeg har nu fundet ud af at det er masterfilen formatet bliver hængende ved. Laver jeg en ny fil fungerer xlText, men såsnart jeg skifter til xlTextWindows bliver det punktum. Selvom jeg går tilbage. Dvs. at finde ud af hvordan det rettes i masterfilen - med mindre du hurtig kan kopiere ark/makroer m.m. over i en ny Master.

Uhm, der er ret meget, men jeg kan da prøve...det er vel ikke lige sådan at ændre i masterfilen, eller hva?

nej det går ikke....gider ik oprette nye knapper og formattering i nyt ark m.v.

Vi graver videre - det skal nok lykkes.

Er det ikke en bug som man burde indberette til MS?

Det kunne tyde på det !

ku være man skulle ringe til dem...jeg har utroligt nok en ægte office...

det koster så penge når programmet er OEM

har du fundet noget? - jeg prøver lige nu at installere opdatering, men det går lidt trægt

Ikke så godt :

Jeg eksperimenterer pt. med noget lignende :
ActiveWorkbook.FileFormat = Workbooks("standart.XLS").FileFormat

for (på en måde) at annulere eller nulstille formatet. Det funker selvfølgelig ikke idet egenskaben er skrivebeskyttet! Det begynder at se lidt sort ud...

hmm....det er jo ikke ret fedt...men det underlige er jo, at hvis man går i filer --> gem som --> filtype: kommasepareret (*.txt), så vil excel jo gerne gemme med kommaer..

Det er helt ligegyldig hvad du skriver når du gemmer en fil som CSV.
I det tilfælde tager Excel-VBA fuldstændig magten og gemmer med komma som separator og punktum som decimalsparator.
Den genkender endelsen CSV og overlader intet til dig.
Løsning:
Giv filerne en anden endelse fx. TXT

Jeg glemte lige at skrive at formaterne er "rigtige" hvis man gemmer manuelt og åbner manuelt.

ehm bak...det er txt vi roder med her...

går lige offline i et par timer, men vender stærkt tilbage!

ookkkk, i dit andet spm brugte du endelsen csv. :-)

Bemærk lige at hvis endelsen er csv er det ligegyldigt hvad du ellers skriver i din sava as sætning

Så logger jeg af et par timer. Men med gode nyheder. Jeg har nemlig fået det til at virke. Const xlText bliver åbenbart overskrevet at xlTextWindows statementet, og bevares pr. excel fil. så prøv :

Const xlText = 1 'før save as xlText linjen
ActiveWorkbook.SaveAs FileName:="bla.bla", FileFormat:=xlText

jeps, det virker søremfisme :)

Endnu et excel mysterium løst. Tak. Svar for point

Selvtak - og "good luck" med programmet  !-)