Auteur Topic: xls naar cvs (gelezen 2501 keer)

Poppoll · « **Gepost op:** 14 november 2007, 01:21:02 »

Op het werk gebruiken we een excelbestand om gegevens in te vullen. (sheet1)
sheet 1 bevat een soort van formulier waarop een knop staat die de ingevulde gegevens wegschrijft als .cvs naar sheet 2
de code voor die knop is deze:

Code: [Selecteer]

Private Sub CommandButton3_Click()
    Sheets("csv").Select
    fname = Application.GetSaveAsFilename("Istwerte_LINCVOLVO_Aktuell vom " & Format(Now, "DDMMYYYY HHNN") & ".csv")
    If fname = False Then Exit Sub
    ActiveWorkbook.SaveAs Filename:=fname, FileFormat:=xlCSV
    ActiveWorkbook.Close SaveChanges:=True
    
End Sub

Nu is mijn vraag hoe schrijf ik het cvs bestand weg naar drive X in de map volvo
En kan ik dat weggeschreven cvs bestand onmiddelijk weer openen in excel via vba code, nadat het xls bestand is gesloten.
PP

RedHead · « **Reactie #1 Gepost op:** 14 november 2007, 07:43:39 »

Poppoll, Je zegt dat je dmv de code de inhoud van sheet1 naar sheet2 schrijft. Dat zie ik nergens gebeuren.
En als 2e opmerking... Waarom zou je de moeite nemen om eerst een workbook te sluiten om 'm daarna weer direct te openen? Dan kan je 'm toch beter openhouden?
Even heel snel uit de losse pols zou ik 't zo voorstellen....

Code: [Selecteer]

Private Sub CommandButton3_Click()
'hier je procedure van het copieren van je gegevens van sheet1 naar sheet2    
Sheets("csv").copy 'dit commando maakt een nieuw workbook aan met daarin alleen deze sheet!
    fname = "X:\volvo\Istwerte_LINCVOLVO_Aktuell vom " & Format(Now, "DDMMYYYY HHNN") '.csv hoeft niet. Dat gebeurt al in de SaveAs methode
   ' If fname = False Then Exit Sub
    ActiveWorkbook.SaveAs Filename:=fname, FileFormat:=xlCSV
    'ActiveWorkbook.Close SaveChanges:=True 'dit zou ik dus achterwege laten!
    
End Sub

Groet, Leo

Poppoll · « **Reactie #2 Gepost op:** 14 november 2007, 23:37:33 »

Leo,
Bedankt dit werkt.

Kan ik vba code toevoegen die het eerste workbook sluit zonder de wijzigingen op te slaan?

PP

RedHead · « **Reactie #3 Gepost op:** 15 november 2007, 22:09:23 »

Poppoll,

Citaat

Kan ik vba code toevoegen die het eerste workbook sluit zonder de wijzigingen op te slaan?

Tuurlijk! Zet dit bovenaan je sub om de naam van het bronbestand te achterhalen

Code: [Selecteer]

Dim sBronbestandNaam as String
      sBronbestandNaam = Thisworkbook.Name

En vervolgens ergens achter de kopieerslagen deze regel

Code: [Selecteer]

Workbooks(sBronbestandNaam).close SaveChanges:=False
Groet, Leo

Poppoll · « **Reactie #4 Gepost op:** 16 november 2007, 00:14:07 »

Leo,
Hartelijk dank.
De mensen op het werk zullen u dankbaar zijn

PP

spyder · « **Reactie #5 Gepost op:** 16 november 2007, 21:50:17 »

Hoi Poppoll,

Volgende code werkt ook.

Code: [Selecteer]

ThisWorkbook.Saved = True
ThisWorkbook.Close

groetjes

Help!

Menu

Hulp bij posten

Zoeken

Recente topics

Auteur Topic: xls naar cvs (gelezen 2501 keer)

Poppoll

xls naar cvs

RedHead

Re: xls naar cvs

Poppoll

Re: xls naar cvs

RedHead

Re: xls naar cvs

Poppoll

Re: xls naar cvs

spyder

Re: xls naar cvs