Søg
Avatar billede acw Nybegynder
03. september 2003 - 13:52 Der er 31 kommentarer og
1 løsning

kommasepareret fil

Jeg skal bruge en knap, der markerer et dataområde, opretter et nyt ark, og lægger dataene over i der, for at gemme arket som csv-fil. Problemet er, at jeg gerne vil have fjernet dette ark, når filen er gemt, så man er tilbage i det oprindelige billede.

Men når jeg trykker på knappen, kommer den med denne fejl:

"Kørselsfejl 1004". Metoden Select for klassen Range Mislykkedes.

Hvad er der galt med nedenstående?

----------------------------------

Private Sub CommandButton4_Click()

    Range("B8:E38").Select
    Selection.Copy
    Sheets("Ark1").Select
    Sheets.Add
    Range("B8").Select
    ActiveSheet.Paste
    Sheets("Ark2").Select
    Application.CutCopyMode = False
     
    ActiveSheet.SaveAs Filename:="c:\timeregistrering\data", FileFormat:=xlCSV
       
        Sheets("Ark1").Select
        Sheets("Ark2").delete
        Range("B8").Select

End Sub
Avatar billede jkrons Professor
03. september 2003 - 14:04 #1
Prøv at rette til:

ActiveSheet.Range("B8").Select
Avatar billede fobian Nybegynder
03. september 2003 - 14:13 #2
Prøv denne kode. :-)

Private Sub CommandButton4_Click()
    Application.DisplayAlerts = False
    Application.ScreenUpdating = False
    Range("B8:E38").Select
    Selection.Copy
    Sheets("Ark1").Select
    Sheets.Add
    ActiveSheet.Name = "data"
    ActiveSheet.Range("B8").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
   
    ActiveSheet.SaveAs FileName:="c:\timeregistrering\data", FileFormat:=xlCSV
    Sheets("Ark1").Select
    Sheets("data").Delete
    Range("B8").Select
    Application.ScreenUpdating = True
    Application.DisplayAlerts = False
End Sub
Avatar billede acw Nybegynder
03. september 2003 - 14:17 #3
Det virker desværre ikke.
Avatar billede acw Nybegynder
03. september 2003 - 14:18 #4
arg nu roder jeg i det. kom til at trykke accepter, men ville trykke udfør...

så fobian et øjeblik, så skal jeg teste det. jkrons skulle ikke have haft point...
Avatar billede jkrons Professor
03. september 2003 - 14:18 #5
Du får dem bare tilbage :-)
Avatar billede acw Nybegynder
03. september 2003 - 14:20 #6
fobian, det virker heller ikke. Men får ny fejlmeddelelse.

Metoden SaveAs for klassen Worksheet mislykkedes
Avatar billede udviklingskonsulente Nybegynder
03. september 2003 - 14:24 #7
Jkrons> se lige her http://www.eksperten.dk/spm/396305
Avatar billede x-masman Nybegynder
03. september 2003 - 14:24 #8
ActiveSheet.SaveAs FileName:="c:\timeregistrering\data", FileFormat:=xlCSV, CreateBackup:=False

Prøv at skrive sådan istedet
Avatar billede jkrons Professor
03. september 2003 - 14:25 #9
udviklingskonsulenten-> Jeg kigger på det.
Avatar billede zogu Nybegynder
03. september 2003 - 14:28 #10
Hej,

Problemet er at det nye ark ikke hedder det samme hvergang.
Men det jeg gør her er at tilføje det nye ark som det sidste og så bruger jeg ark tælleren til at fange det igen.
Jeg har slået DisplayAlerts fra, da den ellers kommer og spørger om du vil slette arket igen.

Jeg hhåber det kan bruges. :)

--------------------------------------

Private Sub CommandButton4_Click()
    Range("B8:E38").Select
    Selection.Copy
    Sheets("Ark1").Select
    Sheets.Add After:=Sheets(Sheets.Count)
    Range("B8").Select
    ActiveSheet.Paste
    Sheets(Sheets.Count).Select
    Application.CutCopyMode = False
     
    ActiveSheet.SaveAs Filename:="c:\timeregistrering\data", FileFormat:=xlCSV
       
    Sheets("Ark1").Select
    Application.DisplayAlerts = False
    Sheets(Sheets.Count).Delete
    Application.DisplayAlerts = True
    Range("B8").Select
End Sub
Avatar billede acw Nybegynder
03. september 2003 - 14:32 #11
Hverken x-masman's eller zogu's virker :(
Avatar billede fobian Nybegynder
03. september 2003 - 14:38 #12
Er du sikker på at du har oprettet en mappe, som hedder timeregistrering på dit c: drev. Det skal der være før koden virker.

Det virker fint hos mig :-)
Avatar billede x-masman Nybegynder
03. september 2003 - 14:42 #13
er det ikke fordi at du skal bruge ActiveWorkbook.saveas?
Avatar billede zogu Nybegynder
03. september 2003 - 14:42 #14
Den her virker med garanti.

Private Sub CommandButton4_Click()
    Sheets("Ark1").Select
    Range("B8:E38").Select
    Selection.Copy
    Sheets.Add After:=Sheets(Sheets.Count)
    Sheets(Sheets.Count).Select
    Range("B8").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
     
    ActiveSheet.SaveAs Filename:="c:\timeregistrering\data", FileFormat:=xlCSV
       
    Sheets("Ark1").Select
    Application.DisplayAlerts = False
    Sheets(Sheets.Count).Delete
    Application.DisplayAlerts = True
    Range("B8").Select
End Sub
Avatar billede acw Nybegynder
03. september 2003 - 14:43 #15
x-masman nej jeg skal ikke bruge activeworkbook, da det kun er dataene i det nye ark der skal gemmes.
Avatar billede acw Nybegynder
03. september 2003 - 14:50 #16
fobian - jeg har oprettet mappen på mit c-drev, og hvis den ikke var, har jeg sikret mig det, gennem det her:

If Dir("c:\timeregistrering", vbDirectory) = "" Then MkDir "c:\timeregistrering"
Avatar billede zogu Nybegynder
03. september 2003 - 14:54 #17
Acw, jeg har testet proceduren jeg har lagt op, og får en fin Data.csv fil. med de test data jeg har sat op.

Hvis det stadig ikke virker, så prøv at omdøb dit Ark1 til Timer og brug det navn istedet.

/zogu
Avatar billede acw Nybegynder
03. september 2003 - 14:58 #18
Jeg fatter det ikke...ligemeget hvad jeg gør, kommer den med fejl.
Avatar billede zogu Nybegynder
03. september 2003 - 15:00 #19
Hent min test fil her

http://www.vendorf.dk/eksperten/timereg.xls

Og check om den virker.
Avatar billede acw Nybegynder
03. september 2003 - 15:04 #20
ja, den virker upåklageligt.
Avatar billede zogu Nybegynder
03. september 2003 - 15:06 #21
Så kør lige din egen og skriv hvad du får for en fejl.
Avatar billede acw Nybegynder
03. september 2003 - 15:11 #22
Altså, når jeg trykker på knappen, og bruger den kode du har skrevet herinde, kommer denne fejl:

Kørselsfejl 1004. Metoden Range for klassen select mislykkedes.
Avatar billede fobian Nybegynder
03. september 2003 - 15:16 #23
Har du placeret din kode i et selvstændigt modul eller i ark-modulet?
Avatar billede zogu Nybegynder
03. september 2003 - 15:16 #24
Strange, prøv at smid din procedure her ind igen. som den ser ud nu.
Avatar billede jkrons Professor
03. september 2003 - 15:18 #25
Koden må vel ligge på knappen.
Avatar billede acw Nybegynder
03. september 2003 - 15:20 #26
Sub CommandButton4_Click()
   
    If Dir("c:\timeregistrering", vbDirectory) = "" Then MkDir "c:\timeregistrering"
   
    Sheets("Timer").Select
    Range("B8:E38").Select
    Selection.Copy
    Sheets.Add After:=Sheets(Sheets.Count)
    Sheets(Sheets.Count).Select
    Range("B8").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
     
    ActiveSheet.SaveAs FileName:="c:\timeregistrering\data", FileFormat:=xlCSV
       
    Sheets("Timer").Select
    Application.DisplayAlerts = False
    Sheets(Sheets.Count).delete
    Application.DisplayAlerts = True
    Range("B8").Select
End Sub
Avatar billede zogu Nybegynder
03. september 2003 - 15:20 #27
Kan det have noget at sige at min Excel er engelsk og acw bruger dansk excel ?
Avatar billede acw Nybegynder
03. september 2003 - 15:21 #28
fobian - jeg har prøvet begge dele. I selvstændigt sker der ingenting når jeg trykker, og når den står i ark-modul, får jeg fejl. Det er nok heromkring der skal ledes efter en løsning, da jeg kan se at zogu's ligger i modul.
Avatar billede jkrons Professor
03. september 2003 - 15:26 #29
Hos mig virker det upåklageligt med dette:

If Dir("c:\timeregistrering", vbDirectory) = "" Then MkDir "c:\timeregistrering"
   
    Sheets("Timer").Select
    ActiveSheet.Range("B8:E38").Select
    Selection.Copy
    Sheets.Add After:=Sheets(Sheets.Count)
    Sheets(Sheets.Count).Select
    ActiveSheet.Range("B8").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
     
    ActiveSheet.SaveAs Filename:="c:\timeregistrering\data", FileFormat:=xlCSV
       
    Sheets("Timer").Select
    Application.DisplayAlerts = False
    Sheets(Sheets.Count).Delete
    Application.DisplayAlerts = True
    ActiveSheet.Range("B8").Select

husk at når koden ligger på en knap, er det knappen der vælges ved klik, ikke arkene.
Avatar billede zogu Nybegynder
03. september 2003 - 15:28 #30
Prøv at slet din knap og lav en ny og nøjes med at kopier koden over i den nye Sub.
Avatar billede acw Nybegynder
03. september 2003 - 15:33 #31
jeg fatter det simpelthen ikke !!!! Alle forslag har virket hos jer andre, men ikke hos mig. Jeg vil prøve at bygge mit program op over den fil du lagde op zogu. Men jeg må lige oprette et spørgsmål, så du kan få dine points.

Tak for hjælpen alle.
Avatar billede zogu Nybegynder
03. september 2003 - 15:34 #32
Håber det kommer til at virke. :)
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
Excel kurser
Excel kurser for alle niveauer og behov – find det kursus, der passer til dig
Se alle Excel kurser

Flere spørgsmål fra Excel kategorien

Titel Indlæg Oprettet Seneste aktivitet
Ændre tal i en celle Af xvid i Excel 1 04/09/202616:05 04/09/202616:54
Kan Excel selv beregne alder? Af leahcim i Excel 7 31/08/202610:24 04/09/202602:08
problem med mailbesked Af Pestilensen i Excel 3 24/08/202611:16 28/08/202612:55
Sætte billeder ind i google sheets ark ud fra elev nummer Af lurup i Excel 18 17/08/202615:14 05/09/202622:04
Gemme største værdi Af Lemming@privat.dk i Excel 2 07/08/202622:13 08/08/202609:03
Se alle spørgsmål i kategorien Opret spørgsmål

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.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
18/0919:52 Libre office skriveprogram Af Frank i Office & Kontorpakker
17/0914:55 Hente WordPad til Windows 11 Af Strawberry i Andet software
17/0911:37 Persits.Upload Af bsn i ASP
16/0918:13 oprette et installationsmedie Af Malm i Windows
16/0913:11 Adapterstik stik på ladekabel til USB-C Af ErikHg i Andet software
White papers
Flere white papers »