Avatar billede lsimony Nybegynder
05. februar 2009 - 11:36 Der er 8 kommentarer og
1 løsning

Hvordan undgår jeg at blive spurgt om filen skal overskrives?

Jeg har følgende kode, hvor jeg skal gemme en af mine sider som csv-fil. Jeg bliver spurgt om, at jeg er sikker på om jeg vil overskrive den gamle fil. Det vil jeg kende undgå at skulle tage stilling til.

Sub GemCSV()
    Application.DisplayAlerts = False
    Application.ScreenUpdating = True
    ActiveWorkbook.Save
    ChDir "G:\Sider"
    Sheets("data").Select
    ActiveWorkbook.SaveAs Filename:= _
        "G:\LabApps\Info\Sider\x.csv", FileFormat:=xlCSV, CreateBackup:=False

End Sub

Hilsen

Lars
Avatar billede kabbak Professor
05. februar 2009 - 11:42 #1
Sub GemCSV()
    Application.DisplayAlerts = False
    Application.ScreenUpdating = True
    ActiveWorkbook.Save
    ChDir "G:\Sider"
    Sheets("data").Select
    Application.DisplayAlerts = False
    ActiveWorkbook.SaveAs Filename:= _
                          "G:\LabApps\Info\Sider\x.csv", FileFormat:=xlCSV, CreateBackup:=False
    Application.DisplayAlerts = True
Avatar billede lsimony Nybegynder
05. februar 2009 - 12:25 #2
Den spørger stadig "Do you want to save the changes you made to... Yes No Cancel
Avatar billede kabbak Professor
05. februar 2009 - 12:39 #3
Sub GemCSV()
    Application.DisplayAlerts = False
    Application.ScreenUpdating = True
    Application.DisplayAlerts = False
    ActiveWorkbook.Save
    ChDir "G:\Sider"
    Sheets("data").Select
    ActiveWorkbook.SaveAs Filename:= _
                          "G:\LabApps\Info\Sider\x.csv", FileFormat:=xlCSV, CreateBackup:=False
    Application.DisplayAlerts = True
Avatar billede kabbak Professor
05. februar 2009 - 12:41 #4
Den spørger ikke ved mig
Avatar billede lsimony Nybegynder
05. februar 2009 - 12:44 #5
Det gjorde den heller ikke til at starte med, men lige pludselig er den begyndt at drille. Jeg må se om jeg kan finde udfordringen. Måske er det fordi vi i en periode både har office 2007 og 2003 indtil alle vores pc'er er blevet opdateret med office 2007
Avatar billede lsimony Nybegynder
05. februar 2009 - 12:57 #6
Kan det være fordi jeg kalder rutinen fra en auto_close() event?
Avatar billede kabbak Professor
05. februar 2009 - 13:56 #7
Jeg har faktisk ingen anelse, om hvorfor ;-((
Avatar billede lsimony Nybegynder
05. februar 2009 - 14:13 #8
Er det muligt istedet at skrive til/opdatere en CSV-fil, hvor værdierne fra fra området A til Z og 1 til 112, så jeg slipper for at benytte SaveAs?
Avatar billede kabbak Professor
05. februar 2009 - 17:01 #9
Sådan gemmes via kode

Sub GemCSV()
    Dim Data As Variant, I As Integer, X As Integer
    Application.ScreenUpdating = True
    ' ActiveWorkbook.Save du behøver ikke at gemme
    '  ChDir "G:\Sider"' hvorfor skifte sti
    Data = Sheets("data").Range("A1:Z112")
    Open "G:\LabApps\Info\Sider\x.csv" For Output As #1
    For I = 1 To UBound(Data, 1)    ' rækker
        For X = 1 To UBound(Data, 2) - 1    ' kolonner
            Print #1, Data(I, X) & ";";
        Next
        Print #1, Data(I, UBound(Data, 2))
    Next
    Close #1
End Sub
Avatar billede Ny bruger Nybegynder

Din løsning...

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.

Loading billede Opret Preview
Kategori
Vi har et stort udvalg af Excel kurser. Find lige det kursus der passer dig lige her.

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester