Save a file in een specifieke locatie door gebruik te maken van een marco

Question

Ik heb geprobeerd om een macro te maken om een werkblad uit een excel file te saven maar ik krijg een error (zie lijn in bold)

Private Sub CommandButton1_Click()

Dim path As String

Dim filename1 As String

path = "C:\Users............................................................

filename1 = Range("A1").Text

Application , DisplayAlerts = False

ActiveWorkbook.SaveAs Filename1:"path & filename & ",xlsx",fileformat:"xlopenxlmworkbook

Application , DisplayAlerts = True

ActiveWorkbook.Close

End Sub

Answer 1

Beste Renzo & Jan

Bedankt voor het antwoord ik ga zeker jullie tips uitproberen.

Development_A

Answer 2

Hi

Als eerste zou het zeker helpen om de foutmelding door te geven.

verder staan er een paar fouten in die lijn. Na die dubbele punten hoort er een is-gelijk-aan teken(=)

het is niet fileName1 maar gewoon FileName

als path en filename variabelen zijn mogen deze niet tussen aanhalingstekens staan(")

Indien een vaste plaats dan staat de sluit aanhalingsteken verkeerd. moet voor de ampersand (&) staan

Een extensie met komma. moet dit geen punt zijn?

Na fileformat:= staat een aanhalingsteken

format xlopenxlmworkbook bestaat niet. vermoedelijk bedoel je xlOpenXMLWorkbook het is xml en niet xlm

Mogelijks juiste code.

Dim Path As String, FileName As String

Path = "c:\mijn docs" ' let op de eind backslash

FileName = "Een juiste naam"

ActiveWorkbook.SaveAs FileName:=Path & FileName & ".xlsx", FileFormat:=xlOpenXMLWorkbook

Maak er een gewoonte van om altijd uw variabelen te declareren. Je kan dit zelfs forceren dat je het moet doen door "Option Explicit" (zonder aanhalingstekens) te plaatsen aan het begin van elke module. zo kan je ook beter fouten zoeken.

Jan

Answer 3

We gebruiken een vertaaldienst om onze gebruikers te helpen. Vergeef ons eventuele grammaticale fouten alstublieft.

Beste development_A,
Als onafhankelijk adviseur en communitygebruiker help ik je met je vraag.
Zoals u zegt, u uw doel bereiken met de SaveAs-methode.
In het volgende voorbeeld ziet u dus hoe u een Excel-werkmap opslaat in een specifieke map met de methode SaveAs:

Sub ExampleToSaveWorkbook()

Workbooks.Add

'Saving the Workbook

ActiveWorkbook.SaveAs "C:\WorkbookName.xls"

'OR

'ActiveWorkbook.SaveAs Filename:="C:\WorkbookName1.xls" 

End Sub

Betrekking
Renzo.