Opslaan als

[elbeest]

Ik heb een vraag over een macro die ik heb gemaakt en automatisch bestanden opslaat in 2 verschillende mappen. Als ik de macro laat draaien in een nieuw document wordt het bestand opgeslage in de mappen die ik wil. Als ik de macro laat draaien in een geopend document worden de bestanden opgeslaan in de standaardlocatie van excel. Hoe kan ik die probleem oplossen?

Ik ben pas begonnen met vba dus mijn excuses als de code wat klungelig overkomt.

Sub SaveIt()
Dim ck As Boolean
str1 = "C:\Documents and Settings\My Documents\Januari 2008"
ck = Application.Dialogs(xlDialogSaveAs).Show(str1)
Dim Numberfile As String
Numberfile = InputBox("Enter number of the file")
If newName = "" Then
str2 = "C:\Documents and Settings\My Documents\Januari 2008\files\" & "D" & Format(Now, "YYYYmmdd") & Numberfile & ".csv"
Else
str1 = newName
End If
ck = Application.Dialogs(xlDialogSaveAs).Show(str2)
If ck = True Then
newName = ActiveWorkbook.Name
End If
End Sub

Bedankt

 

[Wigi]

Waarom werk je met die dialoogvensters en niet met SaveAs in VBA?

 

[elbeest]

Omdat mijn kennis van VBA heel beperkt is (opnieuw de stunteligheid die komt kijken)

Zou het dan

ck = Application.SaveAs (str1) moeten zijn?

Alvast bedankt voor de hulp

 

[Wigi]

SaveAs is iets dat hoort bij een bestand, een workbook.

Niet bij de Excel applicatie zel ("Application").

Ik vermoed dat dit in de buurt komt:

ThisWorkbook.SaveAs str2

str2 is hier pad en bestandsnaam hoe en waar je het wil opslaan. Pas aan indien nodig.

Wigi

 

[elbeest]

Maar ik zou nog de mogelijkheid willen hebben om eventueel de bestandsnaam en af en toe de locatie te kunnen veranderen.

Sorry voor deze berg aan vragen

 

[Wigi]

Dan kan je Application.GetSaveAsFilename gebruiken, kijk maar eens in de helpfiles en op internet.

 

[elbeest]

Hartelijk bedankt, en bedankt voor de tips

 

[Relleboer]

nu de vraag nog even op opgelost zetten