Hoe zet je een Excel Saveas CSV pad naar de zelfde directory als het workbook?

[gschmidt]

Hoi,

Ik heb een Excel Workbook die als template dient. Daarin heb ik een button gemaakt
met een VBA code, die het workbook, als het gewijzigd is, saved en het daarna saved als een CSV bestand. Echter het saveas pad wijst naar de default directory van excel.

Hoe kan ik dit pad naar de lokatie laten wijzen waar het workbook staat?
note: Deze lokatie veranderd steeds omdat het een template file is die telkens in een andere project directory wordt gekopieerd.

Het gekke is dat via het menu-->file-->saveas wel de goede current directory gepakt wordt
maar die code kan ik nergens vinden.

Tot nu toe heb ik deze code:

Sub SaveasCSV()
'
' SaveasCSV Macro
' Macro recorded 7/21/2006 by G. Schmidt
'
' First Save the Workbook

ActiveWorkbook.Save

' Then Saveas csv file

If ActiveWorkbook.FileFormat = xlNormal Then
ActiveWorkbook.SaveAs Filename:="Legend", FileFormat:=xlCSV
End If

'
End Sub

 

[Jan van Asseldonk]

Met de vetgedrukte aanpassing zou het moeten lukken.

Sub SaveasCSV()
'
' SaveasCSV Macro
' Macro recorded 7/21/2006 by G. Schmidt
'
' First Save the Workbook
Dim Pad as string

ActiveWorkbook.Save
Pad = ActiveWorkbook.Path & "\"
' Then Saveas csv file

If ActiveWorkbook.FileFormat = xlNormal Then
ActiveWorkbook.SaveAs Filename:=Pad & "Legend", FileFormat:=xlCSV
End If

'
End Sub

 

[gschmidt]

Thanx!

Thanx!

Ik had ook al zoiets,
Mijn workbook bestaat uit 2 sheets Legend & Notes.
Na de Macro staat excel in de CSV mode en als je niet uit kijkt
ben je je orginele formatting kwijt, Hoe kan ik dit weer terugzetten naar
de Orginele bestandsnaam van het workbook XLS, nadat ik zowel Legend sheet als Notes sheet als een CSV file heb gesaved via deze macro?

P.S. dit workbook is bedoeld als een template voor projecten waarbij het workbook de naam/nummer van het project meekrijgt.....dus steeds een andere bestandsnaam en een andere directory....