[vba in excel]script voor opslaan op bepaalde locatie

[degroot]

ik heb een scriptje in vba gemaakt.
deze zorgt ervoor dat als ik normaal opslaa hij wegschrijft naar een bepaalde locatie op het netwerk en onder een vaste naam.

dit doet het allemaal, maar nu staat er in dit script ook een stukje code waarin het mogelijk is het bestand onder een andere naam op te slaan. maar ik krijg het niet voor elkaar om het weg te laten schrijven naar bijvoorbeeld mijn C: schijf als ik het onder een andere naam laat opslaan

hier volgt de code

code:

    ActiveSheet.Outline.ShowLevels RowLevels:=0, ColumnLevels:=3
    Workbooks.Add
       ActiveWorkbook.SaveAs Filename:= _
        "C:goods in from nicky W04.xls", _
        FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False
    Windows("testbestand.xls").Activate
    Selection.Copy
    Windows("goods in from nicky W04.xls").Activate
    Range("A2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Windows("testbestand.xls").Activate
    Range("A2:X2").Select
    Range("X2").Activate
    Application.CutCopyMode = False
    Selection.Copy
    Windows("nicky.xls").Activate
    Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Columns("A:X").Select
    Columns("A:X").EntireColumn.AutoFit
    Range("T:T,S:S,R:R,O:O,N:N,M:M,L:L,K:K,J:J,I:I,C:C,A:A").Select
    Range("A1").Activate
    Application.CutCopyMode = False
    Selection.Delete Shift:=xlToLeft
    Range("A1").Select
    ActiveWindow.DisplayGridlines = False
    ActiveWorkbook.Save
    MsgBox "Control Remark & Reco"
    
    Filename = InputBox("Reco datum tijd & aant. Cartons")
    
    ActiveWorkbook.SaveAs Filename:= _
        Filename, FileFormat:= _
        xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
        , CreateBackup:=False
    
End Sub

het gaat dus om het laatste stukje code waarin ik kan aangeven onder welke naam ik het bestand wil opslaan.

het is voor jullie vast makkelijk maar ik kom er niet uit

als jullie meer info willen hebben moet je maar even een "gil" geven

alvast bedankt

[ Voor 1% gewijzigd door gorgi_19 op 06-09-2004 10:45 ]

[degroot]

iemand die het misschien weet?

[degroot]

weer een klein kickje

[BtM909]

Welke excel versie gebruik je?

edit:

Volgens mij ben je er om voor het saven dit te zetten:

code:

ChDir "C:\"

[ Voor 62% gewijzigd door BtM909 op 10-09-2004 16:13 ]

[degroot]

jah ik dacht ook aan chdir voor het saven weg te zetten
ik gebruik btw excel2k maar dat chdir werkt niet helemaal
ik dacht eerder aan chdrive omdat ik dan van schijf kan wisselen tijdens het opslaan dacht ik
en ik geloofde dat dit met chdir niet kon maar dat weet ik niet helemaal ckers

[Lister]

En als je nu de filenaam inclusief pad invoert in de inputbox, wat gebeurt er dan?
Want volgens mij zou dat gewoon moeten werken.

[Sleepie]

ik heb het ergens ooit zo geprogrammeerd en dat werkte :

code:

DName = "H:\FPDBKNGS\" & newYear & "\"
ChDrive ("H:")
ChDir (DName)

was om een file te openen, maar als je jouw saveopdracht daarachter hangt, moet het toch ook bij saven werken lijkt me.

[ Voor 19% gewijzigd door Sleepie op 12-09-2004 04:15 ]

[degroot]

jah als ik de locatie in de inputbox invoer is dat ook mogelijk maar dat is nogal omslachtig als je iedere x op een vaste locatie wilt saven!dus daarom!

[Verwijderd]

code:

Filename = "C:\mijnfolder\" & InputBox("Reco datum tijd & aant. Cartons")
    
    ActiveWorkbook.SaveAs Filename:= _
        Filename, FileFormat:= _
        xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
        , CreateBackup:=False

Moet lukken zo toch? Of heb ik je bedoeling verkeerd begrepen...

[degroot]

ohkee baco het is gelukt met dat stukje code van jouw
best simpel eigenlijk als ik er zo bij nadenk
bedankt voor de reacties en hulp

[onkl]

Spuit 11 zegt:

code:

Sub test()
filesavename = Application.GetSaveAsFilename( _
    "C:\Temp\bijvoorbeeld.xls", _
    "Excel Worksheet (*.xls), *.xls", _
    , "Reco datum tijd & aant. Cartons")
MsgBox filesavename
End Sub

Dit is de "officiele" VBA functie